---

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

---

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

---

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

---

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

---

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

---

Genau, das wäre vermutlich meine nächste Frage gewesen.

Danke und Gruß Wolfgang

------------------
"Früher war die Zunkunft besser"
-Karl Valentin-

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