lisp

wangxiaoling888

(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)
)