Database 对象 |
外部参照块的内容。
VBA 类名 | AcadDatabase |
---|---|
创建方法 | 不可使用 |
访问途径 | Block.XRefDatabase |
该对象提供对外部参照块的访问。只有IsXRef属性为TRUE的块才适用。
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 + acLsLineType
End Sub