社区 › VB › vb中getpoint不能取点

mikewolf2k 发表于 2004-11-16 19:01:00

vb中getpoint不能取点

用vb编译为dll文件，再在cad中调用，在执行到getpoint时，cad2000正常，而cad2002/2004均只显示提示，而鼠标在绘图区域内无显示，亦不相应鼠标和键盘按键，只能按esc退出。
类型库引用没有问题，分别引用了2000/2004的，vb5和vb6都试过了，请问哪位大虾知道是什么原因，如何解决？谢谢。

雪山飞狐_lzh 发表于 2004-11-16 19:15:00

好像以前说过？不引用类型库 我在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 发表于 2004-11-16 20:41:00

我是这样引用的：
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 发表于 2004-11-16 20:44:00

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

mikewolf2k 发表于 2004-11-16 21:36:00

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

雪山飞狐_lzh 发表于 2004-11-16 21:50:00

(setq a (vlax-create-object "Test.TlsTest"))
(vlax-put-property a "application" (vlax-get-acad-object))
(vlax-invoke-method a "test")

mikewolf2k 发表于 2004-11-17 18:49:00

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

tiger8888 发表于 2004-11-17 19:17:00

这篇文章很受启发

雪山飞狐_lzh 发表于 2004-11-17 20:46:00

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

mikewolf2k 发表于 2004-11-17 20:58:00

我的lisp只是调用dll的一个函数而已，所有的功能都由dll中的代码完成。你“VBA运行时将Application传到Dll里”的方法我不懂。
我的dll在2000中正常，而在2002/2004中有问题。我想应该是vb的问题。不知如何解决。

查看完整版本: vb中getpoint不能取点