给用偶尔用天正的朋友的一个小命令
本人基本上是手工绘图，最近天正的自由复制蛮好用的，将拷贝整合了一下，省的大家记这么多命令天正下面使用为天正的自由复制，
正常cad中加载也是连续复制，不选择物体的时候默认上一次的对象，
希望大家喜欢，
大家也可以按这个替换自己在天正下面好用的命令
(defun c:c()
(princ "复制增强，整合天正自由复制，非天正时普通复制，回车默认上一次选择:\n")
(if (not (member "tch_initstart.arx" (arx)))
(progn
(setq ss (ssget))
(if ss (command "copy" ss "" "m")
(command "copy" "p" "" "m")
))
(command "tzkb")
)
)
物尽其用
不错，很实用的东东，一直想自己编一个这个功能的，但一直没时间弄，谢谢
页:
[1]