vb中getpoint不能取点

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

用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??