工程图纸中经常遇到大量表格填写,例如工程勘察中的成果表、设计的材料表,在autocad中文字处理比较差,用text、dtext命令在表格中定位也不方便,填写的表格既不美观,还容易出错。在一些杂志中有关表格填写程序介绍,但是使用不方便,也不能连续填写多个表格,长距离线路勘察中线转点少则几十个,多则上千,中线数据可由计算直接生成,能否利用中线数据直接填表出图。利用autocad二次开发,编写中线成果填写程序(zxcg.lsp),改变以往出图工序(填写、校对),大大提高工作效率。
一、程序功能与编写说明
1、本程序具有下列功能:
(1)直接在文本编辑器(edit、qe、wps等等)编辑、修改数据,免去autocad文字编辑、修改之不便;
(2)可以自动分页,自动填写工程名称、档案号、日期等等;
(3)可以自动处理中线成果数据前后的空格,例如:
“123123.123”将自动转化为“123123.123”;
(4)可以自动识别两种工程名称数据文件;
(5)文本状态下数据正确无误,出图前无需在autocad中修改,调图速度和重新成图速度相差无几,可直接保存数据文件,节省磁盘空间。
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),或在command:下敲入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″blipmode″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″cdate″));取当前日期
(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)***
咨询
在线咨询: