|
調(diào)整線條寬度的實(shí)用工具
（作者未知） 2009/7/19
（接上頁(yè)）tq lll(getkword"\n[Continuous \\Dashed\\Center\\Phantom\\DIvid
e \\Hidden\\DOt\\DAshdot\\Border]"))
(setq ll(strcse lll))
)
)
(setq objl(ssadd))
(setq j 0)
(while(﹤j(sslength obj))
(setq pl (ssname obj j))
(setq j(+j 1))
(setq pc(cdr(car(cdr(cdr(cdr(entget pl)))))))
(if(=ll pc)
(ssadd pl objl)
)
)
)
)
(if(=bb 1)
(progn
(setq cpp (ssadd))
(setq w (getreal"\n給定新的線寬值[0.00]:"))
(setq i 0)
(setq ii (sslength obj))
(if(/=t"Select")
(setq ii(sslength objl))
)
(while(﹤i ii)
(setq p (ssname obj i))
(if(/=t"Select")
(setq p(ssname objl i))
)
(setq py (cdr(car(cdr(cdr(entget p))))))
(setq i(+i l))
(setq objent(cdr(car(cdr(entget p)))))
(setq pp(cdddr(entget p)))
(if(=t"color")
(setq pp(cdr(cdddr(entget p))))
)
(if(=t"LType")
(setq pp(cdr(cdddr(entget p))))
)
(if(=objent"LINE")
(command"pedit"p"y""w"w"")
(if(=objent"POLYLINE")
(command"pedit"p"w"w"")
(if(=objent"CIRCLE")
(progn
(setq p0(cdar pp))
(setq r(cdadr pp))
(setq pl(polar p0 0.0 r))
(setq and 359.99)
(command"layer""s"py"")
(if(=t"Color")
(command"color"ll)
)
(command"pline"pl "w"w w "a""ce"p0"a"and "")
(ssadd p cpp)
)
(if(=objent "ARC")
(command"pedit"p"""w"w"")
)
)
)
)
)
(command"erase"cpp"")
(command"redraw")
)
)
)
|