[分享]：AutoCAD中表格自动化(如斑竹发现重复，请删除，谢谢）

zxj1120

工程图纸中经常遇到大量表格填写，例如工程勘察中的成果表、设计的材料表，在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）
第四行，日期（可省略，取当前日期）
三、加载及运行
在AutoCAD中，把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″）））

　　（SETQF1（GETFILED″请输入中线成果数据文件″FF1″DAT″12））

　　（SETQLF（STRLENF1）FF1（SUBSTRF11（－LF4）））

　　（IF（ΚFF2nil）（SETQFF2FF1））

　　（SETQF2（GETFILED″请输入工程名称文件″FF2″TXT″12））

　　（SETQLF（STRLENF2）FF2（SUBSTRF21（－LF4）））

　　（initget″YesNo″）

　　（setqYN（getkword″ιn请选择有曲线元素Yes／No：（N）″））

　　（if（ΚYNnil）（SETQYN″No″）））

　　．．．＊＊＊＊DATAFORPROGRAMME＊＊＊＊＊

　　（DEFUNDDAT（）

　　（SETQRF（OPENF1″r″））（SETQRN（OPENF2″r″））

　　（SETQGN（READ－LINERN）GG1DAH（READ－LINERN））

　　（IF（ΚATOIDAH）0）（PROGN（SETQGG2GN2DAHDAH（READ－LINERN））））

　　（SETQDAT（READ－LINERN））

　　（IF（ΚDATNIL）（PROGN（SETQDAT（GETVAR″CDA?TE″））；取当前日期

　　（SETQDAT（FIXDAT））（SETQDAT（ITOADAT））

　　（SETQYY（SUBSTRDAT14）MM（SUBSTRDAT52））

　　（SETQDD（SUBSTRDAT72）DAT（STRCATYY″－″MM″－″DD））））

　　（SETQNO（READ－LINERF）N（ATOINO））

　　（SETQNF26NN29）；首、次页行数

　　（SETQM（FIX（＋（／（－NNF）NN）2）））：计算页数

　　（SETQNL（REM（－NNF）NN））（IF（ΚNL0）（SETQM（－M1）NLNN））

　　（IF（ΙΚNNF）PROGN（SETQM1）（SETQNLN）））

　　（princ″共读入″）（PRINCN）（PRINC″点，分″）（PRINCM）（PRINC″页填写！″）

　　（SETQYY8XX230）；行距、页距

　　（SETQI1X00Y00DAH（STRCAT″测－″DAH″／″））

　　（IF（ΚYN″NO″）（SETQDI（LIST678．58103．58125．08150．08180．08208．08））

　　（SETQDI（LIST1071．9088．39105．58122．61140．30156．83172．86188．07208．00232．73））））

　　；表格项数及各项横坐标（X）

　　（SETQYYF285．0YYN305．7）；首、次页第一行纵坐标

　　．．．．＊＊＊＊删除数据前后空格（QKG）＊＊＊





整理好再发么，setq后都没空格，别人怎么看!  //by AEO

xcajcj

很不错哦，为我们大家学习AutoLISP编程提供了一种很好的思路和方法。
如果能上传一个图片或演示动画说明那就更完美了。

zxj1120

致最最好的AEO
嘿嘿，老大拜托啦，这次你帮我整理，OK？
下次我一定自己来，好不好嘛？

citykunan

不错

chenhang1203

哪里有Zxcg．lsp和Zxcg．dwg？？？？