转换MLINE到POLYLINE

Lisphk

1.                                         ; converts mline to pline note uses mline vertices does not take
   
2.                                         ; into account top or bottom offset
   
3.                                         ; By Alan H Aug 2017
   
4. 
   
5. (defun c:tt (/ co-ords ent co-ordsxy xy oldsnap)
   
6.   (setq oldsnap (getvar "osmode"))
   
7.   (setq ss (ssget (list (cons 0 "Mline")))) ; pick only mlines
   
8.   (if (/= ss nil)
   
9.     (progn
   
10.       (repeat (setq x (sslength ss))
    
11.         (setq ent (ssname ss (setq x (- x 1)))) ; get mlines
    
12.         (setq co-ords (vlax-safearray->list
    
13.                         (vlax-variant-value
    
14.                           (vlax-get-property
    
15.                             (vlax-ename->vla-object ent) ; get co-ordinates of mline
    
16.                             "Coordinates"
    
17.                           )
    
18.                         )
    
19.                       )
    
20.         )                               ; convert now to a list of xy as co-ords are x y x y x y if 3d x y z x y z
    
21.         (setq numb (/ (length co-ords) 3)) ; mlines have a z value hence / 3
    
22.         (setq I 0)
    
23.         (repeat numb
    
24.           (setq xy (list (nth i co-ords) (nth (+ I 1) co-ords)))
    
25.           (setq co-ordsxy (cons xy co-ordsxy)) ; make a list of co-ordinates
    
26.           (setq I (+ I 3))
    
27.         )
    
28.         (setvar "osmode" 0)
    
29.         (command "_pline")
    
30.         (while (= (getvar "cmdactive") 1)
    
31.           (repeat (setq y (length co-ordsxy))
    
32.             (command (nth (setq y (- y 1)) co-ordsxy)) ; read list of points
    
33.           )
    
34.           (command "")
    
35.         )
    
36.         (setq co-ordsxy nil)            ; reset to do again
    
37.         (command "erase" ent "")
    
38.       )
    
39.     )
    
40.   )
    
41.   (setvar "osmode" oldsnap)             ; reset snap mode
    
42. )
    

                                        ; converts mline to pline note uses mline vertices does not take<br />                                         ; into account top or bottom offset<br />                                         ; By Alan H Aug 2017<br /> <br /> (defun c:tt (/ co-ords ent co-ordsxy xy oldsnap)<br />   (setq oldsnap (getvar "osmode"))<br />   (setq ss (ssget (list (cons 0 "Mline")))) ; pick only mlines<br />   (if (/= ss nil)<br />     (progn<br />       (repeat (setq x (sslength ss))<br />         (setq ent (ssname ss (setq x (- x 1)))) ; get mlines<br />         (setq co-ords (vlax-safearray->list<br />                         (vlax-variant-value<br />                           (vlax-get-property<br />                             (vlax-ename->vla-object ent) ; get co-ordinates of mline<br />                             "Coordinates"<br />                           )<br />                         )<br />                       )<br />         )                               ; convert now to a list of xy as co-ords are x y x y x y if 3d x y z x y z<br />         (setq numb (/ (length co-ords) 3)) ; mlines have a z value hence / 3<br />         (setq I 0)<br />         (repeat numb<br />           (setq xy (list (nth i co-ords) (nth (+ I 1) co-ords)))<br />           (setq co-ordsxy (cons xy co-ordsxy)) ; make a list of co-ordinates<br />           (setq I (+ I 3))<br />         )<br />         (setvar "osmode" 0)<br />         (command "_pline")<br />         (while (= (getvar "cmdactive") 1)<br />           (repeat (setq y (length co-ordsxy))<br />             (command (nth (setq y (- y 1)) co-ordsxy)) ; read list of points<br />           )<br />           (command "")<br />         )<br />         (setq co-ordsxy nil)            ; reset to do again<br />         (command "erase" ent "")<br />       )<br />     )<br />   )<br />   (setvar "osmode" oldsnap)             ; reset snap mode<br /> )<br />

网事如尘

学习了，感谢分享

hphkjz

有没有PL或L能转换成ML的代码？