Question

自己编的一段AUTOCAD LISP

在单位拆零件图，大家都把零件图（尺寸都一样，都是340*240）拆到一个dwg文件里。。。由于零件很多，而且常常需要从其中找出一批零件图拷贝出来，所以自己写了段LISP，想要搜索某个字符后缩放，然后通过点击鼠标选中图框的左上角，选定周围相应的范围，然后复制，粘贴。但是这小程序总是不好用，求大家看看问题在哪里，如果需要的话我可以把图纸发过去。。。
(setq flag 1)
(while (/= flag 0)
(command "find")
(setq pa (getpoint"点击图框左上位置"))
(setq paa (polar pa 0 340))
(setq pb (polar paa (/ PI 2)-240))
(setq pac (polar pa 0 -1))
(setq pc (polar pac (/ PI 2)-1))
(setq abc (ssget "_c" pb pc))
(command "copyclip" abc)
(command "pasteclip")
(setq flag (getreal"结束输入0"))
)

Answer 1

你这个做法不理想，我们公司大家作图时。每个零件都有各自的图层，再用LISP把组合图拆开成单一的零件图。

追问

呵呵呵。。。我们的零件图是程序自己拆的。。。而且这段lisp我今天自己已经实现了。。。不会就不会，转移话题有意义嘛？

追答

我们在卖lisp third party 时累积了一些经验，提供给你做参考而已。。。。

追问

dude...I worked for NRO for a year, don't metion third party...third party....