再请教一个CAD图元属性的问题

DCMZ

如上图所示，我想修改某一条直线的线型比例，怎么设置呢？

我有一种思路就是在修改前，将该线型的比例设置为我想要的，然后再将直线赋值给这种线型，设置完之后再还原，但是感觉没这个必要，应该有简单的方法。

vormittag

也是修改组码。组码号48。

2. 
   
3. (setq a (entget(car(entsel))))
   
4. (setq ltscale 0.5)
   
5. (entmod
   
6.     (if (assoc 48 a)
   
7.             (subst (cons 48 ltscale) (assoc 48 a) a)
   
8.                 (append a (list (cons 48 ltscale)))
   
9.         )
   
10. )

<br /> (setq a (entget(car(entsel))))<br /> (setq ltscale 0.5)<br /> (entmod <br />     (if (assoc 48 a)<br />             (subst (cons 48 ltscale) (assoc 48 a) a)<br />                 (append a (list (cons 48 ltscale)))<br />         )<br /> )

DCMZ

vormittag 发表于 2012-11-13 14:38
也是修改组码。组码号48。

谢谢你哈，继续学习中