Macro's Labo, Sheetmetal: Exporteren plaatuitslagen

[Wim Pepping]

Hallo,

Naar aanleiding van het plaatsen van mijn programma voor het exporteren van plaatuitslagen wil ik graag een nieuwe discussie starten. 

Graag zou ik informatie willen over het wel of niet functioneren van het programma. In Inventor 2010 schijnt de add-in niet te werken. Zijn er meer mensen die dit uitgetest hebben?

Ik heb geprobeerd om voor zover mogelijk de DSX standaard te volgen om toch een beetje te standaardiseren, zoals het woord al zegt, maar kom er achter dat er heel verschillend gewerkt wordt. Ik heb ook wel eens de indruk dat bij het ontwikelen van zoiets de mensen op de tekenkamer vaak vergeten worden, maar die zijn wel de belangrijkste schakel in het geheel.

 

Deze add-in is zowel voor 32- als 64bit beschikbaar:
Klik hier om het programma te downloaden.

Klik hier om de handleiding te downloaden.

meer info op zijn website: http://peppingmd.nl/inventor-tools/plaatuitslagen

en deze hotnews post

 

[Fréderic]

Ik heb het programma 2x moeten laten installeren voor het werkte, maar nu werkt het perfect.

 

Ik heb eens alles bekeken en heb toch wel enkele opmerkingen over het programma.

Beschouw dit als opbouwende kritiek!

 

* Waarom laat je de gebruiker geen ini-file ivm exporteren van uw programma kiezen? zo heeft de eindgebruiker de volledige vrijheid hoe hij zijn onderdelen exporteert.

*Eventueel kan je de waarden in uw velden dan laten weergeven en op deze manier exporteren, dit is een tekstbestand, dus perfect uit te lezen.

*Het zou leuk zijn mocht je in de bestandsnaam bvb lengtexbreedtexdikte x aantal stuks kunnen invoegen.

maw iproperties naar keuze.

*Het zou ook leuk zijn mocht dit werken op gewone parts.

*De foutafhandeling zou ik toch ook wat beter opvangen, bvb ik exporteer terwijl er een sketch actief is van één van die onderdelen, das een goede foutafhandeling, maar ik denk dat deze door inventor wordt afgehandeld.

maar vanaf ik mijn schets sluit is het niet meer mogelijk om dan nog te exporteren , inventor geeft me altijd dezelfde mededeling "Sketch export:Document save failed." ook al kan ik mooi in inventor opslaan.

 

mocht je code nodig hebben voor bvb te werken met ini file, iproperties, foutafhandeling, enz... dan kan ik je die bezorgen. Wel in vba

 

Maar voor de rest werkt het perfect!!!, hopelijk kan je hiermee iets.

 

mvg,

 

Fréderic

 

 

[Guido Godrie]

Welke versie van Inventor gebruik jij (2010, 2011 of 2012)? 32 of 64-bit?

[Fréderic]

ik heb dit nu getest op 32bit 2011.

als je wil test ik het nog eens uit op een 32bit 2010.

[Guido Godrie]

Bij mij installeert het programma niet, ook niet na meerdere pogingen. Ik gebruik 64bit 2010sp3 onder Win7sp1. Als hij het bij jou ook niet doet in 2010 (of juist wel), dan weet Wim misschien iets meer.

[Wim Pepping]

Bedankt voor de info! Ik zie het ook als opbouwende kritiek hoor!

Ik maak dit soort programma's in mijn eigen tijd omdat ik het leuk vindt om te doen en ik kan mijn eigen wensen direct vertalen in een programma en ben dus gelukkig niet afhankelijk van professionele programmeurs.

Punt 1 t/m 3 vind ik een goed idee en dit ga ik eens even in de week zetten.

Punt 4 is me niet helemaal duidelijk.

Punt 5 (foutafhandeling). Ik kan wat je omschrijft alleen reproduceren als ik een ander part open en het programma actief houd. Als ik dan ga exporteren werkt het inderdaad niet. Kun je dit nog iets verduidelijken?

Programmeeradvies is altijd welkom!

 

[Fréderic]

punt 4Mocht je bvb van koppelplaten, lasplaten het bovenaanzicht ook kunnen exporteren met uw programma zou ik wel overwegen om dat van jou te gebruiken ipv het mijne!

Ik doe dit nu al maar zonder interface, dus hardcoded (het is toch alleen maar voor mij) maar kan gemakkelijk aangepast worden.

 

voor punt 5:

ik open uw programma ( de rij met het onderdeel in uw datagrid staat er al in)

Ik open de sketch van dat bewust onderdeel

Ik laat uw programma exporteren, dan loopt hij vast en kan ik niets meer exporteren omdat uw programma inventor doet vastlopen.

volgens mij heb ik het dan in inventor ook vlaggen.

Als je specifieke code nodig heb omtrent één van mijn voorstellen moet je maar mijn vriendje worden :p dan mail ik ze door ofzo

