[boretskiy.a]

Пробую через Lisp запустить команду "_pline" выбраного типа линии, которая
заносилась бы на определенний слой, а по завершении возвращался текущий
слой. В программированиии профан, пытаюсь но тщетно. Может кто поправит?
Буду очень признателен.

(defun C:gass ( / cl )
(if (not (tblsearch "LTYPE" "ГАЗс")
(command "_-linetype" "_l" "ГАЗс" "truba.lin" "_s" "ГАЗс" "")
(if (/= (getvar "CELTYPE") "ГАЗс")(setvar "CELTYPE" "ГАЗс"))
(setq cl (getvar "CLAYER" "0"))
(command "_-layer" "_m" "ТРУБОПРОВОДЫ" "")
(command "_pline")
(while (= (getvar "cmdactive") 1)(command pause))
(setvar "CLAYER" cl))))
(C:gass)
;;
;;
(defun C:fack ( / cl )
(if (not (tblsearch "LTYPE" "Канализация")
(command "_-linetype" "_l" "Канализация" "truba.lin" "_s" "Канализация" "")
(if (/= (getvar "CELTYPE") "Канализация")(setvar "CELTYPE" "Канализация"))
(setq cl (getvar "CLAYER" "0"))
(command "_-layer" "_m" "ТРУБОПРОВОДЫ" "")
(command "_pline")
(while (= (getvar "cmdactive") 1)(command pause))
(setvar "CLAYER" cl))))
(C:fack)

[name02]

Код:

[Выделить все]

 (defun C:gass ( / cl )
(if (not (tblsearch "LTYPE" "ГАЗс")
(command "_-linetype" "_l" "ГАЗс" "truba.lin" "_s" "ГАЗс" "")
(if (/= (getvar "CELTYPE") "ГАЗс")(setvar "CELTYPE" "ГАЗс"))
(setq cl (getvar "CLAYER" "0"))
(command "_-layer" "_m" "ТРУБОПРОВОДЫ" "")
(command "_pline")
(while (= (getvar "cmdactive") 1)(command pause))
(setvar "CLAYER" cl))))
(C:gass)

У тебя в 5 строке ошибка - неправильный синтаксис функции getvar:
(setq cl (getvar "CLAYER" "0"))