(DEFUNC:ck()(SETQSS(SSGET))(if(=ssnil)(progn(prompt"\n选择要被复制之对象:")(setqss(ssget))))(setqs(getint"\n选择项目(1)输入要得到的层名?/(2)选择要被复制的图层:"))(...
(DEFUN C:ck()(SETQ SS(SSGET))
(if(= ss nil)
(progn (prompt "\n选择要被复制之对象:")
(setq ss (ssget))))
(setq s(getint"\n选择项目(1)输入要得到的层名?/ (2)选择要被复制的图层: "))
(if (= S 2 )(progn (while
(setq LAY (entsel "\n选择要被复制的图层 "))
(setq LAY (cdr (assoc 8 (entget (car LAY)))))
(if ( = lay nil)(progn(SETQ LAY(getstring "\n被复制层已选择"))))
(princ)(COMMAND"COPY" SS "" "0,0" "0,0" )
(COMMAND "CHPROP" SS "" "LA" lay "" "" "")))
(princ))(if (or(= S 1 ) (= s nil))
(progn(while(SETQ LAY(GETSTRING"\n输入要得到的层名:"))
(COMMAND"COPY" SS "" "0,0" "0,0" )
(COMMAND "CHPROP" SS "" "LA" lay "" "" ""))))
(if ( = lay nil)(progn(SETQ LAY(getstring "\n层名已输入,哈哈"))))
(princ)(command "ucs" "v")
(command "undo" "end")(PRINC)
)
谁帮我改一改,不胜感激
展开