天正默认复制 和 lsp调用复制的差别

aihuyujian

如图所示：

这是天正默认的复制之后左边凸窗的情况；



这是lsp调用复制命令后的情况，原来凸窗的尺寸标注没有了，复制后的对象也自动标注了
怎么才能调用copy命令最后的结果跟默认的复制一样呢，大神给解答一下
下面是中点复制的代码，大神看看问题出在哪
(DEFUN C:ZDFZ()
(princ "\选择对象")
(setq s (ssget))
(SETQ d1 (getpoint "\n选取基点"))      
(SETQ d01 (getpoint "\n选取第一点"))         
(SETQ d02 (getpoint d01 "\n选取第二点"))
(setq ang (angle d01 d02))
(setq dis (distance d01 d02))
(setq dis (/ dis 2))
(setq d03 (polar d01 ang dis))
(COMMAND "copy" s "" D1 D03 "" ""))
默认复制跟用copy复制有什么不一样呢

llsheng_73

从代码上看不出你有什么问题，应该是天正的一些原因吧，处理天正的东东的时候最好是能调用它的一些命令或者方法。
我对天正并不了解，只是听说它的一些东东都根CAD的不太一样

aihuyujian

llsheng_73 发表于 2013-11-13 08:38
从代码上看不出你有什么问题，应该是天正的一些原因吧，处理天正的东东的时候最好是能调用它的一些命令或者 ...

嗯 还是很感谢你的帮助 thanks