这一段怎么放到 vb6.0里运行？？？ Dim vlax As cVLAX 声明未定义 vb6.0已后...

373294296

1. 
   

复制代码

2. 
   
3. Public Sub GetVertexs()
   
4. If StartAcad Then
   
5. Dim vlax As cVLAX
   
6. Dim ent As AcadEntity, p As Variant, arrVertexs As Variant, i As Integer
   
7. Dim xdt  As Variant, xdv As Variant
   
8. Dim Vertexs() As TVertex
   
9. 
   
10. Set vlax = New cVLAX
    
11. vlax.Initialize Application
    
12. 
    
13. On Error Resume Next
    
14. ThisDrawing.Utility.GetEntity ent, p, "请选择多段线对象:"
    
15. If Err.Number <> 0 Then Exit Sub
    
16. On Error GoTo 0
    
17. 
    
18. arrVertexs = vlax.GetVertexs(ent.Handle)
    
19. 
    
20. If IsEmpty(arrVertexs) = False Then
    
21.     ReDim Vertexs(UBound(arrVertexs))
    
22.     For i = 0 To UBound(arrVertexs)
    
23.         Set ent = arrVertexs(i)
    
24.         Debug.Print ent.ObjectName & "-->" & ent.Handle
    
25.         ent.GetXData "", Vertexs(i).xDataType, Vertexs(i).xDataValue
    
26.     Next i
    
27. Else
    
28.     MsgBox "请选择有节点对象的多段线:"
    
29.     Exit Sub
    
30. End If
    
31. Set vlax = Nothing
    
32. Debug.Assert False   '停在这里可以查本地窗口的Vertexs变量值,调试完成此行注释掉
    
33. End If
    
34. End Sub

<br /> Public Sub GetVertexs()<br /> If StartAcad Then<br /> Dim vlax As cVLAX<br /> Dim ent As AcadEntity, p As Variant, arrVertexs As Variant, i As Integer<br /> Dim xdt  As Variant, xdv As Variant<br /> Dim Vertexs() As TVertex<br /> <br /> Set vlax = New cVLAX<br /> vlax.Initialize Application<br /> <br /> On Error Resume Next<br /> ThisDrawing.Utility.GetEntity ent, p, "请选择多段线对象:"<br /> If Err.Number <> 0 Then Exit Sub<br /> On Error GoTo 0<br /> <br /> arrVertexs = vlax.GetVertexs(ent.Handle)<br /> <br /> If IsEmpty(arrVertexs) = False Then<br />     ReDim Vertexs(UBound(arrVertexs))<br />     For i = 0 To UBound(arrVertexs)<br />         Set ent = arrVertexs(i)<br />         Debug.Print ent.ObjectName & "-->" & ent.Handle<br />         ent.GetXData "", Vertexs(i).xDataType, Vertexs(i).xDataValue<br />     Next i<br /> Else<br />     MsgBox "请选择有节点对象的多段线:"<br />     Exit Sub<br /> End If<br /> Set vlax = Nothing<br /> Debug.Assert False   '停在这里可以查本地窗口的Vertexs变量值,调试完成此行注释掉<br /> End If<br /> End Sub

这一段怎么放到  vb6.0里运行？？？   Dim vlax As cVLAX   声明未定义？vb6.0已后期绑定CAD了！  怎么把这一段代码， 放到vb6.0里运行？？？
请教高手

zzyong00

cVLAX是一个cls扩展名的文件，是一个类，是一段代码，你得先找到它！本论坛里就有，你搜索一下！

373294296

zzyong00 发表于 2018-10-19 14:53
cVLAX是一个cls扩展名的文件，是一个类，是一段代码，你得先找到它！本论坛里就有，你搜索一下！

谢谢， 老师声明了类模块，  问题已解决！！！

373294296

vb6.0运行已经解决

373294296

zzyong00 发表于 2018-10-19 14:53
cVLAX是一个cls扩展名的文件，是一个类，是一段代码，你得先找到它！本论坛里就有，你搜索一下！

老师我这段代码，是获取二维多段线的顶点的扩展属性！
这段代码，我怎么放到vb6.0里？ 放到vb6.0， 获取不到顶点的对象

zzyong00

373294296 发表于 2018-10-28 14:53
老师我这段代码，是获取二维多段线的顶点的扩展属性！
这段代码，我怎么放到vb6.0里？ 放到vb6.0， 获取 ...

把测试条件、vb6工程放上来，
获取二维多线段顶点为什么要用这种方法？

373294296

除了主实体之外还带有子实体（VERTEX），界址线的属性就存储在VERTEX

373294296

zzyong00 发表于 2018-10-29 13:25
把测试条件、vb6工程放上来，
获取二维多线段顶点为什么要用这种方法？

获取二维多线段顶点为什么要用这种方法“”“”“？？？？？老师这个图的二维多段线带子实体属性的， 如何获取它 的子实体属性呢？”

373294296

zzyong00 发表于 2018-10-29 13:25
把测试条件、vb6工程放上来，
获取二维多线段顶点为什么要用这种方法？

vb6.0 的测试

zzyong00

你好像是要用lisp执行"GetVertex"函数，这个函数在strFileName = Environ("TEMP") & "\Vertexs.lsp" 文件里，这个文件的内容由
    Open strFileName For Output As #1
       ' Print #1, UserForm1.TxtLisp.Text
    Close #1
这里写入，但很明显，没看到你写入什么内容！