怎样计算曲线长度

earchen

怎样用vba计算一条曲线（直线，圆弧，pline线等）的长度，我想知道是怎样的算法和函数

efan2000

使用VL的接口，它提供了所有曲线的操作函数，具体可以参照置顶的VLAX类介绍。

efan2000

写了一个简单的例子。可以参考一下。

VLAX类函数是完整的处理曲线的函数，现只提取出求曲线长度的算法。

2. 
   
3. Private Function GetLength(ByVal EntObj As AcadEntity) As Variant
   
4.     Dim VL As Object
   
5.     Dim VLF As Object
   
6.    
   
7.     Dim sym As Object
   
8.     Dim ret As Variant
   
9.    
   
10.     ThisDrawing.SendCommand "(vl-load-com)" & vbCr ‘首先要加载VL接口，因为后面的函数是基于它的。
    
11.    
    
12.     Set VL = Application.GetInterfaceObject("VL.Application.16") '这是用于R2004版的，R2000或者R2002的应该使用VL.Application.1。
    
13.     Set VLF = VL.ActiveDocument.Functions
    
14.     Set sym = VLF.Item("read").funcall("handle") '传入句柄
    
15.     ret = VLF.Item("set").funcall(sym, EntObj.Handle)
    
16.     Set sym = VLF.Item("read").funcall("(setq curve (handent handle))") '根据句柄得到实体名称（Lisp中的实体名称，这和EntityName是不一样的。）
    
17.     Set ret = VLF.Item("eval").funcall(sym)
    
18.     Set sym = VLF.Item("read").funcall("(vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve))") '计算终点参数，然后计算距离。
    
19.     ret = VLF.Item("eval").funcall(sym) '返回长度
    
20.     GetLength = ret
    
21. End Function
    
22. 
    
23. Sub test()
    
24.     Dim l As Double
    
25.     l = GetLength(ThisDrawing.ModelSpace(0))
    
26.     Debug.Print "曲线长度: " & l
    
27. End Sub
    

<br /> Private Function GetLength(ByVal EntObj As AcadEntity) As Variant<br />     Dim VL As Object<br />     Dim VLF As Object<br />     <br />     Dim sym As Object<br />     Dim ret As Variant<br />     <br />     ThisDrawing.SendCommand "(vl-load-com)" & vbCr ‘首先要加载VL接口，因为后面的函数是基于它的。<br />     <br />     Set VL = Application.GetInterfaceObject("VL.Application.16") '这是用于R2004版的，R2000或者R2002的应该使用VL.Application.1。<br />     Set VLF = VL.ActiveDocument.Functions<br />     Set sym = VLF.Item("read").funcall("handle") '传入句柄<br />     ret = VLF.Item("set").funcall(sym, EntObj.Handle)<br />     Set sym = VLF.Item("read").funcall("(setq curve (handent handle))") '根据句柄得到实体名称（Lisp中的实体名称，这和EntityName是不一样的。）<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 />     GetLength = ret<br /> End Function<br /> <br /> Sub test()<br />     Dim l As Double<br />     l = GetLength(ThisDrawing.ModelSpace(0))<br />     Debug.Print "曲线长度: " & l<br /> End Sub<br />

earchen

谢谢版主，这中方法可以在2000以上的cad中使用，可是我的工作环境是r14，请问有没有什么办法

mccad

1. R14版本的VL没有集成到AutoCAD中，所以没有带vl 的函数。
2.R14中也没有什么vl.tlb 文件，也就无法调用vl库了。