---

Passungsdefinition.PNG

Liebes Forum, ich wäre mal wieder für etwas Hilfe sehr dankbar.
Ich möchte mir für Passungen, die oft vorkommen die Beschriftungserstellung auf Zeichnungen auf einen Button legen. Allerdings scheint man nicht alle Funktionen der Bemaßungsdefinition mit editdimensionproperties2 ändern zu können. bisher habe ich mir per Makrorecorder folgendes aufgezeichnet.

Nun kann ich aber die Nachkommastellen der Toleranz nicht ändern und die Bezeichnung steht hochgestellt, statt neben der Maßzahl? Außerdem scheinen die Toleranzwerte fix eingetragen und nicht abhängig vom Maß bestimmt zu werden.

Hat jemand eine Idee, wie man die Definition anpassen kann? Im Anhang noch ein Bild, wie es sein soll.

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.EditDimensionProperties2(8, 0.000043, 0.000016, "H6", "", True, 2, 2, True, 12, 12, "", "", True, "", "", True)
Part.ClearSelection2 True
End Sub

---

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

---

Hallo Leonard,
wie so oft arbeitet der Makrorecorder mit veralteten Befehlen.
editdimensionproperties2 ist auch hier auf Obsolete gesetzt.

Wenn du in die Hilfe gehst, bekommst du einen Verweis auf den aktuellen Befehl.
Schau mal hier vorbei.

https://help.solidworks.com/2021/English/api/sldworksapi/SOLIDWORKS.Interop.sldworks~SOLIDWORKS.Interop.sldworks.IModelDocExtension~EditDimensionProperties.html

Dort ist auch ein einfaches Beispiel vorhanden.

Ich habe jetzt aber nicht geprüft, ob dein Wunsch hier berücksichtigt wird.

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Hallo Andi, danke dir für den Hinweis. Allerdings gibt es die richtigen Optionen auch hier leider nicht.

Ich ändere aktuell einfach die Dokumenteinstellungen der Toleranzgenauigkeit vorher und hinterher wieder zurück, das scheint zu funktionieren.

Allerdings weiß ich noch nicht, wie ich die richtigen Toleranzwerte angezeigt bekomme. Er nimmt erstmal nur das, was im Code steht. Hier im Beispiel die "0". Hat jemand eine idee, wie ich das Ändere?

Außerdem würde ich gerne noch die "H6" mit in die selbe Zeile stellen.

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 swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingLinearTolPrecision, swUserPreferenceOption_e.swDetailingDimension, 3)
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingAltLinearTolPrecision, swUserPreferenceOption_e.swDetailingDimension, 3)
boolstatus = swModelDocExt.EditDimensionProperties(8, 0, 0, "H6", "", True, 2, 2, True, 1, 1, "", "", True, "", "", "", True, 2, "")

boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingLinearTolPrecision, swUserPreferenceOption_e.swDetailingDimension, 2)
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingAltLinearTolPrecision, swUserPreferenceOption_e.swDetailingDimension, 2)

Part.ClearSelection2 True
End Sub

---

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

---

bzw ich muss erst noche einmal das DropdownFeld mit der Toleranzbezeichnung aktivieren und Bestätigen, bevor die Toleranzwerte übernommen werden.

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

---

Wenn ich die ausführende Zeile zweimal hinschreibe, werden auch die Toleranzwerte eingetragen... interessant.

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