‹#›
© 2008 Autodesk
ADSK_BLack_BAR.png
ADN Webcasts 2008
§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
AcadmAuto