Message 1 of 2
Why does it come to an error when load the application using VLAX.cls

Not applicable
09-30-2004
07:42 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
When I run my sub in AutoCAD 2004, the following codes will come to an
error:
Private Sub Class_Initialize()
If Left(ThisDrawing.Application.Version, 2) = "15" Then
Set VL =
ThisDrawing.Application.GetInterfaceObject("VL.Application.1")
ElseIf Left(ThisDrawing.Application.Version, 2) = "16" Then
Set VL =
ThisDrawing.Application.GetInterfaceObject("VL.Application.16") '
error occurs
End If
Set VLF = VL.ActiveDocument.Functions
End Sub
Thanks!