curve.cls类模块的问题

owenshowtime

小弟我用的vb6.0，加载了vlax和curve两个类模块之后写了如下代码：

Dim spline As AcadEntity
    Dim basePnt As Variant
    Dim L As Double
    Dim vlax As vlax
    Dim cur As Curve
    Call CAD_Click
    AppActivate obj_Acad.Caption
    obj_Doc.Utility.GetEntity spline, basePnt, "拾取河道曲线: "
    Set cur.Entity = spline
    L = cur.length

其中 CAD_Click是我定义的一个连接cad的过程，obj_Doc被定义为acaddocument。可是这段代码执行到Set cur.Entity = spline的时候总是出错，说没有定义或设置。我试图加一句set cur=new curve，可是如果加了这句代码，vlax的类模块代码又提示出错，请问各位大侠，小弟这段代码错在哪里了？应该怎么改呢？非常感谢！

owenshowtime

自己顶一下

请大侠们赐教！会不会是加载的模块不适用于vb6.0呢？

owenshowtime

为什么没有人来帮帮小弟呢？

owenshowtime

自己顶。。。
斑竹呢？请帮帮小弟呀。。。

alin

If you are using AutoCAD 2004, try to revise to first a few lines of code in VLAX.cls as follow

Private VL As Object
Private VLF As Object
Private acdApp As Object

Private Sub Class_Initialize()
   
    Set acdApp = GetObject(, "AutoCAD.Application")
    Set VL = acdApp.GetInterfaceObject("VL.Application.16")
    Set VLF = VL.ActiveDocument.Functions

End Sub

owenshowtime

非常感谢alin大侠！！
不知道您是否能给小弟留个联系方式呢？