CADsite forum

Kan iemand helpen?

Hoe maak je een lisp om meerdere lagen gelijktijdig te freezen maw het omgekeerde van thawall.

Groetjes,

Will

Beste Will,

Als je gebruikt maakt van de knop "layer freeze" vanop de toolbar ET: Layers merk je dat je uw lagen moet selecteren.
Dus hier kun je met geen lisp file werken.
Wat je wel kunt is gebruik maken van -layer. Dan kun je verschillende lagen freezen door de naam op te geven.

Voorbeeld

(defun c:uit ()
  (command "-layer" "freeze" "laag1" "freeze" "laag2" "")
  )

Gewoon laag1 enz veranderen door uw lagen die je wilt afleggen.

Mvg

Kenny

of nog korter:

(defun c:uit ()
(command "-layer" "freeze" "laag1,laag2,laag2" "")
)

of allemaal:

(defun c:alluit ()
(command "-layer" "freeze" "*" "")
)

Bedankt iedereen voor de snelle reactie


Groetjes,

Will

een beetje laat, ik heb dit lispje onder een button gezet.
Omdat ik vaak tekeningen van derden krijg en een ieder er een zooitje van maakt met de layer-benaming werkt dit erg makkelijk.
Door het aanwijzen van een object op de te freeze laag wordt de laag uitgeschakeld.
(defun c:lfr (/ a2 b2 l1 l2)
     (graphscr)
     (prompt "Select entity on target layer ") (terpri)
     (setq a2 (entsel))
     (setq b2 (entget (car a2)))
     (setq l1 (assoc 8 b2))
     (setq l2 (cdr l1))
     (command "layer" "s" "0" "f" l2 "")
)
(princ)

Kijk maar Koos

Bedankt Koos

Groetjes,

Will