利用Excel的VBA,通过CADdxf文件格式,把Excel数据表与AutoCAD,LT图内数据连接起来(第

user3208cn

利用Excel的VBA,通过CADdxf文件格式,把Excel数据表与AutoCAD,LT图内数据连接起来(第二章)[br]

2009/04/29本人发表了” 利用Excel的VBA,通过CADdxf文件格式,把Excel数据表与AutoCAD,LT图内的数据连接起来.”的系统构思说明文章.

第二章

现在再就软件包的代码编制进行说明.

1.      CADdxf文件的知识

CADdxf文件是dwg文件的txt版本,如果用CAD打开,就是一张图纸.而如果以txt形式打开,则是一个单列多行,除用户题字以外,没有空格的txt文件. dxf文件非常娇气, 以txt形式编辑时,任何微小的错误,都会毁坏图纸.

所以很少有必要手工编辑txt形式的dxf文件.并且,即使是程序编辑,也要先做备份,防止出错毁图.

打开dxf文件(以txt形式打开),从头检索”AcDbBlockReference”,就可以到达第一个属性模块入口.从这里向下请注目:

No.1模块名称: BK1(用户无空格题字,例如BK1)  (注意:冒号以前和括号内是本人的注解文字)

… (X,y,z坐标)

第一个属性变量入口: ATTRIB

… (句柄等)

第一个属性题字信息入口: AcDbText (行计数:第一行)

… (X,y,z坐标,文字大小等共占9行)

第一个属性值: ID01(用户无空格题字, 例如ID01) (行计数:第十行)

…

第二个属性变量入口: ATTRIB

… (句柄等)

第二个属性题字信息入口: AcDbText (行计数:第一行)

… (X,y,z坐标,文字大小等共占9行)

第二个属性值: 739TT-1004(用户可有空格题字, 例如739TT-1004) (行计数:第十行)

…

(省略)

第n个属性变量入口: ATTRIB

… (句柄等)

第n个属性题字信息入口: AcDbText (行计数:第一行)

… (X,y,z坐标,文字大小等共占9行)

第n个属性值: 压缩空气罐温度(用户可有空格题字, 例如 压缩空气罐温度) (行计数:第十行)

…

No.1模块结束: SEQEND

…

No.2模块名称: BK1(用户无空格题字,例如BK1)(如果只有一个模块,名称就都一样)

(省略) (反复重复以上,直到No.n模块结束)

(要注意,每个模块的第一个属性值应该不同,例如 ID01, ID02, …IDnn)这个ID就是数据库的行号)

Dxf文件结束行: EOF (程序进行到此就结束访问Dxf文件了)