多线MLINE修改多线比例

晨曦CAD

论坛没搜到，自己查找了一些资料，记录如下

(vla-put-MLineScale vla对象  多线比例值)

示例：单线转多线

2. (defun hg_linetomline(/ clst ww en curve kword enlst)
   
3.   (setq clst(HG::CURVE::toPoints (setq curve(car(entsel"选择直线或多段线")))))
   
4.   (if hglinetomlinedata
   
5.     (setq ww(getreal(strcat"输入多线宽度<"(rtos hglinetomlinedata 2)">")))
   
6.     (progn
   
7.       (setq hglinetomlinedata 20)
   
8.       (setq ww(getreal(strcat"输入多线宽度<"(rtos hglinetomlinedata 2)">")))
   
9.     )
   
10.     )
    
11.   (if(null ww)(setq ww hglinetomlinedata)(setq hglinetomlinedata ww))
    
12.   (if(= (car clst) "AcDbLine")
    
13.     (setq en(HG::PNTS::TOMLINE(cdr clst)))
    
14.     (setq en(HG::PNTS::TOMLINE(nth 1 clst)))
    
15.     )
    
16.   (vla-put-MLineScale (vlax-ename->vla-object en) ww)
    
17.   (setq kword(getstring "是否保留原有直线或多段线(Y/N)<N>"))
    
18.   (if (or (= kword "N")(= kword "n")(= kword ""))
    
19.      (entdel curve)
    
20.     )
    
21.   (princ)
    
22.   )

(defun hg_linetomline(/ clst ww en curve kword enlst)<br />   (setq clst(HG::CURVE::toPoints (setq curve(car(entsel"选择直线或多段线")))))<br />   (if hglinetomlinedata<br />     (setq ww(getreal(strcat"输入多线宽度<"(rtos hglinetomlinedata 2)">")))<br />     (progn<br />       (setq hglinetomlinedata 20)<br />       (setq ww(getreal(strcat"输入多线宽度<"(rtos hglinetomlinedata 2)">")))<br />     )<br />     )<br />   (if(null ww)(setq ww hglinetomlinedata)(setq hglinetomlinedata ww))<br />   (if(= (car clst) "AcDbLine")<br />     (setq en(HG::PNTS::TOMLINE(cdr clst)))<br />     (setq en(HG::PNTS::TOMLINE(nth 1 clst)))<br />     )<br />   (vla-put-MLineScale (vlax-ename->vla-object en) ww)<br />   (setq kword(getstring "是否保留原有直线或多段线(Y/N)<N>"))<br />   (if (or (= kword "N")(= kword "n")(= kword ""))<br />      (entdel curve)<br />     )<br />   (princ)<br />   )

edsion24

能有完整的程序吗