( setq w( cereal"Ⅶn给定新的线宽值[0.00]") ( setq iO (if(/=t"Select") ( setq ii(sslength objl)) (while(<iii) ( setq p(csname obj i)) (if(/=t"Select") setq p(ssname objl i)) (setq py(cdr(car(edr(edr(entget p))) (setq i(+iD)) (setq objet(edr(car(edr(entget p))))) setq pp(cdddr(entget p)) (if(=t"color") setq pp(edr(edddr(entget p))) (if(=t"LType") setq pp(edr(edddr(entget p))) (if(=objet"LINE") (command"pedit"p""ww") (if( objet"POLYLINE") (command"pedit"p"w"w") (if(=objet"CIRCLE") setq po(cdar pp)) (setq r(cdad pp)) ( setq pl( polar p0 0.0r)) setq and 359.99) (command"layer""s"py") (if(=t"Color") (command"pline"pl"w"ww"a"ce"pO"a,"and") (sadd p cpp) (if(=objet"ARC") ))))(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"") ) ) ) )