[Badulaque]

Набираю в блокноте
(defun C:sr2()
(command "linetype" "load" "ISO04w100" "acadiso.lin" "" "")
(command "layer" "new" "lay1"
"new" "lay2"
"ltype" "ISO04w100" "lay1"
"color" "102" "lay1"
"color" "magenta" "lay2"
"set" "lay1")
(princ)
)
сохраняю с расширение lsp, подгружаю в autocad, _appload sr2.lsp successfully loaded, но окно загрузки не закрывается, после энного нажатия кнопки close, наконец закрывается, но Unknown command "SR2". Press F1 for help. Проблема в коде?? Заранее благодарна ))

[Arkady]

1.Окно Appload не закрывается - нжно закрывать вручную кнопкой Close.
2.Код в порядке - скорее всего команда SR2 уже определена.
3.Перед загрузкой типа линий нужно сделать проверку на наличие типа линий в чертеже :

Код:

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

(if (not (tblsearch "LTYPE" "ISO04w100"))
   (command "_.linetype" "_load" "ISO04w100" "acadiso.lin" "" "") 
)

4.Во всех вызовах command использоваь "_." перед именем команды

Код:

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

(defun C:sr2() 
(if (not (tblsearch "LTYPE" "ISO04w100"))
   (command "_.linetype" "_load" "ISO04w100" "acadiso.lin" "" "") 
)
(command "_.layer" "_new" "lay1" 
"_new" "lay2" 
"_ltype" "ISO04w100" "lay1" 
"_color" "102" "lay1" 
"_color" "magenta" "lay2" 
"_set" "lay1" "") 
(princ) 
)

[Apelsinov]

По поводу создания слоев:
http://dwg.ru/forum/viewtopic.php?t=...r=asc&start=15

Badulaque
посмотрите встроеный в акад редактор для lisp, вызываемый командой _.vlide - это много удобнее блокнота.

вместо (command ...
используйте (VL-CMDF ...

И, если не секрет, а вам это все зачем?

[Alan]

Apelsinov опередил. Гуру, что с него взять!
Добавлю свои пять копеек.
Очень поможет потом тема "LISP. Общее. Загрузка файла. Вызовы функций"
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=19612AN