---

Hallo zusammen

Ich bin dabei, eine Reihe von Makros zu erstellen, mit denen ich Oberflächensymbole mit Rauheitsangabe (im Beispiel unten Ra 0.8) in die Zeichnung einfügen kann.
So wie der Code unten steht, erstellt es das Symbol zwar, platziert es dann an der unteren linken Ecke vom Blatt. Somit muss ich dieses jeweils von da holen, um es so auf ein Element (z.B. Masshilfslinie) zu platzieren.
Meine Frage: Wie muss der Code geändert werden, damit das Symbol nach der Erstellung am Mauszeiger "hängt" und es so direkt platziert werden kann?

Besten Dank für eure Hilfe.

Code:

---

Sub main()

Set swApp = Application.SldWorks

Dim mySFSymbol As Object
Set mySFSymbol = Part.Extension.InsertSurfaceFinishSymbol3(1, 0, 0, 0, 0, 0, 1, "", "0.8", "", "Ra", "", "", "")
Dim myAnnotation As Object
Set myAnnotation = mySFSymbol.GetAnnotation()
End Sub

---

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

---

Deine Frage kann ich zwar nicht direkt beantworten, aber vielleicht kann ich einen anderen Weg ohne Makro aufzeigen:

Wir haben uns für die von uns verwendeten Oberflächenzeichen entsprechende Symbole in der Bibliothek abgelegt. Die kann man dann per DragAndDrop an die Linien setzen.

------------------
Gruß Stefan

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

---

Hier gibt es etwas, das sammelt dir auch alle angetragenen OF-Symbole und setzt die in Klammern. Da geht auch noch sehr viel mehr.

https://ww3.cad.de/foren/ubb/Forum2/HTML/033701.shtml

------------------
Wer nichts verändern will, wird auch das verlieren, was er bewahren möchte. (Gustav Heinemann)
www.vn-biker.de

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

---

Dir fehlt noch die SetPosition2 Method (IAnnotation) -> https://help.solidworks.com/2023/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.iannotation~setposition2.html

Alternativ kannst Du die Position auch direkt in InsertSurfaceFinishSymbol2 Method (IModelDoc2) bzw. InsertSurfaceFinishSymbol3 Method (IModelDocExtension) mitgeben (jeweils 3.-5. Parameter).

Grüße, RBE

[Diese Nachricht wurde von RBE am 29. Jan. 2024 editiert.]

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

---

Vielen Dank für eure Tipps. Ich werde bei InsertSurfaceFinishSymbol3 eine Position angeben,
damit das Symbol z.B. 50mm von der Ecke weg platziert wird und so besser "greifbar" ist.

Gruss und ein schönes Wochenende

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