VLAX类及曲线操作

gzx901

在运行下一行的class 处提示：　缺少：语句结束，请问什么原因？

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END

sgf1234

请明总解释，为什么上述类在处理大容量数据时总会出现运行时错误。比如，我求一条多义线上的一系列点的坐标（3000个点），用GetPointAtDist方法，则在运行中出错次数较多。而处理数据量小时，则不会出错。是否是VBA内部不完善所致

geluojjj

Set VL = ThisDrawing.Application.GetInterfaceObject

这句话不能用的原因是activex没有加载

所有出现这类问题的同志，在命令行输入（vl-load-com）之后再运行程序试试看

 

gxnnmy27

怎么导入？在哪导入VLAX类？？？？？

xujian8498

我是了新手求救一个能使曲面不同高度带有不同颜色的程序，谢谢！

罗jz

不好用，常出现缺少参数问题(实际上传给它的参数齐全啊）。处理较少的实体还行，实体很多时极不稳定，导致的结果是直接退出CAD。所以，要么直接用vlisp，要么arx，效果都还要好些。真不知道autodesk co.怎么想的，好不容易出个vba，居然没有做曲线处理函数。

luanxiaohe

要是这种例子在多一点该多好呀！谢谢管理员的辛勤修编！

兰州人

需要加强这个知识点的知识。

wuyunpeng888

这个是源文件呀

wenwengg

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")
    ElseIf Left(ThisDrawing.Application.Version, 2) = "17" Then
     Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16")
    ElseIf Left(ThisDrawing.Application.Version, 2) = "18" Then
     Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16")
    End If
     Set VLF = VL.ActiveDocument.Functions

End Sub