从多段线端点获取块

satishrajdev · 发表于 2022-7-5 18:43:38

你好

我有一条多段线，它在起点与块相连。如何通过仅选择多段线来跟踪该块定义。
注意-多段线端点和块插入点不同。

请看图片

Tharwat · 发表于 2022-7-5 19:23:33

试一下这个程序，它应该选择一个块的边界框是否正在获取所选多段线的起点或终点。

[code]（定义c：测试（/ad s pts ss i o r l lst x y z st nd）；；塔瓦2015年8月20日；；（if（and（setq ad（ssadd）s（car（entsel“\n选择LWpolyline：”））（eq（cdr（assoc 0（entget s）））“LWpolyline”）（setq st（vlax curve getstartpoint s）nd（vlax curve getendpoint s）pts（mapcar“cdr（vl remove if not）”（lambda（p）（eq（car p）10））（entget s）)）（setq ss（ssget“_F”pts’（（0。“INSERT”）））（repeat（setq i（sslength ss））（vla getboundingbox（vlax ename->vla object（setq o（ssname ss（setq i（1-i））））））‘r’l）（和r l（setq lst（mapcar‘vlax safearray->list（list r l））x（mapcar‘car lst）y（mapcar‘cadr lst）z（mapcar‘caddr lst））（或（应用’和（mapcar’（λ（a b）（

satishrajdev · 发表于 2022-7-5 19:25:22

这就是我所需要的。。。。。非常感谢Tharwat。。。

Tharwat · 发表于 2022-7-5 20:01:14

太好了，非常欢迎你。

[编程交流] 从多段线端点获取块

发表回复

精选推荐