求助编写电线和水管的识别计量程序

fzh168168168

我用的是CAD_VBA 编写的程序，现在点数程序已全部写出，就差计算长度的程序了。

程序目前在读取曲线长度时老时发生错误，而停滞不前。

我在读取曲线长度时用的是：
VLAX.CLS v2.0 (Last updated 8/1/2003)
' Copyright 1999-2001 by Frank Oquendo
' 该程序由明经通道修改支持2004版本  的VLAX.CLS 类

我现在用的版本是autocad_2004

当点选曲线，初始化vlax.cls时，程序老是在下列代码发生问题：

  Private Sub Class_Initialize()
    '根据AutoCAD的版本判断使用的库类型
    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")
    End If
    Set VLF = VL.ActiveDocument.Functions
End Sub
////// Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16")--发生“加载应用程序时出现问题" ，估计是vl.application.16 相关DLL编写有问题。我上网查了好多资料，似乎没有一个解决的办法。我为此搞了好多天了，曾安装过cad2005,cad2006都是如此的问题。


  我的程序设计如下：

'---------CAD电子图的电线和水管的识别计量程序-----
  '----先读取所有电线或者水管，可读取总长度。
  '----在电线和水管沿伸处取点---，点按一定间距取，“搜索”区域为圆形，搜索直径用精确度来控制。
  '----然后在搜索的范围上使用选择集，发现文字标记后读取[文字与管线相同方向、靠近先识别及进行简单的语法合法性检查原则]并分类计算其长度。改变管线颜色（作为标记）。
  '-----分类长度累加求和与总长度比较，提示问题。用户点选手动识别处理，最后加入计算汇总输出
  '----识别完成。

望高人，帮帮我，写下几句能运行的代码帮帮我。。。我可不想写到一半就放弃了，太可惜。

[ 本帖最后由 zwa 于 2008-10-6 09:03 编辑 ]