这个程序用到VLAX类及曲线操作，为什么出错？

mccad

可能是内存溢出等问题，因为每引用一次曲线类中的某个函数都会新建一次vl对象，所以计算量会很大。
你试试改为不使用VLAX和CURVE类，而直接写程序，只一次引用VL类型库，并通过类型库自己写几个函数来计算，这样就只引用一次VL，计算量会少很多。

gyl

这次没有使用类模块，错误依旧（不一定每次都出错，且数据量越大越会出错）：

2. Sub GetAllLength()
   
3. 
   
4.     Dim SsetObj As AcadSelectionSet  '选择集对象
   
5.     Dim SsetName As String           '选择集名称
   
6.     Dim gpCode(0) As Integer
   
7.     Dim dataValue(0) As Variant
   
8.     Dim i As Integer
   
9.    
   
10.     Dim VL As Object
    
11.     Dim VLF As Object
    
12.     Dim sym As Object
    
13.     Dim ret As Variant
    
14.    
    
15.     ThisDrawing.SendCommand "(vl-load-com)" & vbCr
    
16.     Set VL = Application.GetInterfaceObject("VL.Application.1")
    
17.     Set VLF = VL.ActiveDocument.Functions
    
18.    
    
19.     '选择集名称
    
20.     SsetName = "SplineSet"
    
21.     '建立选择集
    
22.     On Error Resume Next
    
23.     Set SsetObj = ThisDrawing.SelectionSets.Add(SsetName)
    
24.     If Err Then
    
25.         Set SsetObj = ThisDrawing.SelectionSets.Item(SsetName)
    
26.         SsetObj.Clear
    
27.         Err.Clear
    
28.     End If
    
29.     On Error GoTo 0
    
30.    
    
31.     '将全部曲线添加到选择集
    
32.     gpCode(0) = 0
    
33.     dataValue(0) = "PolyLine"
    
34.     SsetObj.Select acSelectionSetAll, , , gpCode, dataValue
    
35.    
    
36.     '打开文件
    
37.     Open "D:\curve.txt" For Output As #1
    
38.     Print #1, "曲线数目：" & SsetObj.Count
    
39.    
    
40.     '将曲线长度写入文件
    
41.     For i = 1 To SsetObj.Count
    
42.         Set sym = VLF.Item("read").funcall("handle")
    
43.         ret = VLF.Item("set").funcall(sym, SsetObj.Item(i - 1).Handle)
    
44.         Set sym = VLF.Item("read").funcall("(setq curve (handent handle))")
    
45.         Set ret = VLF.Item("eval").funcall(sym)
    
46.         Set sym = VLF.Item("read").funcall("(vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve))")
    
47.         ret = VLF.Item("eval").funcall(sym)
    
48.         Print #1, "第"; i; "条曲线长度: "; Format(ret, "0.000")
    
49.     Next i
    
50.         
    
51.     Close 1
    
52.     SsetObj.Delete
    
53.     Set VLF = Nothing
    
54.     Set VL = Nothing
    
55.    
    
56.     MsgBox "成功"
    
57.    
    
58. End Sub
    

Sub GetAllLength()<br /> <br />     Dim SsetObj As AcadSelectionSet  '选择集对象<br />     Dim SsetName As String           '选择集名称<br />     Dim gpCode(0) As Integer<br />     Dim dataValue(0) As Variant<br />     Dim i As Integer<br />     <br />     Dim VL As Object<br />     Dim VLF As Object<br />     Dim sym As Object<br />     Dim ret As Variant<br />     <br />     ThisDrawing.SendCommand "(vl-load-com)" & vbCr<br />     Set VL = Application.GetInterfaceObject("VL.Application.1")<br />     Set VLF = VL.ActiveDocument.Functions<br />     <br />     '选择集名称<br />     SsetName = "SplineSet"<br />     '建立选择集<br />     On Error Resume Next<br />     Set SsetObj = ThisDrawing.SelectionSets.Add(SsetName)<br />     If Err Then<br />         Set SsetObj = ThisDrawing.SelectionSets.Item(SsetName)<br />         SsetObj.Clear<br />         Err.Clear<br />     End If<br />     On Error GoTo 0<br />     <br />     '将全部曲线添加到选择集<br />     gpCode(0) = 0<br />     dataValue(0) = "PolyLine"<br />     SsetObj.Select acSelectionSetAll, , , gpCode, dataValue<br />     <br />     '打开文件<br />     Open "D:\curve.txt" For Output As #1<br />     Print #1, "曲线数目：" & SsetObj.Count<br />     <br />     '将曲线长度写入文件<br />     For i = 1 To SsetObj.Count<br />         Set sym = VLF.Item("read").funcall("handle")<br />         ret = VLF.Item("set").funcall(sym, SsetObj.Item(i - 1).Handle)<br />         Set sym = VLF.Item("read").funcall("(setq curve (handent handle))")<br />         Set ret = VLF.Item("eval").funcall(sym)<br />         Set sym = VLF.Item("read").funcall("(vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve))")<br />         ret = VLF.Item("eval").funcall(sym)<br />         Print #1, "第"; i; "条曲线长度: "; Format(ret, "0.000")<br />     Next i<br />         <br />     Close 1<br />     SsetObj.Delete<br />     Set VLF = Nothing<br />     Set VL = Nothing<br />     <br />     MsgBox "成功"<br />     <br /> End Sub<br />

这是试验数据。

gyl

谁能够解决这个问题？

mccad

在程序中加上AutoLISP的函数(gc)应该可以解决，我刚写了个程序使用了该函数是可以解决多次调用曲线类函数的问题

gyl

真的可以执行了。但速度非常慢。函数(gc)什么时候调用最合适呢？

mccad

看看出错的频率，调整(GC)的使用频率。

zeng29

计算量很大,速度慢已是在所难免的,这在曲线多的时候尤为突出.
为了让操作者了解进度,可以在开始时显示一个非模态的窗体,在该窗体上动态显示进度,这样就可以操作者知道运行的情况.

cangcang

ThisDrawing.SendCommand "(vl-load-com)" & vbCr　　不要在过程中多次调用　打开窗体时调用　就可以了　

yyk1yyk1

AutoLISP的函数(gc)怎么使用？