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

向CAD发送命令问题！

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")
页: [1]
查看完整版本: 向CAD发送命令问题！