taoyi0727 发表于 2018-7-19 09:48:51

好程序都是在这种不起眼的贴子里

852456 发表于 2018-8-11 19:49:33

看帖回帖是美德

paulpipi 发表于 2018-8-12 10:24:28


好程序，正在找一个能选择首尾相连线段的。

开心68602 发表于 2020-4-18 09:30:10

qcw911 发表于 2013-3-19 15:10
来自： http://zml84.blog.sohu.com/221693089.html

;;;=========================================== ...

老师：我用你发的这个插件时提示：参数类型错误: lselsetp nil，求助怎么解决

树櫴希德 发表于 2020-9-12 09:02:05

Gu_xl 发表于 2010-10-14 12:04
问题解决了！

(command "copybase" pause ssrtl "")
(command "copybase" "0,0,0" ssrtl "")

nijiea123 发表于 2020-12-15 16:12:18

正需要这个程序 太好了 很不错

趣意人生 发表于 2021-1-29 20:01:47


顶啊! 好东西！

xyz002 发表于 2022-3-5 17:05:17

感谢分享                                 

htxhtx 发表于 2022-6-15 11:16:50

只能是直线 没有曲线圆弧啊

llsheng_73 发表于 2022-6-17 11:13:00

本帖最后由 llsheng_73 于 2022-6-17 11:25 编辑

(defun s2e(s / n lst)(if(=(type s)'pickset)(repeat(setq n(sslength s))(setq n(1- n)lst(cons(ssname s n)lst)))))
(defun chains(es fuz / e a b s pts)
(setq s(ssadd))
(while es
    (setq e(car es)es(cdr es)
          p1(mapcar'+'(0 0)(vlax-curve-getStartPoint e))p2(mapcar'+'(0 0)(vlax-curve-getendPoint e)))
    (foreach a(S2E(ssget"CP"(list p1(list(car p1)(cadr p2))p2(list(car p2)(cadr p1)))'((0 . "arc,*spline,*polyline,line"))))
      (or(SSMEMB a s)
         ((lambda()
            (setq p1(mapcar'+'(0 0)(vlax-curve-getStartPoint a))
                  p2(mapcar'+'(0 0)(vlax-curve-getendPoint a)))
            (and(vl-some'(lambda(x)(or(equal p1 x fuz)(equal p2 x fuz)))pt)
                (setq es(cons a es)pt(vl-list* p1 p2 pt))
                (ssadd a s)))))))
(sssetfirst'nil s))

(defun c:tt()
(chains(s2e(ssget'((0 . "arc,*spline,*polyline,line"))))0.1))
页: 1 2 3 [4] 5
查看完整版本: 首尾相连的N条直线 选中其中任何一条都能选中N条线段 如何用lisp实现啊