使用 ucs 和剪裁平面设置视图

Public Sub SetClippedView()
    ' This example creates a new view.
    ' It then changes the active viewport to
    ' the newly created view.
    
    ' Create a new view
    Dim viewObj As AcadView
    Set viewObj = ThisDrawing.Views.Add("TESTVIEW")
    
    ' Set the view characteristics
    ' get the current ucs values:
    Dim xdir As Variant, ydir As Variant, zdir(2) As Double, ucsorigin As Variant
    xdir = ThisDrawing.GetVariable("UCSXDIR")
    ydir = ThisDrawing.GetVariable("UCSYDIR")
    'cross the x and y vecs to get the zdir
    Dim xv(2) As Double, yv(2) As Double
    InitVec xv, xdir: InitVec yv, ydir
    VecCross zdir, xv, yv
    ucsorigin = ThisDrawing.GetVariable("UCSORG")
    viewObj.Center(0) = ucsorigin(0): viewObj.Center(1) = ucsorigin(1)
    viewObj.Direction = zdir
    viewObj.Target = ucsorigin
    'set the clipping planes on:
    ThisDrawing.SetVariable "VIEWMODE", 6 '<<-------- fails here
    
    ' Get the current active viewport
    Dim viewportObj As AcadViewport
    Set viewportObj = ThisDrawing.ActiveViewport
       
    ' Set the view in the viewport
    viewportObj.SetView viewObj
    ThisDrawing.ActiveViewport = viewportObj
        
    ThisDrawing.Regen True
    ThisDrawing.SendCommand "_zoom" & vbCr & "a" & vbCr
End Sub