lisp
(DEFUN C:ffff()(princ "\n層復制: ")
(setq pp (ssget))
(setq LAY (getvar "CLAYER"))
(COMMAND "COPY" pp "" "0,0" "0,0")
(COMMAND "CHPROP" "P" "" "LA" lay "LT" "bylayer" "C" "bylayer" "")(princ))
(defun c:rf()
(print "局部重生")
(SETQ SS (SSGET))
(COMMAND "SCALE" SS "" "0,0,0" "1")
(prin1)
)
页:
[1]