给用偶尔用天正的朋友的一个小命令

tranney

本人基本上是手工绘图，最近天正的自由复制蛮好用的，将拷贝整合了一下，省的大家记这么多命令
天正下面使用为天正的自由复制，
正常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")
        )
)

伪书虫86

物尽其用

★飞飛★

不错，很实用的东东，一直想自己编一个这个功能的，但一直没时间弄，谢谢