| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| AMB 2024 |
Autor
|
Thema: Makro Oberflächensymbol (378 / mal gelesen)
|
from scratch Mitglied Techniker TS
Beiträge: 5 Registriert: 25.05.2023
|
erstellt am: 26. Jan. 2024 09:38 <-- editieren / zitieren --> Unities abgeben:
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 |
Lueghi Mitglied Admin für alle Systeme ....
Beiträge: 416 Registriert: 01.07.2005 CAD...: SWX2022 SP5, ACAD 2019, Tacton / LINO PDM...: PRO.FILE 8.6 ERP...: proAlpha 6.2e / 7.1 BS....: Win10, HP ZBook G5
|
erstellt am: 26. Jan. 2024 12:08 <-- editieren / zitieren --> Unities abgeben: Nur für from scratch
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 |
Holger.S Mitglied Konstrukteur
Beiträge: 490 Registriert: 01.10.2004
|
erstellt am: 26. Jan. 2024 12:28 <-- editieren / zitieren --> Unities abgeben: Nur für from scratch
|
RBE Mitglied TechSupport; Bechtle PLM Deutschland GmbH
Beiträge: 291 Registriert: 11.02.2002 HP ZBook 17 G5 Core i9 2.9GHz 32GB RAM Quadro P4200 Win11 SolidWorks2024 SP1
|
erstellt am: 29. Jan. 2024 08:32 <-- editieren / zitieren --> Unities abgeben: Nur für from scratch
|
from scratch Mitglied Techniker TS
Beiträge: 5 Registriert: 25.05.2023
|
erstellt am: 02. Feb. 2024 06:02 <-- editieren / zitieren --> Unities abgeben:
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 |