AutoCAD批处理数字增减

整理文档很辛苦,赏杯茶钱您下走!

免费阅读已结束,点击下载阅读编辑剩下 ...

阅读已结束,您可以下载文档离线阅读编辑

资源描述

1.CAD批处理数字的增减(精度),首先要加载一个外接lsp2.新建文本文件,里面写入下列代码(princ\ntadd=====txt数字加减值,改精度-----------lxx.2001.6)(defunc:tadd(/ssinallententlinmbnallnallskdec)(princ\ntcal=====txt数字加减值,改精度-----------lxx.2001.6)(setqss(ssget'((0.TEXT)))i0nadd(getdist\n加值(可为负值;直接回车改精度):)dec(getint\n精度0:))(if(notnadd)(setqnadd0))(if(notdec)(setqdec0))(repeat(sslengthss)(setqent(ssnamessi)entl(entgetent)i(1+i)nmb(cdr(assoc1entl)))(if(or(='REAL(type(readnmb)))(='INT(type(readnmb))))(progn(setqnmb(atofnmb)endn(+nmbnadd)nmb(rtosendn2dec)entl(subst(cons1nmb)(assoc1entl)entl))(entmodentl)));;endif);;endrepeat(princ));;;;3.保存,将文档类型txt改为lsp,保存。4.打开需要处理的CAD文件5.在命令行输入ap6.加载该lsp7.在命令行输入tadd8.按照提示选择要修改的对象9.如果是统一加一个数字就直接写数字好了,比如输入0.56。如果要统一减掉一个数字,那输入-0.5610.输完之后选择精度,即小数点后几位。11.修改完毕,保存CAD文件。——————————————注:代码来源于网络。在批处理前,最好备份。

1 / 1
下载文档,编辑使用

©2015-2020 m.777doc.com 三七文档.

备案号:鲁ICP备2024069028号-1 客服联系 QQ:2149211541

×
保存成功