gzx901 发表于 2005-11-2 22:29:00

<P>在运行下一行的class 处提示：　缺少：语句结束，请问什么原因？</P>
<P>VERSION 1.0 CLASS<BR>BEGIN<BR>&nbsp; MultiUse = -1&nbsp; 'True<BR>END<BR></P>

sgf1234 发表于 2006-1-16 22:09:00

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

geluojjj 发表于 2006-3-20 11:49:00

<P>Set&nbsp;VL&nbsp;=&nbsp;ThisDrawing.Application.GetInterfaceObject</P>
<P>这句话不能用的原因是activex没有加载</P>
<P>所有出现这类问题的同志，在命令行输入（vl-load-com）之后再运行程序试试看</P>
<P>&nbsp;</P>

gxnnmy27 发表于 2006-3-31 00:44:00

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

xujian8498 发表于 2006-5-13 11:02:00

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

罗jz 发表于 2006-7-2 12:09:00

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

luanxiaohe 发表于 2006-9-14 19:28:00

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

兰州人 发表于 2008-11-28 14:15:00

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

wuyunpeng888 发表于 2009-4-7 21:50:00

这个是源文件呀

wenwengg 发表于 2012-2-29 08:36:11

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
页: 1 2 3 4 5 6 [7] 8
查看完整版本: VLAX类及曲线操作