高手请指导!!急

djby2659

本人想一次改变所有选中范围内所以多段线的宽度!有以下几个问题不懂: 1.POLYLINE和LWPOLYLINE有何区别? 2.我找不到LWPOLYLINE全局宽度的群码,请问那位高手知道? 3.我下面的程序只是想改变所有选中范围内多段线的起点宽度<为何不能实现? (defun c:dd()
(setq ss (ssget))
(setq n 0)
(setq m (getreal"请输入线的起点宽度:"))
(setq d (sslength ss))
(while (< n d)
(setq en (ssname ss n))
(setq endata (entget en))
(setq a (assoc 0 endata))
(if (= (cdr a) "LWPOLYLINE")
(progn
(setq b (assoc 40 endata))
(setq c (cons 40 m))
(setq endata(subst c a endata))
(entmod endata)
))
(setq n (+ 1 n))
)
)

ZZXXQQ

用(COMMAND "PEDIT" EN "W" M "X") 代替 (setq b (assoc 40 endata))
(setq c (cons 40 m))
(setq endata(subst c a endata))
(entmod endata)
试试。

ljpnb

1楼的程序中这句错误(setq endata(subst c a endata))，应该是(setq endata(subst c        b endata))，不过这一段程序只能对只有两个顶点且起始宽度和终止宽度本身就不同的PLINE可以实现。

meflying

选中要修改的PLINE,到属性里改就可以了

djby2659

谢谢大家的热心解答,特别是2楼的兄弟,我试过了正确的.不过飞哥说的也有道理,有些时候不要一味的找捷径,也许最常用的方法就是最好的.