---

hallo

hat schon jemand ein makro geschrieben, mit dem man eine baugruppe und alle parts darin mit neuen dateinamen speichern kann das z.b. auch noch die zeichnungen mitnimmt usw..?

weil wenn nicht muss ich mir das selbst schreiben.. 
sollte dann auch noch eine auswahlmöglichkeit haben welche parts aus der baugruppe nur kopiert werden sollen.. etc

gruss stefan

------------------
----------
encom GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

dazu braucht's kein Makro, das ist normale SWX-Funktionalität. Schau mal hier http://solidworks.cad.de/kh_sas.htm da ist erklärt wie's geht.
Nur mit den Zeichnungen für Einzelteile und Unterbaugruppen hast Du ein Problem, die kommen da nicht automatisch mit - da hilft Dir aber auch kein Makro !
Das Problem ist - die Einzelteile "wissen" nicht, ob und welche Zeichnung(en) es gibt, wo sie dargestellt sind. Und das wirst Du auch nicht mit einem Makro so einfach lösen können.
Die Information ist schlicht und einfach im Einzelteil nicht vorhanden. Während in der Baugruppe (oder Zeichnung) schon vorhanden ist, welche Modelle referenziert werden - und Du Dich damit ABWÄRTS hangeln kannst, müßtest Du Dich AUFWÄRTS bewegen, um vom Teil auf die dazugehörige Zeichnung zu schließen.
Um das zu Lösen gibt es PDM-Systeme, die in einer Datenbank die Infos speichern und somit abgerufen werden können.
Oder Du machst es wie der SWX-Explorer beim Verwendungsort - der schaut in alle Dokumente rein, ob eventuell das betreffende Dokument dort referenziert ist. Je nach Datenmenge kann das dauern !

------------------
mfg uc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo

danke, das sieht schonmal gut aus!
kannte diese funktion noch nicht  )

dieses makro benötige ich für ein miniPDM..

dieses miniPDM beinhaltet bereits einen nummern-generator und eine online! datenbank zur zeichnungsverwaltung. was aber nicht integriert wird ist ein file-handler.. ist also für kleine firmen gedacht und wird bei fertigstellung wohl frei zum download gestellt!

nun möchte ich einfach noch das indexieren von baugruppen etwas vereinfachen und somit fehler vom user verminderen...

------------------
----------
encom GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ScreenShot001.jpg

Hallo Stefan,

habe vor ca. 1 Jahr schon so ein ähnliches Makro geschrieben.
Das Makro erstellt eine unabhängige Kopie einer Baugruppe mit Zeichnungen. Habe das Makro aber wegen eines Fehlers in dem API Befehl "Saveas4" nicht fertigstellen können.
Vor einer Woche habe ich in Amerika nochmal nachgefragt ob der Bug schon gelöst ist und bekam folgende Antwort:

"The bug SPR 155884 is VER-FIXED for SP4.  However, the fix is a documentation change.  Basically, in certain circumstances, SaveAs4 will not preserve mate references, such as when you are trying to copy an entire assembly using a recursive function that calls SaveAs4 many times.  Instead, we recommend using SldWorks::CopyDocument or SldWorks::MoveDocument."

Werde das Makro also in nächster Zeit umschreiben müssen. Vielleicht können wir uns gegenseitig helfen. Ich schicke dir den Quellcode meines ersten MakroŽs mal per Mail. Die Beschreibung des ProgrammŽs hänge ich hier an.

Tschüß

Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kopierhilfe-Zeichnungssatz.txt

Ups, war nur das Bild hier nochmal die Beschreibung.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Klaus Greim

danke für den quellcode
habe ihn aber bis jetzt nur kurz überflogen.

den ablauf im makro habe ich mir grob so vorgestellt:

1.manuelles öffnen der obersten baugruppe!

2.makro: ist zeichnung mit gleicher benennung vorhanden? wenn ja öffnen
3.makro: parts und unterbaugruppen auslesen, in liste eintragen und in SW öffnen
4.makro: sind zeichnungen mit gleicher benennung vorhanden? wenn ja öffnen (in schleife mit parts.. auslesen)

5.in liste anwählen was alles umbenennt/indexiert werden soll
  (bei diesem schritt schon jeweils einzeln neue nummern lösen)
6.starten

7.makro: anhand liste saveAs von den markierten elementen inkl. zeichnung erstellen
8.makro: statusmeldung

hier mein code-schnippsel auf dem ich wohl aufbauen werde:
Dim swApp As Object
Global text

Sub main()
    Dim swApp                      As SldWorks.SldWorks
    Dim swModel                    As SldWorks.ModelDoc2
    Dim swAssy                      As SldWorks.AssemblyDoc
    Dim swConf                      As SldWorks.configuration
    Dim swRootComp                  As SldWorks.Component2
    Dim bRet                        As Boolean
   
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swConf = swModel.GetActiveConfiguration
    Set swRootComp = swConf.GetRootComponent
   
    MsgBox "File = " & swModel.GetPathName
    text = "start" & vbCrLf
    TraverseComponent swRootComp, 1
    If text <> "" Then MsgBox text
End Sub
Sub TraverseComponent(swComp As SldWorks.Component2, nLevel As Long)

    Dim vChildComp                  As Variant
    Dim swChildComp                As SldWorks.Component2
    Dim swCompConfig                As SldWorks.configuration
    Dim sPadStr                    As String
    Dim i                          As Long
   
    For i = 0 To nLevel - 1
        sPadStr = sPadStr + "."
    Next i
   
    vChildComp = swComp.GetChildren
    For i = 0 To UBound(vChildComp)
        Set swChildComp = vChildComp(i)
       
        TraverseComponent swChildComp, nLevel + 1
       
        text = text & vbCrLf & sPadStr & swChildComp.Name2 & " <" & swChildComp.ReferencedConfiguration & ">"
    Next i

End Sub

------------------
----------
encom GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP