AutoCAD 的数据库

st788796

一、符号表

CAD图形就是一个包含有多个表的数据库，它规定了9个符号表(见下表)，用户不能再增加新的符号表

符号表名	符号表功能
AcDbViewTable (视图表)	适用于 AcDbViewTableRecord 类，表示在数据库中存储的视图。 视图与CAD的"VIEW"命令相关联
AcDbViewportTable (视口表)	适用于 AcDbViewportTableRecord 类，表示在CAD中当前系统变 量TILEMODE的值为1时的视口设置。视口配置由CAD的 VPORTS 命令创建。不要和 MVIEW 命令混淆，当系统变量 TILEMODE 的 值为0是，该命令创建视口实体。
AcDbLinetypeTable (线性表)	适用于 AcDbLinetypeTableRecord 类，表示图形数据库中的线性。
AcDbLayerTable (层表)	适用于 AcDbLayerTableRecord类，表示图层。
AcDbTextStyleTable (文字样式表)	适用于 AcDbTextStyleTable 类，表示文字样式。
AcDbUCSTable (用户坐标系表)	适用于 AcDbUCSTableRecord 类，表示图形数据库中的存储的用户 坐标系。
AcDbRegAppTable (应用程序名注册表)	适用于 AcDbRegAppTableRecord 类，表示为图形数据库中对象的扩 展实体数据而注册的应用程序名。
AcDbDimStyleTable (尺寸标注样式表)	适用于 AcDbDimStyleTableRecord 类，表示图形数据库中的尺寸标注 样式。
AcDbBlockTable (块表)	适用于 AcDbDimStyleTableRecord 类，表示图形数据库中定义的块。 此表含有两个非常重要的记录：模型空间和图纸空间。所有的实体(可 见对象)均防御块表AcDbBlockTable中。

在 ActiveX 模型中，Autocad 进程是

2. (setq acapp (vlax-get-acad-object))

(setq acapp (vlax-get-acad-object))

所有打开文档集合

2. (setq docs (vla-get-documents acapp))

(setq docs (vla-get-documents acapp))

当前文档

2. (setq viewtbs (vla-get-views curdoc))

(setq viewtbs (vla-get-views curdoc))

以上 9 个表就是以下集合

2. (setq viewtbs (vla-get-views curdoc))
   
3. (setq vptbs (vla-get-viewports curdoc))
   
4. (setq ltypetbs (vla-get-linetypes curdoc))
   
5. (setq layertbs (vla-get-layers curdoc))
   
6. (setq textstytbs (vla-get-textstyles curdoc))
   
7. (setq ucstbs (vla-get-usercoordinatesystems curdoc))
   
8. (setq regapptbs (vla-get-registeredapplications curdoc))
   
9. (setq dimstytbs (vla-get-dimstyles curdoc))
   
10. (setq blocktbs (vla-get-blocks curdoc))
    

(setq viewtbs (vla-get-views curdoc))<br /> (setq vptbs (vla-get-viewports curdoc))<br /> (setq ltypetbs (vla-get-linetypes curdoc))<br /> (setq layertbs (vla-get-layers curdoc))<br /> (setq textstytbs (vla-get-textstyles curdoc))<br /> (setq ucstbs (vla-get-usercoordinatesystems curdoc))<br /> (setq regapptbs (vla-get-registeredapplications curdoc))<br /> (setq dimstytbs (vla-get-dimstyles curdoc))<br /> (setq blocktbs (vla-get-blocks curdoc))<br />

除了以上 9 个表，还有一个根词典（autolisp 中的 namedobjdict)

2. (setq dicts (vla-get-dictionaries curdoc))

(setq dicts (vla-get-dictionaries curdoc))

以上 表 增加对象采用 Add 方法，比如新建图层

1. (vla-add layertbs "test")

复制代码

具体使用参加 ActiveX 手册中的 Method->Add Method

fan_zh

太高深了，看不懂

yoyoho

感谢分享！！！！！

sh_h

大师，当前文档是不是应该这样写：

1. (setq curdoc (vla-get-ActiveDocument docs))
   

(setq curdoc (vla-get-ActiveDocument docs))<br />

st788796

sh_h 发表于 2017-8-3 12:53

activedocument 故名思意“活动的文档”，使用对象是 Application，ActiveX 手册中的 VBA Example

2. 
   
3. Sub Example_ActiveDocument()
   
4.     Dim activeDoc As AcadDocument
   
5.     ' Returns current document in AutoCAD
   
6.     Set activeDoc = ThisDrawing.Application.ActiveDocument
   
7.     MsgBox "The active document is: " & activeDoc.name, vbInformation, "ActiveDocument Example"
   
8. End Sub
   

<br /> Sub Example_ActiveDocument()<br />     Dim activeDoc As AcadDocument<br />     ' Returns current document in AutoCAD<br />     Set activeDoc = ThisDrawing.Application.ActiveDocument<br />     MsgBox "The active document is: " & activeDoc.name, vbInformation, "ActiveDocument Example"<br /> End Sub<br />

对应的你可以再看看 Excel VBA 中的 activesheet, 使用对象也是 application, 还包括  activecell activeselection ...

2. (setq excelapp (vlax-get-or-create-object "excel.application"))
   
3. (setq sht (vlax-get excelapp 'ActiveSheet))

(setq excelapp (vlax-get-or-create-object "excel.application"))<br /> (setq sht (vlax-get excelapp 'ActiveSheet))

newer

st788796 发表于 2017-8-3 15:30

现在的acadauto.chm帮助文件，例子代码里面同时也有VLISP的

st788796

高版本的Help在线文档都有这些代码，VBA Vlisp 包括 C# ， 一般我都是用 2008 不本地文档acadauto.chm

newer

st788796 发表于 2017-8-3 16:41

用2013,2014,2016的本地文档acadauto.chm， 论坛都有下载。可以直接看VLISP的例子。

sh_h

st788796 发表于 2017-8-3 15:30

学习了，谢谢大师指教！！！

sicky111

难得好文章，收藏。

yzhyxh