行业知识
00x集体——cad 中DB(database)对象—— vba实现
2026-11-01 15:14:14
来源：互联网转载
| Database 对象 |
外部参���块的内容。
（）| VBA 类名 | AcadDatabase （） |
|---|---|
| 创建方法 | 不可使用 |
| 访问途径 | Block.XRefDatabase |
该对象提供对外部参照块的访问。只有IsXRef属性为TRUE的块才适用。
| 方法 CopyObjects | 属性 Application Blocks Dictionaries DimStyles ElevationModelSpace ElevationPaperSpace Groups HandleToObject HasExtensionDictionary Layers Layouts Limits Linetypes ModelSpace ObjectIDToObject OwnerID PaperSpace PlotConfigurations Preferences RegisteredApplications TextStyles UserCoordinateSystems Viewports Views |
Sub Example_SetDatabase() ' The following code saves the color and linetype settings ' of the current layer. It uses the SetDatabase method to ' associate the current drawing database with the ' LayerStateManager object. Dim oLSM As AcadLayerStateManager ' Access the LayerStateManager object Set oLSM = ThisDrawing.Application. _ GetInterfaceObject("AutoCAD.AcadLayerStateManager.16") ' Associate the current drawing database with LayerStateManager oLSM.SetDatabase ThisDrawing.Database oLSM.Save "ColorLinetype", acLsColor + acLsLineTypeEnd Sub
上一篇：服务器功率怎么看大小?
下一篇：怎么开启西瓜服务器权限?
