在VB中如何使用ThisDrawing.SendCommand

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

在的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

发表回复

精选推荐