[Edwin Peters]

Op zich een geweldige stap richting het exporteren van plaatuitslagen.

Ik heb het programma geïnstalleerd (XP 64-bit met IV2011) en het exporteren gaat goed alleen bij Matprop Settings krijg ik een foutmelding.

 

• Ik zou bij het exporteren van plaatuitslagen graag zien dat ik de mogelijkheid heb om voor de bends zowel de ups als de downs te kunnen definiëren.
• Ik weet niet of het een mogelijkheid is, maar kan bv. een bepaalde iproperty als tekst meegenomen worden in de DXF zodat deze graveerd kan worden op de plaatuitslag.  

[Antonie Beens]

Ik zie helemaal geen knopje 'settings'....

 

Overigens een geweldige stap voorwaarts!!!

[Wim Pepping]

De knop Settings staat in het menu van de grote "I" linksboven.

 

[Wim Pepping]

Voor de gebruikers van mijn progje:

 

Ik heb een nieuwe versie op mijn site gezet waarin een aantal problemen opgelost zijn.

Dit met dank aan een aantal oplettende gebruikers.

[frederic]

Ben ondertussen behoorlijk fan van uw programma, toch nog enkele opmerkingen

 

Zou het niet praktisch zijn om de onderdelen te rebasen naar het 1st quadrant.

Alle vinkveldjes automatisch op yes te zetten, of de mogelijkheid te bieden om die per kolom aan te zetten.

 

Een tooltje die automatisch daarna elke dxf opent en er de naamgeving van het part bijzet, maar dan enkel de naam zonder de additional info. Dit moet ik nu manueel gaan doen achteraf met een macro.

 

Ik geef je ondertussen de macro hier die ik ervoor gebruik. (ik laat wel de tekeningen openstaan omdat de naam onmogelijk altijd juist kan staan door de vorm van de platen)

 

Option Explicit

Public Sub FileNameStampDXF()

Dim BrowseFolder As String
Dim ShellApp As Object

'Create a file browser window at the default folder
Set ShellApp = CreateObject("Shell.Application").BrowseForFolder(0, "Please choose a folder", 0)
    
'Set the folder to that selected.  (On error in case cancelled)
On Error Resume Next
BrowseFolder = ShellApp.self.Path
On Error GoTo 0
'Destroy the Shell Application
Set ShellApp = Nothing

Dim colFiles As New Collection

RecursiveDir colFiles, BrowseFolder, "*.dxf", True
       
Dim vFile As Variant

Dim x, y As Integer
Dim FileName As String

Dim txtVeld As AcadText
Dim Optn(2) As Double
Optn(0) = 2
Optn(1) = 2
For Each vFile In colFiles

Call Application.Documents.Open(vFile)

 

Call ThisDrawing.ModelSpace.AddText(Left(ThisDrawing.Name, InStr(ThisDrawing.Name, "_") - 1), Optn, 5)

 

Next vFile

End sub
Public Function RecursiveDir(colFiles As Collection, strFolder As String, strFileSpec As String, bIncludeSubfolders As Boolean)

    Dim strTemp As String
    Dim colFolders As New Collection
    Dim vFolderName As Variant

    'Add files in strFolder matching strFileSpec to colFiles
    strFolder = TrailingSlash(strFolder)
    strTemp = Dir(strFolder & strFileSpec)
    Do While strTemp <> vbNullString
        colFiles.Add strFolder & strTemp
        strTemp = Dir
    Loop

    If bIncludeSubfolders Then
        'Fill colFolders with list of subdirectories of strFolder
        strTemp = Dir(strFolder, vbDirectory)
        Do While strTemp <> vbNullString
            If (strTemp <> ".") And (strTemp <> "..") Then
                If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0 Then
                    colFolders.Add strTemp
                End If
            End If
            strTemp = Dir
        Loop

        'Call RecursiveDir for each subfolder in colFolders
        For Each vFolderName In colFolders
            Call RecursiveDir(colFiles, strFolder & vFolderName, strFileSpec, True)
        Next vFolderName
    End If

End Function
Public Function TrailingSlash(strFolder As String) As String
    If Len(strFolder) > 0 Then
        If Right(strFolder, 1) = "\" Then
            TrailingSlash = strFolder
        Else
            TrailingSlash = strFolder & "\"
        End If
    End If
End Function

 

 

 

 

[Wim Pepping]

Dat zijn interessante punten!

De hele kolom met één klik aan en uit kunnen vinken heb ik zelf al in een testversie draaien.

Het verplaatsen naar 1e quadrant ga ik ook opnemen in de volgende versie.

 

Ik ga jouw code binnenkort eens testen Frederic, ziet er goed uit. Als ik mogelijkheden zie om dit te integreren in het progje ga ik dit zeker doen.

 

http://peppingmd.nl/inventor-tools/plaatuitslagen