首尾相连的N条直线 选中其中任何一条都能选中N条线段 如何用lisp实现啊

taoyi0727

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

852456

看帖回帖是美德

paulpipi

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

开心68602

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

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

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

树櫴希德

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

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

nijiea123

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

趣意人生

顶啊! 好东西！

xyz002

感谢分享                                   

htxhtx

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

llsheng_73

1. (defun s2e(s / n lst)(if(=(type s)'pickset)(repeat(setq n(sslength s))(setq n(1- n)lst(cons(ssname s n)lst)))))
   
2. (defun chains(es fuz / e a b s pts)
   
3. (setq s(ssadd))
   
4.   (while es
   
5.     (setq e(car es)es(cdr es)
   
6.           p1(mapcar'+'(0 0)(vlax-curve-getStartPoint e))p2(mapcar'+'(0 0)(vlax-curve-getendPoint e)))
   
7.     (foreach a(S2E(ssget"CP"(list p1(list(car p1)(cadr p2))p2(list(car p2)(cadr p1)))'((0 . "arc,*spline,*polyline,line"))))
   
8.       (or(SSMEMB a s)
   
9.          ((lambda()
   
10.             (setq p1(mapcar'+'(0 0)(vlax-curve-getStartPoint a))
    
11.                   p2(mapcar'+'(0 0)(vlax-curve-getendPoint a)))
    
12.             (and(vl-some'(lambda(x)(or(equal p1 x fuz)(equal p2 x fuz)))pt)
    
13.                 (setq es(cons a es)pt(vl-list* p1 p2 pt))
    
14.                 (ssadd a s)))))))
    
15.   (sssetfirst'nil s))
    
16. 
    
17. (defun c:tt()
    
18.   (chains(s2e(ssget'((0 . "arc,*spline,*polyline,line"))))0.1))

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