hehoubin 发表于 2012-11-27 02:14:47

原位复制

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

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

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

haoryh 发表于 2012-11-27 08:20:25

路过，支持一下！

ll_j 发表于 2012-11-27 10:28:47

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

hehoubin 发表于 2012-11-27 10:39:44

谢谢
xyp1964






.




版主

自贡黄明儒 发表于 2012-11-27 11:11:06

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

caoyin 发表于 2012-11-27 12:52:46

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

朽木大师 发表于 2013-5-9 15:01:29

功能比较不错，谢谢

菜鸟初来乍到 发表于 2025-1-18 13:46:00

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


感谢大佬分享，谢谢
页: [1]
查看完整版本: 原位复制