Evo našao sam jedan lisp.
Otvori Notepad i kopiraj ovaj lisp u njega i snimi ga kao cld.lsp
U Autocad-u napiši Appload i dodaj cld.lsp u Startup Suite da ti se automatski učita s Autocad-om.
Naredbu pozivaš u komandnoj traci sa cld.
Ako trebaš baš ikonu onda malo pogledaj u Help-u ili potraži na internetu kako se to radi. Hint: Customize User Interface
Ja sam layer nazvao KOTE, a ti ga ispravi prema svojim željama. Layer KOTE ili već koji želiš mora postojati prije pokretanja ove naredbe.
(defun c:cld ()
;define the function
;********************************************************
;Save Current Layer as Variable previouslayer
(setq previouslayer (getvar "clayer"))
;**********************************************************
;Start of Command Function
(command "-Layer" "Set" "KOTE" ""
"Dimlinear" pause pause pause
"-Layer" "Set" previouslayer ""
) ;End Command
;End of Command Function
;*********************************************************
(princ)
;finish cleanly
) ;end of defun
Lisp je sa ovih stranica:
www.woodweb.com/knowledge_base/Coding_a_..._Layer_Shortcut.html
