llikk_love 发表于 2012-1-10 18:32:46

cad2008调用vlax和curve

Private Sub Class_Initialize()
    '根据AutoCAD的版本判断使用的库类型
    If Left(ThisDrawing.Application.Version, 2) = "15" Then
      Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.15")
    ElseIf Left(ThisDrawing.Application.Version, 2) = "17" Then
      Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.17")
   
   
    End If
   
    Set VLF = VL.ActiveDocument.Functions
End Sub

将16改成17或者17.1都不行，请问下各位达人，改怎么改装下程序，才能使08的调用vlax和curve类。
页: [1]
查看完整版本: cad2008调用vlax和curve