[LISP程序]：选择集--返回与点击曲线首尾相连的所有曲线

lsjjm

选择集--返回与点击曲线首尾相连的所有曲线
[php]
(defun c:test ( )
  (setq ss (ssadd))
  (setvar "osmode" 0)
  (setq a (car (entsel)) a0 a)
  (ptt a)
  (setq p1 pt1 p2 pt2)
  (foreach i (list p1 p2)
    (setq loop t)
    (while loop
      (setq ee (ssget "c" (polar i 0.7853 0.0001)(polar i 3.9267 0.0001)))
      (cond ((> (sslength ee) 2)
        (acet-ui-message "Too many Line!" "SmartTool" 48)
        (quit))
      )
      (if (> (sslength ee) 1)
        (progn
          (ssdel a ee)
          (ptt (ssname ee 0))
          (ssadd (ssname ee 0) ss)
          (if (equal pt1 i 0.001)(setq i pt2)(setq i pt1))
          (setq a (ssname ee 0))
        )
        (setq loop nil)
      )
    )
    (setq a a0)
  )
  (ssadd a0 ss)
)
(defun ptt (ent)
  (setq pt1 (vlax-curve-getstartPoint ent))
  (setq pt2 (vlax-curve-getEndPoint ent))
)
[/php]

f5612140

如果線段連接方式為樹枝狀呢?

lsjjm

最初由 f5612140 发布
[B]如果線段連接方式為樹枝狀呢? [/B]

提示警告tui出:
    (cond ((> (sslength ee) 2)
        (acet-ui-message "Too many Line!" "SmartTool" 48)
        (quit))
      )

f5612140

最初由 lsjjm 发布
[B]
提示警告tui出:
    (cond ((> (sslength ee) 2)
        (acet-ui-message "Too many Line!" "SmartTool" 48)
        (q... [/B]

不好意思,我想說的是線段頭尾銜接的好處理,如果像樹枝狀銜接方式的如何都併在選集裡

zj-11

(polar i 0.7853 0.0001) (polar i 3.9267 0.0001)
0.7853 与3.9267有什么用

lsjjm

最初由 zj-11 发布
[B](polar i 0.7853 0.0001) (polar i 3.9267 0.0001)
0.7853 与3.9267有什么用 [/B]

就是角度.(/ pi 4), (* 1.25 pi)

陌生人

借花献佛，帮lsjjm完善了一下（不会有意见吧？：） ）
1。设置osmode恢复
2。阈值提示
3。预选选集(只是为了方便看到结果)
修改后，可以按阈值选择端点在阈值范围内的实体（不必首尾相连！）
但限于原程序的方法，阈值只能以正方对角的一半来取（非模拟圆形，因此有些在阈值内的实体不一定选得到，但操作时可以适当放宽阈值来取得符合要求的选集）

本想发个演示，不能上传：（

[php]
(defun c:sbe (/ ss os a a0 d p1 pt1 p2 pt2 loop ee ) ;sbe = select by end to end
  (setq ss (ssadd)
        os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq a (car (entsel))
        a0 a
        d  (getdist "\n阈值<0>:"))
  (if (not d)(setq d 1e-4))
  (ptt a)
  (setq p1 pt1 p2 pt2)
  (foreach i (list p1 p2)
    (setq loop t)
    (while loop
      (setq ee (ssget "c" (polar i 0.7853 d)(polar i 3.9267 d)))
      (cond ((> (sslength ee) 2)
        (acet-ui-message "Too many Line!" "SmartTool" 48)
        (quit))
      )
      (if (> (sslength ee) 1)
        (progn
      (ssdel a ee)
      (ptt (ssname ee 0))
          (ssadd (ssname ee 0) ss)
          (if (equal pt1 i d)(setq i pt2)(setq i pt1))
          (setq a (ssname ee 0))
        )
        (setq loop nil)
      )
    )
    (setq a a0)
  )
  (ssadd a0 ss)
  (setvar "osmode" os)
  (sssetfirst ss ss)
)
(defun ptt (ent)
  (setq pt1 (vlax-curve-getstartPoint ent))
  (setq pt2 (vlax-curve-getEndPoint ent))
)
[/php]

lijiao

建议不要用SSGET构造的选择集来进行判断，因为当图形缩小到一定程度，会有错误的判断，我吃过这样的亏。

aeo

http://www.xdcad.net/forum/showthread.php?s=&threadid=211384

取上面一部分.
只要连在一起的都进去.