Hallo erst mal.
Ich hab ein Problem mit meinem Makro. Ich möchte für Excel einen Buton Programmieren, der mir wenn ich ihn in meinem Konstruktionskatalog anklicke das entsprechende Teil ausgibt und zwar in einer vorher nicht näher definierten Baugruppe. Das MAkro steht soweit und funktioniert auch wenn ich es direkt über Solid ablaufen lasse. Füge ich es allerdings in Excel bei meinem Button ein funktioniert es nicht. Das Makro sieht folgendermaßen aus. Vielen Dank schon mal im Vorraus
Dim swApp As SldWorks.SldWorks
Dim Assembly As SldWorks.AssemblyDoc
Dim swNewMod As SldWorks.ModelDoc2
Dim swMod As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim iErrors As Long, iWarnings As Long
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Dim iOptions As Long
iOptions = swOpenDocOptions_e.swOpenDocOptions_Silent Or swOpenDocOptions_e.swOpenDocOptions_DontLoadHiddenComponents
Set swMod = swApp.ActiveDoc
If swMod.GetType <> swDocASSEMBLY Then
MsgBox "active doc must be assy"
Exit Sub
End If
Set Assembly = swMod
swApp.DocumentVisible False, swDocPART
Set swNewMod = swApp.OpenDoc6("i:\....", swDocPART, iOptions, "", iErrors, iWarnings)
swApp.DocumentVisible True, swDocPART
If swNewMod Is Nothing Then
MsgBox "failed "
Exit Sub
End If
boolstatus = Assembly.AddComponent("i:\....", 0, 0, 0)
swMod.EditRebuild3
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP