个人开发-五金连续模设计-更层拷贝autolisp

chenjian1

;;;********************************************************************1
;;;将选取的图形拷贝到指定的图层 Command:k
;;;2004-01-08     Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun c:K(/ en2 en3 yesno)
  (setvar "cmdecho" 0)
  (princ "请选取欲拷贝的图形:")
  (setq en2 (ssget))            ;选取欲拷贝的图形
  (if (= en2 nil)
    (sub-quit)
    (sub-kkk en3 chklay YESNO)
    )
  )

(defun sub-kk()
  (command "copy" en2 ""  "0,0" "")
  (command "change" en2 "" "p" "la" en3 "")
  (princ "\n所选图已拷贝到图层")
  (prin1 en3)
  (prin1))

(defun sub-kkk (en3 chklay yesno)
  (setq en3 (getstring "请输入图层名:"))
  (if (= en3 "")
    (progn (sub-quit))
    (progn (setq chklay (tblsearch "layer" en3))
           (if (= chklay nil)
             (progn(setq yesno(getstring "\n层不存在，是否建立<N>:"))
                    (if        (or (= yesno "Y") (= yesno "y"))
                      (progn
                        (command "layer" "n" en3 "")
                        (sub-kk)
                      )
                      (progn (sub-quit))
                    )
             )
             (progn (sub-kk))
           )
    )
  )
)
有问题请E-mail:ChenJianCaiHong@163.com

chenjian1