Ich möchte einen Maß eine Toleranz H7 mittels Macro zufügen.
Das funktioniert soweit ganz gut:
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.EditDimensionProperties2 7, 0, 0, "H7", "", 1, 9, 1, 1, 11, 11, "", "", 1, "", "", 1
Part.ClearSelection2 True
End Sub
Nachteil: Ein evt. vorhandenes Durchmesserzeichen wird überschrieben. Gibt es eine
Möglichkeit ein evt. vorhandenes Ø vorab abzufragen um es dann zu berücksichtigen.
Das Ø ist als "<MOD-DIAM>" eingetragen.
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11, "<MOD-DIAM>", "", 1, "", "", 1
Danke
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP