贰手烟民 :
写了一个,纯数值文字求和插件。代码如下:(defunc:tes(/&k1&kw1&tr1&tr2);tes是命令,可以修改为其他命令(setvar"cmdecho"0)(setvar"blipmode"0)(PRinc"
请选择纯数值文字")(if(setq&kw1(ssget'((0."text")(1."~*[~+-.0-9]*"))))(Progn(setq&tr10)(while(setq&k1(ssname&kw10))(setq&kw1(ssdel&k1&kw1)&tr2(C....