Falls es nochmal für jemanden relevant sein sollte anbei der Code um die Gewindegröße eines CosmeticThreads, welches über den Bohrungsassistenten(HoleWizard) erstellt wurde, per Makro anzupassen:
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim longstatus As Long
Dim longwarnings As Long
Dim boolstatus As Boolean
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeatMgr As SldWorks.FeatureManager
Dim swFeat As SldWorks.Feature
Dim swWizHole As SldWorks.WizardHoleFeatureData2
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swFeatMgr = swModel.FeatureManager
Set swSelMgr = swModel.SelectionManager
boolstatus = swModelDocExt.SelectByID2("Gewinde Getriebe", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
Set swWizHole = swFeat.GetDefinition
boolstatus = swWizHole.ChangeStandard(swStandardISO, swStandardISOTappedHole, "M30")
Debug.Print boolstatus
swFeat.ModifyDefinition swWizHole, swModel, Nothing
swModel.ForceRebuild3 False
swModel.ClearSelection2 True
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP