emadageeb 发表于 2022-7-5 15:33:14

lisp用于从中提取区域

http://img836.imageshack.us/img836/3079/unled1n.jpg我正在从事城市规划工作,我有一个大项目,有大量的地块,我需要一个lisp对封闭地块进行编号,它不能用直线绘制,并将相同编号的区域提取到autocad中的一个选项卡中,所以有人可以用lisp帮我,这样我只能单击区域

LibertyOne 发表于 2022-7-5 15:38:37

这应该是一个有趣的社区项目。我在考虑绘图的闭合多段线。不是线条。可以更容易地获得闭合多段线的面积。

emadageeb 发表于 2022-7-5 15:40:14

好的,我可以先用同样的lisp将线转换为pltyline,然后提取面积吗

LibertyOne 发表于 2022-7-5 15:45:05

你们有什么Acad版本?如果具有2008或更高版本,则可以为每个打印创建边界多段线。在命令行中键入“_BPOLY”,然后单击按钮,在要边界的区域中选择一个点。今天我编写了一些代码,看看如何创建一个程序来收集信息,并能够列出图的大小。它有点面向未来,这意味着您可以将其用于其他项目,只要图形始终将绘图作为多段线。

emadageeb 发表于 2022-7-5 15:46:09

我正在将autocad 2008和thanhs用于_bploy命令
此外,如果我有多段线,我仍然要求对绘图进行编号,并通过单击拾取点获得表中的面积

LibertyOne 发表于 2022-7-5 15:50:09

大约十年前,我在AutoLisp中编写了一个房间明细表。如果这对你有帮助的话,这个周末让我看看。

emadageeb 发表于 2022-7-5 15:54:39

谢谢你的关心(LibertyOne)&我在等你:)

Lee Mac 发表于 2022-7-5 15:57:05

我写这篇文章很有趣,也许它会帮助你:
 
See later post for latest code

stevesfr 发表于 2022-7-5 15:58:48

李,这个不行。从表格开始,首先标记区域,然后标记此区域
命令:at
表的拾取点:
拾取区域:
**错误:自动化错误。不适用**
使用Acad2008 vanila
实体为LWpoly,textsize set ok
史蒂夫

Lee Mac 发表于 2022-7-5 16:03:19

嗨,史蒂夫,
 
感谢您的反馈-我认为这是一个版本问题,因为(如gif所示),我对代码没有问题(至少在闭合的多段线和圆上)。
 
你能告诉我代码崩溃的那一行吗?
 
(打开VLIDE,Ctrl+O(打开文件),打开上述程序,调试->出错时中断(勾选),Ctrl+Alt+E(加载代码),在ACAD中运行程序->崩溃时:调试->上次中断源(Ctrl+F9),记下高亮显示的代码段的行号。重置错误(Ctrl+R)。
 
谢谢
 
页: [1] 2
查看完整版本: lisp用于从中提取区域