wgij007 发表于 2021-1-25 21:33:10

求一个选取线段的代码

求一个选取线段的代码

框选，两端有相交或相连的不选，有一端或两端都没相交的选中。一般线段

谢谢了。

xyp1964 发表于 2021-1-25 21:33:11

(defun c:tt ()
(setq        i   -1
        ss1 (ssadd)
)
(if (setq ss (ssget '((0 . "*LINE,ARC"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq p1 (vlax-curve-getStartPoint s1)
          p2 (vlax-curve-getEndPoint s1)
      )
      (if (or (= (sslength (ssget "c" p1 p1)) 1)
              (= (sslength (ssget "c" p2 p2)) 1)
          )
        (ssadd s1 ss1)
      )
    )
)
(sssetfirst nil ss1)
(princ)
)

香远益清 发表于 2021-1-26 14:49:06

xyp1964很厉害！这么快就出源码！！
(if (setq ss (ssget '((0 . "*LINE,ARC"))))这一句改为(if (setq ss (ssget '((0 . "*LINE,POLYLINE,ARC"))))更好。

香远益清 发表于 2021-1-26 14:51:35

楼上的，怎么赶快把赏的5币给2楼xyp1964吧

wgij007 发表于 2021-1-26 22:38:42

xyp1964 发表于 2021-1-25 21:33


太感谢了，不是每天都上，想不到回复那么快，谢谢了

ninja37 发表于 2021-1-28 14:39:13

选取这样的线段有什么用啊？

香远益清 发表于 2021-2-14 09:33:14

香远益清 发表于 2021-1-26 14:49
xyp1964很厉害！这么快就出源码！！
(if (setq ss (ssget '(( ...

是的，两个概念，互不包含。polyline是多义线。

wgij007 发表于 2021-4-26 19:05:21

xyp1964 发表于 2021-1-25 21:33


老大，如何选取后改变图层与颜色呀

wgij007 发表于 2022-4-28 08:06:08

这个能帮忙改选中的线段，为红色吗
页: [1]
查看完整版本: 求一个选取线段的代码