| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: AMDTNOTE auswählen (840 mal gelesen)
|
Wolli Mitglied Konstrukteur
Beiträge: 704 Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware I7 12GB ACAD Mech 2010 = Mech 2012 Inventor Pro 2010 + 2012 Ansys 13 NLS
|
erstellt am: 11. Jan. 2005 09:39 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, ich muß zu Dokumentations-Zwecken aus einer großen Anzahl von Zeichnungen unsere Positionsnummern entfernen oder zumindest ausblenden. Die Pos.-Nummern sind Objekte vom Typ AMDTNOTE auf dem Layer AM_5 wie auch die Bemaßung die nicht ausgeblendet werden darf. Mit der Schnellauswahl kann ich die Pos.-Nummern selektieren und dann löschen. Könnte man das noch einfacher mit einem Klick über ein lisp machen? Danke und Gruß Wolfgang ------------------ "Früher war die Zunkunft besser" -Karl Valentin- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2024, Civil 3D, MDT, RD Inventor AIP 7-2024 W10/11 32/64
|
erstellt am: 11. Jan. 2005 09:44 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
Schnellauswahl ist doch gut! Die Pos. Nr. einfach auf einen separaten Layer verlegen und für die Dokumentation diesen Layer einfach Ein- und Ausschalten bzw. im Ansichtsfenster aus dem Layout frieren - oder hab ich die Aufgabenstellung missverstanden? ------------------ Mit freundlichem Gruß
Udo Hübner
[Diese Nachricht wurde von CAD-Huebner am 11. Jan. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 ACAD 2011 Mechanical ff
|
erstellt am: 11. Jan. 2005 09:52 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
Wie wäre es hiermit: (defun Visible(OBJECTNAME PROPERTY VALUE / BLOCK ) (vl-load-com) (if (=(type OBJECTNAME)'STR) (progn (vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT)) (if(=(strcase(vla-get-objectname ITEM))(strcase OBJECTNAME)) (vl-catch-all-error-p (vl-catch-all-apply 'vlax-put-property (list ITEM PROPERTY VALUE) ) ) ) ) ) (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM BLOCK (if(=(strcase(vla-get-objectname ITEM))(strcase OBJECTNAME)) (vl-catch-all-error-p (vl-catch-all-apply 'vlax-put-property (list ITEM PROPERTY VALUE) ) ) ) ) ) ) ) (vla-regen(vla-get-activedocument (vlax-get-acad-object)) acAllViewports) ) (defun C:AMNOTE-INVISIBLE() (VISIBLE "AmdtNote" 'VISIBLE :vlax-false) ) (defun C:AMNOTE-VISIBLE() (VISIBLE "AmdtNote" 'VISIBLE :vlax-true) ) Nach dem Laden hast du dann 2 Befehle : AMNOTE-INVISIBLE .. blendet die Pos-nummern aus AMNOTE-VISIBLE .. blendet sie wieder ein ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Wolli Mitglied Konstrukteur
Beiträge: 704 Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware I7 12GB ACAD Mech 2010 = Mech 2012 Inventor Pro 2010 + 2012 Ansys 13 NLS
|
erstellt am: 11. Jan. 2005 10:48 <-- editieren / zitieren --> Unities abgeben:
Hallo, @Udo, die Schnellauswahl ist nicht schlecht, nur braucht man dazu immer noch 5 Klicks. @Thomas, flutscht super, besser als ich gehofft hatte. Vielen Dank Gruß Wolfgang ------------------ "Früher war die Zunkunft besser" -Karl Valentin- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 ACAD 2011 Mechanical ff
|
erstellt am: 11. Jan. 2005 11:06 <-- editieren / zitieren --> Unities abgeben: Nur für Wolli
noch als Ergänzung , da für Dokuzwecke auch oft die Schweißzeichen oder so was stören.. die Funktion ist schnell angepasst.. für Schweißzeichen z.B. so : (defun C:AMWELD-INVISIBLE() (VISIBLE "AcmWelding" 'VISIBLE :vlax-false) ) (defun C:AMWELD-VISIBLE() (VISIBLE "AcmWelding" 'VISIBLE :vlax-true) ) usw. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Wolli Mitglied Konstrukteur
Beiträge: 704 Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware I7 12GB ACAD Mech 2010 = Mech 2012 Inventor Pro 2010 + 2012 Ansys 13 NLS
|
erstellt am: 11. Jan. 2005 12:43 <-- editieren / zitieren --> Unities abgeben:
|