在VB中如何使用ThisDrawing.SendCommand

兰州人

在AutoCAD的VBA中可以使用ThisDrawing.SendCommand指令

ThisDrawing.SendCommand "_UCS" & vbCr & "y" & vbCr & ""

问:

在VB中,这条语句如何改??

???+SendCommand "_UCS" & vbCr & "y" & vbCr & ""就能实现上述语句的功能.

谢谢

gdzhou

On Error Resume Next
Dim acadapp As AcadApplication
Set acadapp = GetObject(, "autocad.application")
If Err Then
    Err.Clear
    Set acadapp = CreateObject("autocad.application")
    acadapp.Visible = True
    If Err Then
        MsgBox Err.Description
        Exit Sub
    End If
End If
Dim acaddoc As AcadDocument
Set acaddoc = acadapp.ActiveDocument

acaddoc.sendcommand "_UCS" & vbCr & "y" & vbCr & ""

兰州人

谢谢，我会按你的思路试一下。