如何AutoCAD调整线条宽度(4)

)

(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")

)

)

)

<上一页1234