[VBA程序]：请教各位高手和版主

初学者R14-VBA

我刚学VBA, 公司里装的是R14正版的,而我学的教材都是R2000,所以好多功能都用不了,请教高手指点一下:R2000里编写的代码有什么方法可以用到R14中使用?
例如下面程序,我到屏幕上选取一条直线求端点,在R2000中运行成功,但在R14去执行不了请问什么原因,如何改动程序?

Dim hint2 As String
hint2 = vbCrLf & "请选择直线:"

Dim entobj As AcadEntity
Dim temp As Variant
Me.Hide
ThisDrawing.Utility.GetEntity entobj, temp, hint2
Dim spnt As Variant
spnt = entobj.EndPoint

efan2000

不知道你的AutoCAD是R14版的，还是R14.01版的。区别在于R14版没有VBA的环境。
如果是R14版的，因为不支持前绑定，因而所有的实体一律要声明为Object类型。
R14版的只能在VB中开发，因而首先要获取ACAD的应用程序级对象，然后通过对象层次访问它的Document对象。而这种ThisDrawing的方式在VB中要转化成AcadApp.ActiveDocument的格式。

Dim hint2 As String
hint2 = vbCrLf & "请选择直线:"

Dim entobj As Object
Dim temp As Variant
Me.Hide
AcadApp.ActiveDocument.Utility.GetEntity entobj, temp, hint2
Dim spnt As Variant
spnt = entobj.EndPoint