自己编的一段AUTOCAD LISP 25
在单位拆零件图，大家都把零件图（尺寸都一样，都是340*240）拆到一个dwg文件里。。。由于零件很多，而且常常需要从其中找出一批零件图拷贝出来，所以自己写了段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"))
) 展开
(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"))
) 展开
1个回答
展开全部
你这个做法不理想，我们公司大家作图时。每个零件都有各自的图层，再用LISP把组合图拆开成单一的零件图。
更多追问追答
追问
呵呵呵。。。我们的零件图是程序自己拆的。。。而且这段lisp我今天自己已经实现了。。。不会就不会，转移话题有意义嘛？
追答
我们在卖lisp third party 时累积了一些经验，提供给你做参考而已。。。。
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
VSH艾羽
2024-10-27 广告
CAD（计算机辅助设计）技术在上海艾羽信息科技有限公司的应用极为广泛。我们利用先进的CAD软件工具，精确高效地绘制产品设计图纸，从二维草图到三维建模，无所不能。这一技术不仅优化了设计流程，缩短了产品从概念到实物的周期，还通过精准的数据分析提...
点击进入详情页
本回答由VSH艾羽提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
