---

Hallo zusammen

kann es sein, dass man in einer Konstruktionstabelle (eingefügte Exceltabelle in einem Bauteil) nicht auf die Soldiworks API zugreifen kann?

Habe ein Makro aufgezeichnet und wollte den Code dann in der Tabelle einfügen - habe dort ein EingabeFormular mit VBA erstellt. - Beim Ausführen des Codes mit dem CommandButton kommt die Meldung, dass das Objekt diese eigenschaft nicht unterstützt.   

Bibliotheken von solidWorks hab ich eigentlich unter den Verweisen eingefügt.

hier mal der code

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("*** Bandbreite-höhe und Führungen einstellen", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID2(".Gurthöhe ab Boden@*** Bandbreite-höhe und Führungen einstellen@99113145.SLDPRT", "DIMENSION", -0.1414259055713, -0.4909004694795, -0.5639788550391, False, 0, Nothing, 0)
Dim myDimension As Object
Set myDimension = Part.Parameter(".Gurthöhe ab Boden@*** Bandbreite-höhe und Führungen einstellen")
myDimension.SystemValue = 0.7
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("*** Bandbreite-höhe und Führungen einstellen", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID2(".Bandbreite@*** Bandbreite-höhe und Führungen einstellen@99113145.SLDPRT", "DIMENSION", -0.2381529330909, -1.044604867894, -0.01019862126126, False, 0, Nothing, 0)
Set myDimension = Part.Parameter(".Bandbreite@*** Bandbreite-höhe und Führungen einstellen")
myDimension.SystemValue = 0.25
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Bandlänge", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim myRefPlane As Object
Set myRefPlane = Part.CreatePlaneAtOffset3(2, True, True)
Part.ClearSelection2 True
Part.ShowNamedView2 "*Isometrisch", 7
boolstatus = Part.EditRebuild3()
End Sub

[Diese Nachricht wurde von Scoopa am 05. Mrz. 2010 editiert.]

[Diese Nachricht wurde von Scoopa am 05. Mrz. 2010 editiert.]

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