在VBA中如何实现AutoCAD中UCS_V（视图）功能？

xujian8498

在VBA中如何实现AutoCAD中UCS_V（视图）功能？

其要求是，先画好立体图，再转成视图写字等。衷心感谢！

xinghesnak

Dim str As String
ThisDrawing.SetVariable "cmddia", 0
str = "AMDWGVIEW" & vbCr & vbCr & vbCr & vbCr & vbCr & "V" & vbCr & vbCr & "0,0,0" & vbCr & vbCr
ThisDrawing.SendCommand str
ThisDrawing.SetVariable "cmddia", 1
ThisDrawing.Application.ZoomAll

xujian8498

谢谢!我也试成了一种办法，程序如下：

' 设置当前的坐标系为世界坐标系
        ThisDrawing.SendCommand "_ucs "
       
        Utilobj.CreateTypedArray direction, vbDouble, -1, -1, 1
        ThisDrawing.ActiveViewport.direction = direction
        ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
        ThisDrawing.SendCommand "ucs" & vbCr & "w "
        ThisDrawing.SendCommand "ucs" & vbCr & "v "

ZoomAll