Pline非曲线化

csharp

command 方法就是 command ->pedit -> D

2. 
   
3. (defun c:tt (/ ss sl e el old)
   
4.   (if (setq ss (ssget '((0 . "lwpolyline"))))
   
5.     (progn
   
6.       (setq sl (sslength ss))
   
7.       (while (setq e (ssname ss (setq sl (1- sl))))
   
8.         (setq el (mapcar '(lambda (x)
   
9.                             (if        (= (car x) 42)
   
10.                               '(42 . 0.0)
    
11.                               x
    
12.                             )
    
13.                           )
    
14.                          (entget e)
    
15.                  )
    
16.         )
    
17.         (entmod el)
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )

<br /> (defun c:tt (/ ss sl e el old)<br />   (if (setq ss (ssget '((0 . "lwpolyline"))))<br />     (progn<br />       (setq sl (sslength ss))<br />       (while (setq e (ssname ss (setq sl (1- sl))))<br />         (setq el (mapcar '(lambda (x)<br />                             (if        (= (car x) 42)<br />                               '(42 . 0.0)<br />                               x<br />                             )<br />                           )<br />                          (entget e)<br />                  )<br />         )<br />         (entmod el)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

xvjiex

感谢分享Pline非曲线化