lisp用于从中提取区域
http://img836.imageshack.us/img836/3079/unled1n.jpg我正在从事城市规划工作,我有一个大项目,有大量的地块,我需要一个lisp对封闭地块进行编号,它不能用直线绘制,并将相同编号的区域提取到autocad中的一个选项卡中,所以有人可以用lisp帮我,这样我只能单击区域 这应该是一个有趣的社区项目。我在考虑绘图的闭合多段线。不是线条。可以更容易地获得闭合多段线的面积。 好的,我可以先用同样的lisp将线转换为pltyline,然后提取面积吗 你们有什么Acad版本?如果具有2008或更高版本,则可以为每个打印创建边界多段线。在命令行中键入“_BPOLY”,然后单击按钮,在要边界的区域中选择一个点。今天我编写了一些代码,看看如何创建一个程序来收集信息,并能够列出图的大小。它有点面向未来,这意味着您可以将其用于其他项目,只要图形始终将绘图作为多段线。 我正在将autocad 2008和thanhs用于_bploy命令此外,如果我有多段线,我仍然要求对绘图进行编号,并通过单击拾取点获得表中的面积 大约十年前,我在AutoLisp中编写了一个房间明细表。如果这对你有帮助的话,这个周末让我看看。 谢谢你的关心(LibertyOne)&我在等你:) 我写这篇文章很有趣,也许它会帮助你:
See later post for latest code 李,这个不行。从表格开始,首先标记区域,然后标记此区域
命令:at
表的拾取点:
拾取区域:
**错误:自动化错误。不适用**
使用Acad2008 vanila
实体为LWpoly,textsize set ok
史蒂夫 嗨,史蒂夫,
感谢您的反馈-我认为这是一个版本问题,因为(如gif所示),我对代码没有问题(至少在闭合的多段线和圆上)。
你能告诉我代码崩溃的那一行吗?
(打开VLIDE,Ctrl+O(打开文件),打开上述程序,调试->出错时中断(勾选),Ctrl+Alt+E(加载代码),在ACAD中运行程序->崩溃时:调试->上次中断源(Ctrl+F9),记下高亮显示的代码段的行号。重置错误(Ctrl+R)。
谢谢
李
页:
[1]
2