社区 › VB › 在VB中如何使用ThisDrawing.SendCommand

兰州人 发表于 2006-11-14 15:48:00

在VB中如何使用ThisDrawing.SendCommand

在的VBA中可以使用ThisDrawing.SendCommand指令
ThisDrawing.SendCommand "_UCS" & vbCr & "y" & vbCr & ""
问:
在VB中,这条语句如何改??
???+SendCommand "_UCS" & vbCr & "y" & vbCr & ""就能实现上述语句的功能.
谢谢

gdzhou 发表于 2006-11-14 17:21:00

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 & ""

兰州人 发表于 2006-11-14 17:29:00

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

查看完整版本: 在VB中如何使用ThisDrawing.SendCommand