| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| myCADtools , eine App
|
Autor
|
Thema: Makro Oberflächensymbol (452 / 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: 435 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: 508 Registriert: 01.10.2004 Solidworks Professional 2021 SP5.1 Solidworks PDM Lenovo Thinkpad Microsoft Windows10 Pro Intel(R) Core(TM) i9-10885H CPU @ 2.40GHz 32 GB RAM NVIDIA Quadro RTX 3000
|
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: 294 Registriert: 11.02.2002 HP ZBook 17 G5 Core i9 2.9GHz 32GB RAM Quadro P4200 Win11 SolidWorks2024 SP3.1 (EV)
|
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 |