Hallo zusammen!!
Ich habe ein Macro rekodiert und korrigiert, und zwar es geht um
2 Teile miteinander zu setzen. Eigentlich wird ein Teil von anderem
Teil entfernt.
Dafür habe ich den Befehl "Part.FeatureManager.InsertMoveCopyBody2 0.004, 0.01, 0.006, 0, 0, 0, 0, 0, 0, 0, False, 1 " benutzen bei Solidworks.
Aber es funktioniert nicht bei Macro. Ohne diesen Befehl ist
das Ergebnis gleich. Wie kann ich mit diesem Befehl bei Macro
funktioniern lassen?
Gruss aus Stuttgart
__________________________________________________________________
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("Vorne", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.SketchRectangle -0.025, 0.025, 0, 0.025, -0.025, 0, 1
Part.SetPickMode
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.ShowNamedView2 "*Trimetrisch", 8
Part.ClearSelection2 True
Part.FeatureManager.InsertMoveCopyBody2 0.004, 0.01, 0.006, 0, 0, 0, 0, 0, 0, 0, False, 1
boolstatus = Part.Extension.SelectByID("Skizze1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, False, 6, 0, 0.03, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
Set Feature = Part.InsertPart("C:\Dokumente und Einstellungen\MA\Eigene Dateien\HIWI\SolidWorks\Pulver.SLDPRT", False, False, True)
Part.ClearSelection2 True
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("Linear austragen1", "SOLIDBODY", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("<Pulver>-<Verrundung19>", "SOLIDBODY", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Linear austragen1", "SOLIDBODY", 0, 0, 0, False, 1, Nothing)
boolstatus = Part.Extension.SelectByID("<Pulver>-<Verrundung19>", "SOLIDBODY", 0, 0, 0, True, 2, Nothing)
Part.FeatureManager.InsertCombineFeature 15902, Nothing, Empty
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.CreateLine2 0, 0.025, 0, 0, -0.025, 0
Part.SetPickMode
Part.ClearSelection2 True
Part.InsertSketch2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Skizze2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureCut False, False, False, 1, 1, 0.02, 0.02, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP