mokson 发表于 2021-8-31 08:11:48

分享一下 lee-mac 的 chain selection 程序：
http://www.lee-mac.com/lisp/ChainSelV1-1.lsp

有约不来过夜半 发表于 2021-9-10 10:01:44

感谢大佬分享

wang2006zhi 发表于 2021-10-27 10:39:35

我也搞了一个，利用过某点选选择循环得到相连线的点
        (while (setq ent (car line_wall_list))
                (setq pt0 (w:get-dxf ent 10))
                (entdel ent)
                (setq pts (list pt0))
                (if (and pt0)
                        (vla-ZoomWindow (vlax-get-acad-object)
                                (vlax-3d-point (w:get-npt pt0 50000 50000 0))
                                (vlax-3d-point (w:get-npt pt0 -50000 -50000 0))
                        )
                )
                (while (and
                                               (setq ss (ssget "C" pt0 pt0 (list (cons 0 "LINE")(cons 8 "砼墙"))))
                                               (if (and ss)(setq lst (w:ss->lst ss)))
                                               (setq ent1 (car lst))
                                               (setq pt0_10 (w:get-dxf ent1 10))
                                               (setq pt0_11 (w:get-dxf ent1 11))
                                               (if(equal pt0 pt0_10 1e-6) (setq pt0 pt0_11)(setq pt0 pt0_10))
                                       )
                        (setq pts (cons pt0 pts))
                        (setq line_wall_list (vl-remove ent1 line_wall_list))
                        (entdel ent1)
                )
                (setq wallent (w:mk-pline pts (list (cons 8 wall) (cons 62 256)(cons 70 1))))
                (w:vl-hatch wallent "ANSI31" 100 256 wall_hacth 0)
                (setq line_wall_list (cdr line_wall_list))
        )

p-3-ianlcc 发表于 2021-10-27 11:39:04

很實用的工具，可以把多段線連接起來
真的很謝謝分享！

表骑马实开车 发表于 2021-10-29 17:32:49

很实用，感谢分享

vbnewer 发表于 2021-10-29 19:13:28

使用这个函数和使用pedit的区别是什么？效果上有哪些不同？

894560869 发表于 2022-2-11 07:51:06

请教(真假)多段线首尾相连,判断是长方形还是正方形

894560869 发表于 2022-2-11 08:02:29


请教(真假)多段线首尾相连,判断是长方形还是正方形(判断边长是否相等)

weimeng555 发表于 2024-3-22 02:22:36

感谢大神分享
页: 1 2 [3]
查看完整版本: 纯LISP方法取得选择集中首尾相连的直线函数