autocad 二次开发 拆分图纸_(整理)autocad二次开发块表记录获得和cad层级结构,以及图块保存与打开....

精品文档

精品文档

1

块记录获得

模型空间的块表记录通过

transcation

类得

getobject

函数来获得，它的

objectid

可以通过块表的索引值来获取，其索引器的参数为：

Blocktablerecord.modelspace

或者

blocktablerecord.

链条输送机

2

图形数据库的结构

获取相应的对象，按层级结构获得，则可以理解标题

1

的内容。

3

打开代码

Dim filename As String

'Dim n AsSystem.IO.File

Dim f AsSystem.IO.FileStream

Dim r As System.IO.StreamReader

OpenFileDialog1.Filter = "

文本文件

(*.txt)|*.txt"

OpenFileDialog1.ShowDialog()

'

调用对话框

filename = OpenFileDialog1.FileName

'

获取选中的文件名

f

=

New

System.IO.FileStream(filename,

IO.FileMode.Open,

IO.FileAccess.Read)

r = New System.IO.StreamReader(f)

TextBox1.Text = r.ReadToEnd()

'

读文件

r.Close()

4

保存代码

Dim filename As String

Dim f AsSystem.IO.FileStream

Dim w AsSystem.IO.StreamWriter

SaveFileDialog1.Filter = "

文本文件

(*.txt)|*.txt"

SaveFileDialog1.ShowDialog()

'

调用对话框