§Sub CreateHideSituation()
§ Dim acmApp As AcadmApplication
§ Set acmApp =
ThisDrawing.Application.GetInterfaceObject("AcadmAuto.AcadmApplication")
§
§ Dim acmUtil As McadUtility
§ Set acmUtil =
acmApp.ActiveDocument.Utility
§
§ Dim acmStrMgr2d As Mcad2DStructureMgr
§ Set acmStrMgr2d
= acmApp.ActiveDocument.StructureMgr2D
§
§ Dim acmPick As McadPick
§ Dim acmForeComp,
acmBackComp
§ Dim acmCompView As McadComponentView
§
§ Set acmPick =
acmUtil.Pick("Pick component view", mcComponentView)
§ Set acmCompView
= acmUtil.GetObjectFromPick(acmPick)
§
§ Set acmPick =
acmUtil.Pick("Pick foreground entity", mcObject)
§ Set acmForeComp
= acmUtil.GetObjectFromPick(acmPick)
§
§ Set acmPick =
acmUtil.Pick("Pick background entity", mcObject)
§ Set acmBackComp
= acmUtil.GetObjectFromPick(acmPick)
§
§ Dim acmCompViewDef As McadComponentViewDefinition
§ Set acmCompViewDef
= acmCompView.Definition
§
§ Dim acmHideSit As McadHideSituation
§ Dim varForeIds,
varBackIds
§ varForeIds =
acmUtil.GetIdsFromObject(acmForeComp)
§ varBackIds =
acmUtil.GetIdsFromObject(acmBackComp)
§ On Error
Resume Next
§ Call acmCompViewDef.AddHideSituation("MyHide",
acmHideSit, varForeIds, varBackIds)
§ If Err Then
§ Err.Clear
§ MsgBox "Cannot create hide
situation with the given objects"
§ End If
§ On Error GoTo
0
§End
Sub