原位复制

hehoubin

    请帮我看下这个小问题，
原位复制。我这样写会出现不再同一位置，请大帮忙！
  (defun c: ccc ()
(SETQ SS(SSGET))
       (command "copy" ss "" "d" "0, 0, 0" "" ))

xyp1964

2. (defun c:ccc ()
   
3.   (if (SETQ SS (SSGET))
   
4.     (command "copy" ss "" "non" '(0 0) "non" '(0 0))
   
5.   )
   
6.   (princ)
   
7. )

(defun c:ccc ()<br />   (if (SETQ SS (SSGET))<br />     (command "copy" ss "" "non" '(0 0) "non" '(0 0))<br />   )<br />   (princ)<br /> )

haoryh

路过，支持一下！

ll_j

用“(command ".copy" ss "@" "")”。

hehoubin

谢谢
xyp1964






.




版主

自贡黄明儒

在这里http://bbs.mjtd.com/thread-96543-1-1.html，我收录了很多原位复制

caoyin

(entmake(entget(car(entsel))))
或
vla-copy

朽木大师

功能比较不错，谢谢

菜鸟初来乍到

xyp1964 发表于 2012-11-27 06:33

感谢大佬分享，谢谢