[求助]：修改二维多段线宽度

xkcjf_1219

如何用lisp批量修改二维多段线宽度？
         (setq new_40 (cons 40 0))
                   (setq new_41 (cons 41 0))
  
           (setq old_40 (assoc 40 endata))  ;起点宽度
           (setq old_41 (assoc 41 endata))  ;终点宽度
            (setq endata (subst new_40 old_40 endata))
                      (setq endata (subst new_41 old_41 endata))
         (entmod endata)

运行后宽度没有改变，如何修改？
望楼主帮忙！

新黎既

取道路中心线

xxf75412

DDDDDDDDDDDDDDDDD

hn-wqh

线宽组码为370

carrot1983

2. 
   
3. (defun c:tt (/ E O WIDTH)
   
4.   (vl-load-com)
   
5.   ;; width 多段线总体宽度
   
6.   (and (setq width 30)
   
7.        (setq e (car (entsel "\n选择多段线修改其宽度: ")))
   
8.        (setq o (vlax-ename->vla-object e))
   
9.        (vla-put-ConstantWidth o width)
   
10.   )
    
11.   (princ)
    
12. )
    

<br /> (defun c:tt (/ E O WIDTH)<br />   (vl-load-com)<br />   ;; width 多段线总体宽度<br />   (and (setq width 30)<br />        (setq e (car (entsel "\n选择多段线修改其宽度: ")))<br />        (setq o (vlax-ename->vla-object e))<br />        (vla-put-ConstantWidth o width)<br />   )<br />   (princ)<br /> )<br />