Zeichnung - Aufbereiten ausblenden (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung) - Lösung vorhanden!

Autor	Thema: Zeichnung - Aufbereiten ausblenden (1271 mal gelesen)
Windninja Mitglied Konstrukteur Beiträge: 25 Registriert: 06.02.2015 Catia V5 R24 Service Pack 4 Hot Fix 33	erstellt am: 12. Mrz. 2015 12:07 <-- editieren / zitieren --> Unities abgeben: Hallo Ich habe mir ein Makro gemacht das mir die Zeichnungen in DXF umwandelt. Nur muss ich dafür bei den Ansichten immer in den Eigenschaften Aufbereiten alle Achsen, Mittellinien, ... ausblenden. Über die Makroaufzeichnung bekomme ich nur diese Zeilen: drawingViewGenerativeBehavior1.HiddenLineMode = catHlrModeOff drawingViewGenerativeBehavior1.ColorInheritanceMode = cat3DColorInheritanceModeOff drawingViewGenerativeBehavior1.FilletRepresentation = catFilletRepNone damit kann ich nur Versteckte Linien, 3D-Farben und Verrundungen ausblenden. Kann man die anderen nicht über Makro steuern? Wenn doch kann mir mal bitte einer die Befehle geben.(Also für Mittellinien, 3D-Spezifikation, Achsen, Gewinde, 3D-Punkt, 3D-Drahtmodel) Gruß Windninja Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
joehz Moderator Freiberuflicher Konstrukteur Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053	erstellt am: 12. Mrz. 2015 16:15 <-- editieren / zitieren --> Unities abgeben: Nur für Windninja Hallo ninja, Schau Dir mal 'Selection.VisProperties' an. Tschau, Joe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Windninja Mitglied Konstrukteur Beiträge: 25 Registriert: 06.02.2015 Catia V5 R24 Service Pack 4 Hot Fix 33	erstellt am: 23. Mrz. 2015 10:49 <-- editieren / zitieren --> Unities abgeben: Danke mit Selektion funktionirt es und Schriftkopf wird auch gleich mitgelöcht. UserSel.Search "Name=TitleBlock;Alle" Z = UserSel.count If Z >0 Then UserSel.delete UserSel.Search "Name=Frame;Alle" Z = UserSel.count If Z >0 Then UserSel.delete UserSel.Search "Name=Bemaßung;Alle" Z = UserSel.count If Z >0 Then UserSel.delete UserSel.Search "Name=Gewinde;Alle" Z = UserSel.count If Z >0 Then UserSel.delete UserSel.Search "Name=Mittellinie;Alle" Z = UserSel.count ... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)