---

Hallo Leute,

Ich möchte gerne mit einer Lisp-Routine alle Ansichtfenster, die sich in mehreren Layouts befinden, in meiner Zeichnung sperren. Ist das möglich ? Kann mir einer helfen. Ich tippe ja auf den Befehl ssget "X" und dann ?????

Bis dann

Detlef

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

---

wie wärs hiermit:
(defun c:VIEWPORT-LOCKALL( / BLOCK ) 
  (vl-load-com)   
  (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))"ACDBVIEWPORT")
        (vl-catch-all-error-p
          (vl-catch-all-apply                 
            'vla-put-DisplayLocked
              (list ITEM :vlax-true)
          )
        )         
      )
    ) 
  )                                           
  (vla-regen(vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
)

------------------
- 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 Cadmium,

wahrscheinlich haut die Antwort hin. Ich habe aber vergessen zu sagen, dass das Tool auf LT 2002 + Extender laufen muss. Deshalb wahrscheinlich die Fehlermeldung: Fehler: no function definition: VLAX-GET-ACAD-OBJECT. Gibts auch eine andere Lösung ?

Detlef

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

---

Hi,

da Viewports nicht "entmodet" werden können, bleibt nur command:

Code:

---

(if (and (setq ss (ssget "x" '((0 . "VIEWPORT"))))
(> (sslength ss) 1)
    )
  (foreach i (layoutlist)
        (setvar "CTAB" i)
    (command "_.mview" "_Lock" "_On" ss "")
  )
)

---

Gruß
CADchup

------------------
www.cadditions.de

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

---

Super

Vielen Dank für die Hilfe

Detlef

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