检测多段线的起点和终点是否在其个直线上

437271963

2. (defun c:tes ( / #os1 &k1 &kw1 &ob1 &p1 @p1 @p2)
   
3. (if (null vlax-dump-object) (vl-load-com) )
   
4. (setq #os1 (getvar "osmode"))
   
5. (if (setq &kw1 (ssget '((0 . "LWPOLYLINE"))))
   
6.   (progn
   
7.    (setvar "osmode" 0)
   
8.    (while (setq &k1 (ssname &kw1 0))
   
9.     (setq &kw1 (ssdel &k1 &kw1) &ob1 (vlax-ename->vla-object &k1))
   
10.     (foreach &p1 (list (vlax-curve-getStartPoint &ob1);起点
    
11.                        (vlax-curve-getEndPoint &ob1);端点
    
12.                  )
    
13.      (setq @p1 (polar &p1 (* 1.25 pi) (* (expt 2 0.5) 0.5))
    
14.            @p2 (polar &p1 (* 0.25 pi) (* (expt 2 0.5) 0.5)))
    
15.      (if (< (sslength (ssget "c" @p1 @p2 '((0 . "LINE,LWPOLYLINE")))) 2);如果少于2线
    
16.       (entmake (list '(0 . "CIRCLE") '(62 . 1) (cons 10 &p1) '(40 . 50)));绘制红色,半径50的圆
    
17.      );if
    
18.     );foreach
    
19.    );while
    
20.    (setvar "osmode" #os1)
    
21.   )
    
22. )
    
23. (princ)
    
24. )

(defun c:tes ( / #os1 &k1 &kw1 &ob1 &p1 @p1 @p2)<br /> (if (null vlax-dump-object) (vl-load-com) )<br /> (setq #os1 (getvar "osmode"))<br /> (if (setq &kw1 (ssget '((0 . "LWPOLYLINE"))))<br />   (progn<br />    (setvar "osmode" 0)<br />    (while (setq &k1 (ssname &kw1 0))<br />     (setq &kw1 (ssdel &k1 &kw1) &ob1 (vlax-ename->vla-object &k1))<br />     (foreach &p1 (list (vlax-curve-getStartPoint &ob1);起点<br />                        (vlax-curve-getEndPoint &ob1);端点<br />                  )<br />      (setq @p1 (polar &p1 (* 1.25 pi) (* (expt 2 0.5) 0.5))<br />            @p2 (polar &p1 (* 0.25 pi) (* (expt 2 0.5) 0.5)))<br />      (if (< (sslength (ssget "c" @p1 @p2 '((0 . "LINE,LWPOLYLINE")))) 2);如果少于2线<br />       (entmake (list '(0 . "CIRCLE") '(62 . 1) (cons 10 &p1) '(40 . 50)));绘制红色,半径50的圆<br />      );if<br />     );foreach<br />    );while<br />    (setvar "osmode" #os1)<br />   )<br /> )<br /> (princ)<br /> )

kozmosovia

远方小山 发表于 2016-3-8 18:34
我试了下，这个代码有出现错误，我查了用法，没有错啊，求大神指点
(if (and (setq xx (ssget "_cp"
   ...

_cp用错了，直接改成_c即可