autocad二次开发块表记录获得和cad层级结构，以及图块保存与打开.docxVIP

块记录获得 模型空间的块表记录通过transcation类得 getobject函数来获得，它的objectid可以通过块表的索引值来获取，其索引器的参数为： Blocktablerecord.modelspace 或者 blocktablerecord.链条输送机 图形数据库的结构 获取相应的对象，按层级结构获得，则可以理解标题1的内容。 打开代码 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() 保存代码 Dim filename As String Dim f AsSystem.IO.FileStream Dim w AsSystem.IO.StreamWriter SaveFileDialog1.Filter = 文本文件(*.txt)|*.txt SaveFileDialog1.ShowDialog() 调用对话框 filename = SaveFileDialog1.FileName 获取选中的文件名 f = New System.IO.FileStream(filename, IO.FileMode.Create, IO.FileAccess.Write) w = New System.IO.StreamWriter(f) w.Write(TextBox1.Text) 写文件 w.Close() 引用空间 Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry 菜单开发 Public Sub AddMenu() Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) 创建菜单 Dim newMenu As AcadPopupMenu Set newMenu = currMenuGroup.Menus.Add(医药物流设备) 添加菜单项 Dim macro As String macro = Chr(vbKeyEscape) + Chr(vbKeyEscape) 相当于按下两次Esc键 系统布置(含有子菜单) Dim menuDraw As AcadPopupMenu Set menuDraw = newMenu.AddSubMenu(newMenu.Count + 1, Chr(Asc()) 子系统布置) 子菜单项目：立体库系统 Dim subMenuItem As AcadPopupMenuItem Dim subMenuItem2 As AcadPopupMenu Set subMenuItem = menuDraw.AddMenuItem( _ menuDraw.Count + 1, Chr(Asc()) 立体库系统, macro -vbarun + Chr(32) + thisdrawing.li