---

Hallo zusammen

Ich habe ein Reihe Makros erstellt, mit dem ich Bemassungswerte mit wiederkehrenden symmetrischen Toleranzen (z.B. ±0.1, siehe Code) versehen kann.

Code:

---

Option Explicit
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.EditDimensionProperties2(4, 0.0001, 0, "", "", False, 1, 1, True, 12, 12, "", "", True, "", "", False)
Part.ClearSelection2 True
End Sub

---

Soweit funktioniert das so. Das Unschöne daran ist, dass wenn vor dem Bemassungswert z.B. das Ø-Zeichnen steht (<MOD-DIAM> ),
es diesen Text beim Ausführen des Makros herauslöscht. Der Befehl Part.EditDimensionProperties2 definiert die Bemassungstexte 
(mit den vier "" am Ende der Zeile) neu. Gibt es eine Möglichkeit, diesen Befehl so anzupassen, dass die Bemassungstexte nicht überschrieben werden?

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

---

Moin,

(ohne irgendwas geprüft zu haben): Ich würde versuchen, den bisherigen Bemaßungstext zuvor auszulesen, dann wieder korrekt reinzuschreiben. Ich denke, wo man was schreiben kann, sollte man auch etwas lesen können...

------------------
Einen schönen Gruß von Heiko
• www.dps-software.de • www.dps-akademie.de • www.iknow-solidworks.de • www.youtube.de/dpssoftwaregmbh •

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

---

In meinem Fall benötige ich nur den Präfix.
Geht das mit swDispDim.GetText(swDimensionTextPrefix) ?
Wie muss die Befehlsfolge aussehen?

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