AutoCAD批处理数字增减.pdfVIP

1.CAD批处理数字的增减 （精度），首先要加载一个外接lsp 2.新建文本文件，里面写入下列代码 (princ \ntadd txt数字加减值,改精度 lxx.2001.6) (defun c:tadd (/ ss i nall ent entl i nmb nall nalls k dec) (princ \ntcal txt数字加减值,改精度 lxx.2001.6) (setq ss (ssget ((0 . TEXT))) i 0 nadd (getdist \n加值(可为负值;直接回车改精度):) dec (getint \n精度0:) ) (if (not nadd)(setq nadd 0)) (if (not dec)(setq dec 0)) (repeat (sslength ss) (setq ent (ssname ss i) entl (entget ent) i (1+ i) nmb (cdr(assoc 1 entl)) ) (if (or ( REAL (type (read nmb)))( INT (type (read nmb)))