vb中getpoint不能取点

mikewolf2k

用vb编译为dll文件，再在cad中调用，在执行到getpoint时，cad2000正常，而cad2002/2004均只显示提示，而鼠标在绘图区域内无显示，亦不相应鼠标和键盘按键，只能按esc退出。


类型库引用没有问题，分别引用了2000/2004的，vb5和vb6都试过了，请问哪位大虾知道是什么原因，如何解决？谢谢。

雪山飞狐_lzh

好像以前说过？不引用类型库 我在2005里试了一下是可以的 vb代码： Private oApp As Object
Public Property Get Application() As Object
If Not oApp Is Nothing Then Set Application = oApp
End Property Public Property Let Application(ByVal vNewValue As Object)
Set oApp = vNewValue
End Property Public Sub Test()
pnt = oApp.ActiveDocument.Utility.GetPoint()
MsgBox pnt(0) & "," & pnt(1) & "," & pnt(2)
End Sub
VBA代码： Sub t5()
Dim a As New TlsTest
a.Application = Application
a.Test End Sub

mikewolf2k

我是这样引用的： Sub linkacad(Acadapp)
On Error GoTo err:
'Set Acadapp = GetObject(, "AutoCAD.application") 'for acad2000/2002
Set Acadapp = GetObject(, "AutoCAD.application.16") 'for acad2004
Acadapp.Visible = True
Exit Sub
err:
MsgBox ("请检查是否已经运行AutoCAD！") 'for acad2000/2002
'MsgBox ("请检查是否已经运行AutoCAD2004！") 'for acad2004
Set Acadapp = Nothing
End Sub 然后insertpoint = Acadapp.ActiveDocument.Utility.GetPoint(, "选择插入点(按ESC退出):") 分别引用2000/2004的类型库，结果2000可用，2004不可用。斑竹你的方法我看不懂，不用引用cad类型库，前7行就能将oApp指定为autocad??

雪山飞狐_lzh

VBA运行时将Application传到Dll里，在Dll不需要连接AutoCad

mikewolf2k

我是将所有代码编译成dll，然后在cad中用lisp调用，不用vba了，请问这样有办法解决吗？

雪山飞狐_lzh

(setq a (vlax-create-object "Test.TlsTest"))


(vlax-put-property a "application" (vlax-get-acad-object))


(vlax-invoke-method a "test")

mikewolf2k

谢谢帮主。


可惜我不懂lisp。难道用vb就不能实现吗？有没有别人碰到过这个问题？

tiger8888

这篇文章很受启发

雪山飞狐_lzh

mikewolf2k发表于2004-11-17 18:49:00谢谢帮主。 可惜我不懂lisp。难道用vb就不能实现吗？有没有别人碰到过这个问题？

不太懂你的意思 你在Lisp里是怎么调用的？ 这样是可以达到你的目的的最好办法了

mikewolf2k

我的lisp只是调用dll的一个函数而已，所有的功能都由dll中的代码完成。你“VBA运行时将Application传到Dll里”的方法我不懂。


我的dll在2000中正常，而在2002/2004中有问题。我想应该是vb的问题。不知如何解决。