---

Guten Morgen zusammen.
Ich bin tatsächlich aktuell ein bisschen am verzweifeln, weil mir vermutlich einfach das VBA wissen fehlt.
Ich möchte gerne mit einem Makro eine geöffnete Zeichnung nach gewissen Sachen durchsuchen/filtern und diese dann löschen. Aktuell mache ich es immer zu Fuß mit dem Auswahlfilter (Oberflächenbeschaffenheit, Form- und Lagetoleranzsymbole, Bezugs- Features und Blöcke), Markiere mir anschließend die komplette Ansicht und lösche die gefilterten Elemente raus. Dadurch bleiben am Ende in der Zeichnung nur noch die reinen Maße. (Diese Habe ich im Vorfeld schon mit einem Makro bearbeitet. -> Alle Toleranzen etc. entfernt)
Tatsächlich habe ich es auch schon mit dem simplen Aufzeichnen von Makros versucht, jedoch ohne Erfolg.
Vielleicht kann mir jemand bei diesem vermutlich Simplen Problem helfen?
Es würde mir tatsächlich sehr helfen, Denn diese Arbeit kommt immer wieder und langfristig würde ich diese Arbeit am liebsten über den Taskplaner laufen lassen.

MfG
Huhne

[Diese Nachricht wurde von Huhne am 31. Okt. 2024 editiert.]

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

---

Hallo Huhne,

das ist beileibe keine simple Aufgabe, wie du in deinem Text schreibst 
Du musst programmtechnisch in der Zeichnung jede Ansicht aktivieren und dann
die "unerwünschten" Sachen selektieren und löschen.

Einen Einstieg findest du in diesem Beispiel:

https://help.solidworks.com/2024/english/api/sldworksapi/Get_Names_of_Annotations_Example_VB.htm

Dort werden die Beschriftungen aus den Zeichnungsansichten selektiert und die
Namen ausgegeben.

------------------
==========
Gruß
Andreas
==========

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

---

Tatsächlich sieht mein derzeit aufgezeichnetes Makro folgendermaßen aus:

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

' Zoom To Sheet
Part.Extension.ViewZoomtoSheet

'Maße
boolstatus = Part.Extension.SelectByID2("RD4@Zeichenansicht5", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)

boolstatus = Part.Extension.SketchBoxSelect("0.745181", "-0.013243", "0.000000", "-0.141008", "0.434938", "0.000000")

boolstatus = Part.EditDimensionProperties2(0, 0.000012, 0, "", "", True, -1, 2, True, 12, 12, "", "", True, "", "", True)

Part.ClearSelection2 True

End Sub

Jetzt werden ja die Maße über den Befehl "Part.EditDimensionProperties2" entsprechend angepasst. Mein Gedanke ist jetzt dabei ob es einen solchen Befehl nicht auch für die Filter gibt. Dann könnte ich diesen auch mit im Makro einbauen und entsprechend anpassen.

------------------
------------
Gruß Ruven

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

---

Moin,

ich habe da einen ganz anderen Ansatz:

Ich habe eine Layerstruktur in meinen Zeichnungen, die weitgehend automatisch Bemaßungen, Mittellinien, Schraffuren, Texte, Oberflächenzeichen, Tabellen auf unterschiedliche Layer legt. Auf diese Weise kann ich leicht viele der betreffenden Elemente einfach ausblenden, ohne alles "kleinholzen" zu müssen.

Dies wäre für die händische, wie auch programmatische Arbeit vielleicht einfacher zu händeln?!

------------------
Einen schönen Gruß von Heiko

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

---

Hallo Heiko,
deinen Ansatz finde ich tatsächlich sehr interessant und gut! Bin auch kurz davor es so umzusetzen. Gedanklich bin ich noch einen Schritt weiter. Besteht die Möglichkeit, die Toleranzangaben von einem Maß, die ich bisher lösche, auch auf ein Layer zu bringen? Dann könnte ich mir eine separate Zeichnung komplett sparen und brauche nur zwischen den Layern umschalten. Oder gibt es noch einen anderen guten alternativ Ansatz dafür?

------------------
------------
Gruß Ruven

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

---

N'Abend,

leider ist mir für diese Trennung kein Weg bekannt.

Da du nicht geschrieben hast, warum du diesen Aufwand betreibst, kann ich nur raten. Wahrscheinlich willst du eine vereinfachte Zeichnung, nur mit Hauptabmessungen z. Bsp. für den Kunden / die Doku erzeugen.

Das habe ich mal so gelöst, dass ich diese Bemaßungen als zusätzliche auf einen separatem Layer erstellt habe, den ich wechselseitig mit dem anderen ein/aus-geblendet habe.

------------------
Einen schönen Gruß von Heiko

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

---

Hallo Heiko,
ja genau das ist der Gedanke dahinter. vereinfachte Zeichnungen für die Doku etc. hinterlegen. Ich werde die Lösung mit den Layern angehen. Danke für deine Lösungsansätze! Das hilft mir gut weiter!

------------------
------------
Gruß Ruven

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

---

Elemente auf einen Layer verschieben - im verlinkten Beitrag Mittellinien und Mittelkreuze - hat s.giehl mal hier gezeigt: https://ww3.cad.de/foren/ubb/Forum2/HTML/017270.shtml#000018

GetAnnotations Method (IModelDocExtension) und
Get Annotations Example (VBA)
könnten weiter helfen 

WW

------------------

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