从多段线端点获取块
你好我有一条多段线，它在起点与块相连。如何通过仅选择多段线来跟踪该块定义。
注意-多段线端点和块插入点不同。
请看图片
试一下这个程序，它应该选择一个块的边界框是否正在获取所选多段线的起点或终点。
（定义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）（ 这就是我所需要的。。。。。非常感谢Tharwat。。。
太好了，非常欢迎你。
页:
[1]