---

Hallo Forum,

ich würde gern aus einer Baugruppe heraus innerhalb eines Teils die Gewindegröße steuern.

Ich hab folgenden Code geschrieben aber scheinbar wird in den Parameter "swWizHole" das Feature nicht übertragen.

Weiß jemand was ich da noch falsch mache bzw. wie man das besser machen kann?

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension

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

RohrgewindeAnpassen("KomponentenName-1", "G1/4 Gewindebohrung1", "1/2")

End Sub

Function RohrgewindeAnpassen(comp As String, feat As String, stärke As String)
boolstatus = swModelDocExt.SelectByID2(feat + "@" + comp + "@" + "Baugruppennanme", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Debug.Print boolstatus

Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
Set swWizHole = swFeat.GetDefinition

Dim threadSize
threadSize = swWizardHoleFeatureData.ThreadDesignation
MsgBox threadSize

boolstatus = swWizHole.ChangeStandard(swStandardISO, swStandardISOTaperedPipeTap, "G" + DecimalToFraction(CDbl(stärke)))
End Function

Schonmal vielen Dank im Voraus.

[Diese Nachricht wurde von tgeibskko am 30. Okt. 2024 editiert.]

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

---

Hallo,

schau dir mal das API-Beispiel an:

https://help.solidworks.com/2024/english/api/sldworksapi/Create_Holes_using_Hole_Wizard_and_Sketch_Points_Example_VB.htm

Dort siehst du, was du alles an Parametern übergeben bzw. dir aus
dem bestehenden Feature besorgen musst.

------------------
==========
Gruß
Andreas
==========

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