让属性块的属性文字“复位”的lsp.LSP

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