在AutoCAD中自动生成明细表.pdf

在AutoCAD中自动生成明细表.pdf

ID:56439092

大小:153.24 KB

页数:3页

时间:2020-06-24

在AutoCAD中自动生成明细表.pdf_第1页
在AutoCAD中自动生成明细表.pdf_第2页
在AutoCAD中自动生成明细表.pdf_第3页
资源描述:

《在AutoCAD中自动生成明细表.pdf》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、在AutoCAD中自动生成明细表本文通过实例介绍如何在AutoCAD系统下自动生明细表的方法。本文例子中的明细表格式如图1所示。实现方法1.建立明细表数据文件首先,把明细表的数据信息,用文字编辑器按如下格式写入磁盘文件MXB.TXT中,作为明细表数据文件。“1”“35.1”“气缸透盖”“1”“ZG35”“”“”“”“2”“35.2”“气缸体”“1”“35”“”“”“”“3”“35.3”“螺塞”“2”“A3F”“”“”“”“4”“GB6170-86”“螺母M10”“12”“A3F”“”“”“”“5”“35.4”“压盖”“1”“TH200”“”“”“”…

2、…然后用AutoLisp的READ-LINE函数提取有关数据信息,并把该数据信息赋给表格图块属性。注意:各字符串要加双引号,空字符串引号“”不可省略,以便AutoLisp识别。2.建立明细表格式图块通常,一个明细表是由表头和表体两部分组成。表头是固定的,因此可以用AutoCAD命令生成一个固定的表头,并把它作为一个图块存入磁盘。假设要得到如图1所示的明细表,则先做一个如图2所示的明细表表头。表头实际上是一个图形文件,本文设定该文件名为MXB.DWG,然后用AutoCAD命令建立一个如图3所示的图块,设其文件名为MXB1.DWG,图3中M1~M8均为属

3、性名。当用户向表中插入该块时,系统会向用户询问属性值,此时用AutoLisp程序将上面建立的明细表数据文件中的数据分别赋给各个属性。属性的定义是用AutoCAD命令ATTDEF完成的。编制程序首先,用AutoLisp的I/O函数READ-LINE读入数据文件MXB.TXT,再用字符串连接函数STRCAT给文件的每一行加上括号,此时数据类型为字符串(STR)。然后,再利用READ函数把字符串转换成一个表(LIST),以方便AutoLisp对表中的每一项进行各种操作。最后,用AutoLisp的COMMAND函数调用INSERT命令,先将图块MXB.DWG

4、插入表中,再将MXB1.DWG插入表中,用NTH函数将前面AutoLisp读入的数据中各项信息分别赋给MXB1.DWG中的各个属性。程序框图如图4所示。下面给出实现上述功能的程序清单:(defunC:mxb(/scmdepf1bkam1m2m3m4m5m6m7m8p1)(setqscmde(getvar“cmdecho"))(setvar“cmdecho"0)(setqp(getpoint“Pleaseinputapoint:"))(setqf1(getstring“Pleaseinputfilename:"))(setqf(openf1“r

5、"))(print“Pleasewait...")(setqbk“mxb")(command“insert"bkp110)(setqbk“mxb1")(setqp1(list(carp)(+(cadrp)8)))(while(setqa(read-linef))(setqa(strcat“(“a")"))(setqa(reada))(setqm1(nth0a))(setqm1(nth0a))(setqm2(nth1a))(setqm3(nth2a))(setqm4(nth3a))(setqm5(nth4a))(setqm6(nth5a))(set

6、qm7(nth6a))(setqm8(nth7a))(command“insert"bkp1“"“"“"m1m2m3m4m5m6m7m8)(setqp1(list(carp1)(+8(cadrp1)))))(setvar“comdecho"scmde)(closef)(print)程序的安装与使用1.安装程序可以选择以下三种装载方式的任意一种:在AutoCAD环境下,将MXB.LSP拷贝至当前目录,再执行(LOAD“MXB”),即可装载MXB.LSP。先将MXB.LSP拷贝至ACADSUPPORT子目录下,再在ACADSUPPORTACAD

7、.LSP中加入下面一条语句:(AUTOLOAD“MXB”(“MXB”))即可实现启动AutoCAD时自动装载该程序。先将MXB.LSP拷贝至ACADSUPPORT子目录下,再在ACADSUPPORT子目录下的菜单文件ACAD.MNU中的合适位置处加上下面一条语句:[生成明细表]^C^C(LOAD“C:/ACAD/SUPPORT/MXB.LSP")MXB即可直接在菜单中操作生成明细表。2.程序的使用当用户装载该程序并运行之后,程序首先出现提示信息:Pleaseinputapoint:用户给出一个定位点后,程序继续提示:Pleaseinputf

8、ilename:再输入明细表数据文件名后,程序继续运行,并提示:Pleasewait...)程序运行结束后就

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。