向CAD发送命令问题！

AndyliuCAD · 发表于 2010-5-14 18:27:00

Public acadApp As Object
Public acadDoc As Object
Private Sub Command1_Click()
On Error GoTo L:
  GetACDoc
  Dim entHandle As String
  Dim strcmd As String
entHandle = "8E8E"
acadDoc.SendCommand "LineToPline "
strcmd = "(Handent""" & entHandle & """)"
acadDoc.SendCommand strcmd & " " & vbCrLf
acadDoc.SendCommand vbCrLf
  Exit Sub
L:
  MsgBox Err.Description
End Sub
'—————————————————————————————
'名称：GetACDoc
'作者：罗简单
'日期：2009-1-13
'功能：获取当前文件
'—————————————————————————————
Public Sub GetACDoc()
  '获取CASS程序和当前Document
  Set acadApp = GetObject(, ".Application")
  Set acadDoc = acadApp.ActiveDocument
End Sub
上面的代码执行到 acadDoc.SendCommand "LineToPline "
时就要求在图上选择对象呢，停住了
但是我
strcmd = "(Handent""" & entHandle & """)"
acadDoc.SendCommand strcmd & " " & vbCrLf
代码就是选择对象啊
我想让直接在程序里通过句柄来选择对象，怎么解决
上面的代码如果直接在VBA里运行是可以的，但是如果用VB来调用CAD的话
就要求在图上选择对象。
哪位高人指点一下啊！

雪山飞狐_lzh · 发表于 2010-5-15 00:00:00

空格全部改成VbCr

AndyliuCAD · 发表于 2010-5-17 08:32:00

不行啊，版主啊，我的版主我的神！

雪山飞狐_lzh · 发表于 2010-5-17 13:19:00

VB好久没用了，用C#试了下，不过是用Pedit命令的
不过，由于SendCommand固有的问题，有时会出错
Com调用最好不要用SendCommand
         var app = Marshal.GetActiveObject("AutoCad.Application") as AcadApplication;
         var doc = app.ActiveDocument;
         doc.SendCommand("pedit (Handent \"1F7\") Y  ")

向CAD发送命令问题！

发表回复

精选推荐