AutoCAD中表格自动化0自攻钉

AutoCAD中表格自动化

AutoCAD中表格自动化 2011年12月09日 来源： 工程图纸中经常遇到大量表格填写，例如工程勘察中的成果表、设计的材料表，在AutoCAD中文字处理比较差，用TEXT、DTEXT命令在表格中定位也不方便，填写的表格既不美观，还容易出错。在一些杂志中有关表格填写程序介绍，但是使用不方便，也不能连续填写多个表格，长距离线路勘察中线转点少则几十个， 多则上千，中线数据可由计算直接生成，能否利用中线数据直接填表出图。利用AutoCAD二次开发，编写中线成果填写程序（zxcg．lsp），改变以往出图工序（填写、校对），大大提高工作效率。 一、程序功能与编写说明 　　1、本程序具有下列功能： 　　（1）直接在文本编辑器（EDIT、QE、WPS等等）编辑、修改数据，免去AutoCAD文字编辑、修改之不便； 　　（2）可以自动分页，自动填写工程名称、档案号、日期等等； 　　（3）可以自动处理中线成果数据前后的空格，例如： 　　“123123．123”将自动转化为“123123．123”； 　　（4）可以自动识别两种工程名称数据文件； 　　（5）文本状态下数据正确无误，出图前无需在AutoCAD中修改，调图速度和重新成图速度相差无几， 可直接保存数据文件，节省磁盘空间。 　　2、程序说明： 　　程序利用AutoLISP的计算、判断、字符处理、循环结构以及调用Text命令等功能对读入的数据进行处理 后填写，与本程序对应的Zxcg．dwg图形文件含四个表格图块，程序中的有关参数均取决于四个图块。 　　 二、使用说明 　　1、关于中线成果数据格式： 　　（1）无曲线 　　第一行，总点数（N） 　　第二至七行，点名（NAME）、里程（K）、高程（H）、坐标X、Y、转角（B）……重复二至七行（没有数 据项用空行代替） 　　（2）有曲线 　　第一行，总点数（N） 　　第二至十一行，点名（NAME）、里程（K）、高程（H）、坐标X、Y、转角B，半径R，切线长T、曲线长 L、外矢矩E……重复二至十一行（没有数据项用空行代替） 　　2、关于工程名称数据格式： 　　（1）单标题 　　第一行，工程名称 　　第二行，档案号（如测－3777／表，只需输入3777） 　　第三行，日期（可省略，取当前日期） 　　（2）双标题 　　第一行，工程名称大标题 　　第二行，工程名称小标题 　　第三行，档案号（如测－3777／表，只需输入3777） 　　第四行，日期（可省略，取当前日期） 　　 三、加载及运行 　　在AutoCADR12（或AutoCADforWindows）中，把Zxcg．lsp和Zxcg．dwg拷贝到SUPPORT子目录下，用鼠标 点文件（File）下应用程序（Applications），或在Command：下敲入Appload加载Zxcg．lsp，或在 command：下敲入（Load“Zxcg”）即可。然后在Command：下敲入ZX运行程序，本程序将中文提示。 　　 四、结束语 　　该应用程序提供了两种形式的表格，有兴趣的AutoCAD用户不妨增加几种表格，修改程序中对应的参数 即可。 　　附源程序 　　．．．＊＊＊＊ERROR＊＊＊＊ 　　（DEFUNERR（X） 　　；IFANERROR（SUCHASCTRL－C） 　　OCCURS 　　；WHILETHISCOMMANDISACTIVE 　　（IF（AND（／ΚX″FUNCTIONCANCELLED″） 　　（／ΚX″QUIT／EXITABORT″）） 　　（PPINC（STRCAT″ιnERROR：″X））） 　　（SETVAR″CMDECHO″1）（SETVER″BLIPMODE″1） 　　（IF（ΚTYPERF）′FILE）（CLOSERF）） 　　（IF（ΚTYPERN）′FILE）（CLOSERN）） 　　（SETQRFNIL）（SETQRNNIL） 　　（SETQ＊ERROR＊OLDERR） 　　；RESTOREOLD＊ERROR＊HANDLER 　　（PRINC）） 　　．．．＊＊＊＊FILETOREAD＊＊＊＊ 　　（DEFUNINPUT（） 　　（IF（ΚFF1nil）（SEFQFF1（GETVAR″DWGPREFIX″）））

彭张栓外皮厂

宁波市江东宁仕企划有限公司

安庆银网通信科技有限公司桐城分公司

名山县力神制动器厂

浙江嘉毅置业发展有限公司

山东省高密市新泰助剂有限公司

潍坊三和永拓工贸有限公司

张田坑青龙潭电站

常州润洋缝纫设备有限公司

阜阳郭兄弟油脂有限公司