| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
25.10.2004, 01:40 | #1 | |
перенос лиспов из атокада 12 в 2004
Сообщений: n/a
|
||
Просмотров: 1796
|
|
||||
Сообщений: n/a
|
в автокаде 12 все работало прекрасно
откуда мне знать как лисп выполнен вот например лисп изменения слоя (defun C:CL () (setvar "cmdecho" 0) (setq cla (getvar "clayer") S (ssget) LY (entsel (strcat "\nSelect object to specify layer <"CLA">: ")) LY (if LY (cdr (assoc 8 (entget (car LY)))) cla) ) (command "change" S "" "p" "la" LY "") (princ "\nMoved to layer ") (eval LY) ) (C:CL) |
|||