)

　　)

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

　　)

　　)

　　)