请教autolisp怎样设置线宽呢

DCMZ

大家好，新人多多指教，请教autolisp怎样设置线宽呢，命令是啥呢

wowan1314

“参数太少”

DCMZ

wowan1314 发表于 2012-11-13 13:21
“参数太少”

不好意思，没说清，比如我一条直线，已经捕获将实体名称赋值给变量a，那么我该怎样将其线宽设置为0.3mm呢，谢谢你

wowan1314

调用CAD命令CHANGE

DCMZ

wowan1314 发表于 2012-11-13 13:45
调用CAD命令CHANGE

问题解决，非常感谢
今天无意之间来到这里，真是来对了

vormittag

DCMZ 发表于 2012-11-13 13:40
不好意思，没说清，比如我一条直线，已经捕获将实体名称赋值给变量a，那么我该怎样将其线宽设置为0.3mm呢 ...

添加组码370，当然这只能修改打印线宽。直线图元是没有线宽的概念的。

vormittag

具体代码如下：

2. 
   
3. (setq b (entget a))
   
4. (entmod
   
5.     (if (assoc 370 b)
   
6.             (subst (cons 370 30) (assoc 370 b) b)
   
7.                 (append b (list (cons 370 30)))
   
8.         )
   
9. )

<br /> (setq b (entget a))<br /> (entmod <br />     (if (assoc 370 b)<br />             (subst (cons 370 30) (assoc 370 b) b)<br />                 (append b (list (cons 370 30)))<br />         )<br /> )

DCMZ

vormittag 发表于 2012-11-13 14:21
具体代码如下：

谢谢楼上的高人，学习

DCMZ

wowan1314 发表于 2012-11-13 13:45
调用CAD命令CHANGE

你好，再请教你一下哈，我现在会改变了，但是怎么提取呢？
比如我要获取某条直线的线宽，用什么命令呢

wowan1314

组码370就是它的线宽信息啊