楼上的朋友,帮忙做一下,这里谢谢了!!
我来公布一下:用这个命令:^C^C(COMMAND "COPY" (SSGET) "" "M" );一切OK
朋友们,我们共同努力学好CAD!!
to meflying: 你的程序很不错，但和我的程序在效果上有点不同。
我的程序可以看到被复制的物体在屏幕上被拖动的效果。
但你的程序真的很简捷，值得学习。
其实一个人的思想肯定是有限的，看看xuyigu公布的代码，这是BDYCAD版主写的，我的程序比起你的已经相当简单了，但跟这个一比，简直没法比，而且它还有拖动效果。
我写程序的时候还不知道copy本身就有这个功能，看来基础扎实了，开发起来才能得心应手
下面的程序虽然不是最简单的，但也能达到多重复制的目的。
(command "undefine" "copy") (princ)
(defun C:copy()
(setq ss_get (ssget))
(setq get_point (getpoint "\n请指定基点"))
(command ".copy" ss_get "" "m" get_point)
(princ)
)
不是吧，我有点高原反映了。
是不是我把程序按东哥给的那样输入就可以了？？？
还有没有注意事项呢？
hpy发表于2003-10-16 20:45:00static/image/common/back.gif下面的程序虽然不是最简单的，但也能达到多重复制的目的。
(command "undefine" "copy") (princ)
(defun C:copy()
(setq ss_get (ssget))
(setq ge
其实都是把12楼的内容展开了，类似于画蛇添足。我原来也这样
而且你把COPY覆盖了，如果想用一般的COPY岂不是又要麻烦一下？
兴奋是我此刻唯一存在的感觉我照上面的提示,用了1个小时 终于知道了在那里粘贴这个命令.用了一下 真的好啊,那是从头到脚趾的爽
呵呵, 不过有一点小意见,那个地方好象只能修改工具按纽,我要是手输入命令co.它就不多重复制了.
遗憾是最美.没有遗憾就不美吗?
为什么不用Express Tools 的 copym 命令(想要的效果都有,而且带有工具按钮),非要自已动手作呢?
因為很多大俠很聰明, 很少再看書, 喜歡多多交流, 這樣可以了解有沒有更好用的招術. 也是一件好事.
------------------------------------------------------
我愛CAD. 多多指教. 多多學CAD.