多线mline绘制command方法

dcl1214

1. (defun $make-mline$ (kd lst / e-o e-n pt)
   
2.      ;($make-mline$ "随便" nil)
   
3.   (or (and kd (member (type kd) (list 'int 'real)))
   
4.       (setq kd 3.0)
   
5.   )
   
6.   (setq e-o (entlast))
   
7.   (WHILE (NOT PT)
   
8.     (setq pt (VL-CATCH-ALL-APPLY 'getpoint (LIST "请点击起点")))
   
9.     (IF  (VL-CATCH-ALL-ERROR-P PT)
   
10.       (SETQ PT NIL)
    
11.     )
    
12.   )
    
13.   (vl-catch-all-apply
    
14.     (function (lambda ()
    
15.     (vl-cmdf "_.Mline" "S" kd "non" pt)
    
16.         )
    
17.     )
    
18.   )
    
19.   (vl-catch-all-apply
    
20.     (function (lambda ()
    
21.     (while (= 1 (logand 1 (getvar 'cmdactive)))
    
22.       (PRINT "请点击下一点")
    
23.       (vl-cmdf "\\")
    
24.     )
    
25.         )
    
26.     )
    
27.   )
    
28.   (setq e-n (entlast))
    
29.   (if (equal e-o e-n)
    
30.     (setq e-n nil)
    
31.   )
    
32.   e-n
    
33. )

(defun $make-mline$ (kd lst / e-o e-n pt)<br />      ;($make-mline$ "随便" nil)<br />   (or (and kd (member (type kd) (list 'int 'real)))<br />       (setq kd 3.0)<br />   )<br />   (setq e-o (entlast))<br />   (WHILE (NOT PT)<br />     (setq pt (VL-CATCH-ALL-APPLY 'getpoint (LIST "请点击起点")))<br />     (IF  (VL-CATCH-ALL-ERROR-P PT)<br />       (SETQ PT NIL)<br />     )<br />   )<br />   (vl-catch-all-apply<br />     (function (lambda ()<br />     (vl-cmdf "_.Mline" "S" kd "non" pt)<br />         )<br />     )<br />   )<br />   (vl-catch-all-apply<br />     (function (lambda ()<br />     (while (= 1 (logand 1 (getvar 'cmdactive)))<br />       (PRINT "请点击下一点")<br />       (vl-cmdf "\\")<br />     )<br />         )<br />     )<br />   )<br />   (setq e-n (entlast))<br />   (if (equal e-o e-n)<br />     (setq e-n nil)<br />   )<br />   e-n<br /> )

tranque

感谢楼主的无私分享，想请问下，多线的应用场景是怎样的呢，以前我从来没遇到过多线

magicheno

感谢大佬分享

gzcsun

和 Mline 有什么不同？

这只胆小鬼

感谢大佬分享学习了