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<BR>Public Property Get Application() As Object<BR>                       If Not oApp Is Nothing Then Set Application = oApp<BR>End Property
Public Property Let Application(ByVal vNewValue As Object)<BR>                       Set oApp = vNewValue<BR>End Property
Public Sub Test()<BR>pnt = oApp.ActiveDocument.Utility.GetPoint()<BR>MsgBox pnt(0) &amp; "," &amp; pnt(1) &amp; "," &amp; pnt(2)<BR>End Sub<BR>
VBA代码：
Sub t5()<BR>                       Dim a As New TlsTest<BR>                       a.Application = Application<BR>                       a.Test
End Sub<BR>

mikewolf2k 发表于 2004-11-16 20:41:00

我是这样引用的：


Sub linkacad(Acadapp)<BR>                       On Error GoTo err:<BR>                       'Set Acadapp = GetObject(, "AutoCAD.application")               'for acad2000/2002<BR>                       Set Acadapp = GetObject(, "AutoCAD.application.16")               'for acad2004<BR>                       Acadapp.Visible = True<BR>                       Exit Sub<BR>err:<BR>                       MsgBox ("请检查是否已经运行AutoCAD！")               'for acad2000/2002<BR>                       'MsgBox ("请检查是否已经运行AutoCAD2004！")               'for acad2004<BR>                       Set Acadapp = Nothing<BR>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

mikewolf2k发表于2004-11-17 18:49:00static/image/common/back.gif谢谢帮主。



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


<BR>不太懂你的意思


你在Lisp里是怎么调用的？


这样是可以达到你的目的的最好办法了

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

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


我的dll在2000中正常，而在2002/2004中有问题。我想应该是vb的问题。不知如何解决。
页: [1] 2
查看完整版本: vb中getpoint不能取点