【转帖】老顾版主请教一个问题！
 

老顾版主请教一个问题！
www.dimcax.com
老顾版主请教一个问题！
图片：

如图，做1、2、3三个红色的图，我先在“1”出画了一个，再用旋转命令得到“h”，再用移动命令得到“2”，再用复制得到“3”
用到这么多命令比较麻烦，能不能帮我编成一个命令就可以搞定？
另外能不能把后面的移动和复制的"选择基点"去掉?
因为是做编成的，刀路不能镜像，所以只能这么麻烦！
多谢！

怎么没有人帮我 啊

图片：

图片：

图片：

我给你编了一个程序：
你将cop.rar拷贝到你的cad下解压为cop.lsp是原处、程序为原程序。
在命令下用(load"cop")回车就可使用了。
你的目标要是一根整线，如不是你用pedit去编为一根线。
在命令下输入cop回车，软件提示：
选择要拷贝的目标:
你用鼠标选择要拷贝的目标。软件提示：
输入基点：你用鼠标点入基点。软件提示：
要旋转的角度:
你用键盘输入要旋转的角度，是相对它自身，软件提示：
要拷贝处:
你用鼠标点你要拷贝处。回车就退出本次拷贝，进入另一次拷贝。
软件提示：
要旋转的角度:当不输入角度回车就退出拷贝。
当你输入角度 ，是相对它自身，软件提示：
要拷贝处:
你用鼠标点你要拷贝处。回车就退出本次拷贝，进入另一次拷贝。

2
gbg

太好了老顾，就是要这种效果
用到工作上了，多谢啦！

呵呵

哦哦哦

老顾,还要再修改一下,当我取消的时候按"esc"键或敲两下回车键,它会在原来的地方多生出一个图形,,怎样使它会自动删掉?谢谢了

老顾,还要再修改一下,当我取消的时候按"esc"键或敲两下回车键,它会在原来的地方多生出一个图形,,怎样使它会自动删掉?谢谢了

应按软件的要求来操作，它用汉字来提示:
gbg

老顾版主，里面我修改了一下，最后应该是
(while a
(setq p2 (getpoint "复制到:"))
(if (/= p2 nil)(command p2)
(progn
(command """erase" een "")
(setq a nil))
)
)
(if (= p2 nil)(setq p1 nil))
)
才不会出现在原图形重复的现象。

好东西啊！