纯LISP方法取得选择集中首尾相连的直线函数

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

感谢大神分享

账号		自动登录	找回密码
密码			注册

[源码] 纯LISP方法取得选择集中首尾相连的直线函数