cad属性文字还原(defunc:initatt()(while(setqss(ssget'((0."insert"))))(setqn(sslengthss))(repeatn(gxl-blk-att2init(ssnamess(setqn(1-n))))))(princ))