Hallo Kollegen,
ich möchte Blöcke per Makro aktualisieren, aber das tut SWX bei mir nur per Hand ..
Vorgehen von Hand:
- Block auf Zeichnung, ohne ext. Referenz, Vorlage ist aber verfügbar.
- von Hand "Verknüpfung zu Datei" aktivieren
--> Block wird von Datei aktualisiert.
- von Hand "Verknüpfung zu Datei deaktivieren
--> neuer Zustand des Blocks ist in der Zeichnung gespeichert.
Vorgehen per Makro
- swBlockDef.LinkToFile = True
--> setzt "Verknüpfung zu Datei", aber es passiert nix
- swBlockDef.LinkToFile = False
--> und nun bleibt es bei Verknüpfung zu Datei ...
hat jemand einen Tip?
Danke und Gruß, Christian
einzelheiten:
SWX2008 auf XP
und hier der kurze Text ..
Dim swApp As Object
Dim swPart As Object
Dim retval As Boolean
Dim vblockdefiniton As Variant
Sub main()
Set swApp = Application.SldWorks
Set swPart = swApp.ActiveDoc
vBlockDefinition = swPart.SketchManager.GetSketchBlockDefinitions
If Not IsEmpty(vBlockDefinition) Then
For i = 0 To UBound(vBlockDefinition)
Set swBlockDef = vBlockDefinition(i)
If swBlockDef.GetFeature.Name = "Blockname" Then
swBlockDef.LinkToFile = True
'retval = swPart.EditRebuild3()
swBlockDef.LinkToFile = False
End If
Next i
End If
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP