autodesk genuine service怎么卸载? 卸载时总是出现问题:無法打开程序cad安装失败包请确认这是一个有用的程序cad安装失败包等问题。应该怎么做求大神指教
本文通过实例介绍如何在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”“”“”“”
然后用AutoLisp的READ-LINE函数提取囿关数据信息并把该数据信息赋给表格图块属性。
注意:各字符串要加双引号空字符串引号“”不可省略,以便AutoLisp识别
2.建立明细表格式图块
通常,一个明细表是由表头和表体两部分组成表头是固定的,因此可以用AutoCAD命令生成一个固定的表头并把它作为一个图块存入磁盤。
假设要得到如图1所示的明细表则先做一个如图2所示的明细表表头。
表头实际上是一个图形文件本文设定该文件名为MXB.DWG,然后用AutoCAD命令建立一个如图3所示的图块设其文件名为MXB1.DWG,图3中M1~M8均为属性名
当用户向表中插入该块时,系统会向用户询问属性值此时用AutoLisp程序将上面建立的明细表数据文件中的数据分别赋给各个属性。属性的定义是用AutoCAD命令ATTDEF完成的
首先,用AutoLisp的I/O函数READ-LINE读入数据文件MXB.TXT再用字符串连接函数STRCAT給文件的每一行加上括号,此时数据类型为字符串(STR)然后,再利用READ函数把字符串转换成一个表(LIST)以方便AutoLisp对表中的每一项进行各种操作。最后用AutoLisp的COMMAND函数调用INSERT命令,先将图块MXB.DWG插入表中再将MXB1.DWG插入表中,用NTH函数将前面AutoLisp读入的数据中各项信息分别赋给MXB1.DWG中的各个属性
下面給出实现上述功能的程序清单:
可以选择以下三种装载方式的任意一种:
即可实现启动AutoCAD时自动装载该程序。
即可直接在菜单中操作生成明細表
当用户装载该程序并运行之后,程序首先出现提示信息:
用户给出一个定位点后程序继续提示:
再输入明细表数据文件名后,程序继续运行并提示:
程序运行结束后就可以生成一个如图1所示的明细表。
版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。