alle layers unlocken met lisp (opgelost)

[marcelmaas]

Hi,

Ik heb een scriptje waarmee ik eerst alle lagen uitzet.
Daarna bepaalde lagen aan, en sommig nog op slot.

Nou wil ik hierin nog een regel opnemen om ook nog eerst alle lagen van slot af te halen (unlocken dus), voor het geval er meerdere al op slot zouden staan.
Hoe zou ik deze routine kunnen aanpassen.??


(defun c:leiding ( / ~cmd ~dyn)
(setq ~cmd (getvar "CMDECHO") ~dyn (getvar "DYNMODE"))
(setvar "CMDECHO" 0)(setvar "DYNMODE" 0)
(command "_-LAYER" "_OFF" "*" "_Y" "")
(command "_-LAYER" "_T" "*|*" "_ON" "*|*" "")
(command "_-LAYER" "_ON" "0,HH_R_AANVOER,HH_R_RETOUR,hulplijntje,hulplijntje klein,HH_R_LEIDING,HH_R_HULPLIJNTJE_OPP,xref vermogens" "")
(command "_-LAYER" "_LO" "HH_R_AANSLUIT,HH_R_LEIDING,hulplijntje,xref vermogens" "")
(setvar "DYNMODE" ~dyn)(setvar "CMDECHO" ~cmd)
(princ)
)

[WebRacer]

er zijn ook commando's zoals layloc, layunloc, layoff, layon
toch in de recentere autocads...

[HofCAD]

Beste Marcel,

Bedoel je dit:

Code Selecteer Uitklappen

(defun c:leiding ( / ~cmd ~dyn)
(setq ~cmd (getvar "CMDECHO") ~dyn (getvar "DYNMODE"))
(setvar "CMDECHO" 0)(setvar "DYNMODE" 0)
(command "_-LAYER" "_OFF" "*" "_Y" "_U" "*" "")
(command "_-LAYER" "_T" "*|*" "_ON" "*|*" "")
(command "_-LAYER" "_ON" "0,HH_R_AANVOER,HH_R_RETOUR,hulplijntje,hulplijntje klein,HH_R_LEIDING,HH_R_HULPLIJNTJE_OPP,xref vermogens" "")
(command "_-LAYER" "_LO" "HH_R_AANSLUIT,HH_R_LEIDING,hulplijntje,xref vermogens" "")
(setvar "DYNMODE" ~dyn)(setvar "CMDECHO" ~cmd)
(princ)
)
De regel (command "_-LAYER" "_OFF" "*" "_Y" "") is dus veranderd
in (command "_-LAYER" "_OFF" "*" "_Y" "_U" "*" "")

Met vriendelijke groet, HofCAD CSI.

[marcelmaas]

Beste Hofcad,

Inderdaad zo werkt het.

Bedankt voor de hulp.

Groeten, Marcel..