将LINE转成MLINE

357785513

各位高手如何将将LINE转成MLINE,一定得是,而不是三条line

ssyfeng

试试这个：

2. (defun c:tt (/ clayer en ent layer line-ss pt1 pt2 ssn)
   
3.   (vl-cmdf "_undo" "be")
   
4.   (setq clayer (getvar "CLAYER")
   
5.     line-ss (ssget '((0 . "line")))
   
6.     ssn (sslength line-ss)
   
7.   )
   
8.   (repeat ssn
   
9.     (setq en (ssname line-ss (setq ssn (1- ssn)))
   
10.       ent (entget en)
    
11.       layer (cdr (assoc 8 ent))
    
12.       pt1 (cdr (assoc 10 ent))
    
13.       pt2 (cdr (assoc 11 ent))
    
14.     )
    
15.     (setvar "CLAYER" layer)
    
16.     (vl-cmdf "_mline" "j" "z" pt1 pt2 "")
    
17.     (vl-cmdf "_ERASE" en "")
    
18.   )
    
19.   (setvar "CLAYER" clayer)
    
20.   (vl-cmdf "_undo" "e")
    
21.   (princ)
    
22. )

(defun c:tt (/ clayer en ent layer line-ss pt1 pt2 ssn)<br />   (vl-cmdf "_undo" "be")<br />   (setq clayer (getvar "CLAYER")<br />     line-ss (ssget '((0 . "line")))<br />     ssn (sslength line-ss)<br />   )<br />   (repeat ssn<br />     (setq en (ssname line-ss (setq ssn (1- ssn)))<br />       ent (entget en)<br />       layer (cdr (assoc 8 ent))<br />       pt1 (cdr (assoc 10 ent))<br />       pt2 (cdr (assoc 11 ent))<br />     )<br />     (setvar "CLAYER" layer)<br />     (vl-cmdf "_mline" "j" "z" pt1 pt2 "")<br />     (vl-cmdf "_ERASE" en "")<br />   )<br />   (setvar "CLAYER" clayer)<br />   (vl-cmdf "_undo" "e")<br />   (princ)<br /> )

panliang9

没有直接line转mline，但有pline转multi-line的。line转pline很简单，论坛里很多。

357785513

觉得ssyfeng的写得非常高明,就是主题与贴子太少了

mokson

宸茬粡鏈熺浖浜嗚�稿�氬勾浜嗐

forever111

学习了   学习了   谢谢