CADsite forum

AutoCAD => Autolisp => Topic gestart door: marcelmaas op ma 27 04 2009, 12:29:14

Titel: alle layers unlocken met lisp (opgelost)
Bericht door: marcelmaas op ma 27 04 2009, 12:29:14
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)
)
Titel: Re: alle layers unlocken met lisp
Bericht door: WebRacer op ma 27 04 2009, 13:06:19
er zijn ook commando's zoals layloc, layunloc, layoff, layon
toch in de recentere autocads...
Titel: Re: alle layers unlocken met lisp
Bericht door: HofCAD op ma 27 04 2009, 13:24:10
Beste Marcel,

Bedoel je dit:
(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.
Titel: Re: alle layers unlocken met lisp
Bericht door: marcelmaas op di 28 04 2009, 13:15:39
Beste Hofcad,

Inderdaad zo werkt het.

Bedankt voor de hulp.

Groeten, Marcel..