[日积月累]：测试多段线是否有弧段。

eachy

2. 
   
3. (defun ea:pl_hasBulges (e  / tf)
   
4.   (foreach x (entget e)
   
5.     (if        (and (= (car x) 42)
   
6.              (/= (cdr x) 0.0)
   
7.         )
   
8.       (setq tf t)
   
9.     )
   
10.   )
    
11.   tf
    
12. )

<br /> (defun ea:pl_hasBulges (e  / tf)<br />   (foreach x (entget e)<br />     (if        (and (= (car x) 42)<br />              (/= (cdr x) 0.0)<br />         )<br />       (setq tf t)<br />     )<br />   )<br />   tf<br /> )

狂刀

2. 
   
3. ;;(xd-hasbulge (car(entsel))) ;; 支持lwpolyline,polyline
   
4. (defun xd-hasbulge (e / o n bgs)
   
5.   (setq o (vlax-ename->vla-object e)
   
6.         n (fix(vlax-curve-getendparam o)))
   
7.   (repeat n
   
8.     (setq bgs (cons (vla-getbulge o (setq n(1- n))) bgs))
   
9.   )
   
10.   (not(apply '= (cons 0 bgs)))
    
11. )
    

<br /> ;;(xd-hasbulge (car(entsel))) ;; 支持lwpolyline,polyline<br /> (defun xd-hasbulge (e / o n bgs)<br />   (setq o (vlax-ename->vla-object e)<br />         n (fix(vlax-curve-getendparam o)))<br />   (repeat n<br />     (setq bgs (cons (vla-getbulge o (setq n(1- n))) bgs))<br />   )<br />   (not(apply '= (cons 0 bgs)))<br /> )<br />

eachy

2. 
   
3. ;;(xdl-pl-hasbugle (entget (car (entsel))))
   
4. (defun xdl-pl-hasbugle (el / tf el)
   
5.   (if (assoc 42 el)
   
6.     (while (and (not tf) el)
   
7.       (if (and (= (caar el) 42)
   
8.                (/= (cdar el) 0.0)
   
9.           )
   
10.         (setq tf t)
    
11.       )
    
12.       (setq el (cdr el))
    
13.     )
    
14.     (progn
    
15.       (setq e (cdr (assoc -1 el)))
    
16.       (while (and (not tf)
    
17.                   (setq        e  (entnext e)
    
18.                         el (entget e)
    
19.                   )
    
20.                   (/= "SEQEND" (cdr (assoc 0 el)))
    
21.              )
    
22.         (if (/= (cdr (assoc 42 (entget e))) 0.)
    
23.           (setq tf t)
    
24.         )
    
25.       )
    
26.     )
    
27.   )
    
28.   tf
    
29. )

<br /> ;;(xdl-pl-hasbugle (entget (car (entsel))))<br /> (defun xdl-pl-hasbugle (el / tf el)<br />   (if (assoc 42 el)<br />     (while (and (not tf) el)<br />       (if (and (= (caar el) 42)<br />                (/= (cdar el) 0.0)<br />           )<br />         (setq tf t)<br />       )<br />       (setq el (cdr el))<br />     )<br />     (progn<br />       (setq e (cdr (assoc -1 el)))<br />       (while (and (not tf)<br />                   (setq        e  (entnext e)<br />                         el (entget e)<br />                   )<br />                   (/= "SEQEND" (cdr (assoc 0 el)))<br />              )<br />         (if (/= (cdr (assoc 42 (entget e))) 0.)<br />           (setq tf t)<br />         )<br />       )<br />     )<br />   )<br />   tf<br /> )

xujinhua

感谢！！学习了！