怎样利用VBA提取选定的cad中多段线坐标,并将这些坐标写入txt中

1要改两个部份，第一步，改首行的private 为 public

2ss_dimSelect acSelectionSetAll, , , dxf_code, dxf_value

改正:

ss_dimSelectOnScreen dxf_code, dxf_value

这样就是输出选中对象了。

----------------------------

Public Sub GetLWPOLYLINECoordinates()

Dim ss_dim As AcadSelectionSet, ent As AcadLWPolyline

Dim dxf_code() As Integer, dxf_value() As Variant

Dim i As Long, j As Long

Dim dbCor As Variant, x As Double, y As Double, z As Double

Set ss_dim = ThisDrawingSelectionSetsAdd("ssLine1")

ReDim dxf_code(0), dxf_value(0)

dxf_code(0) = 0: dxf_value(0) = "LWPOLYLINE"

'ss_dimSelect acSelectionSetAll, , , dxf_code, dxf_value

ss_dimSelectOnScreen dxf_code, dxf_value

Open "d:\aaaaatxt" For Append As #1

For Each ent In ss_dim

For j = 0 To UBound(entCoordinates) \ 2

x = entCoordinates(j 2)

y = entCoordinates(j 2 + 1)

Print #1, (j); ",," & x & "," & y

Next

Next

Close #1

ss_dimClear

ss_dimDelete

End Sub

open "\文件名" for input as #1 '注意，要读的文件要求和vbp文件放在一个文件夹中

for i=1 to 100 '读100个数到数组

input #1,a(i)

next i

close #1

D=AcadAppActiveDocumentUtilityGetPoint(,"选择一个点：")

你的参数没有弄对

GetPoint是个方法不是属性必须要括号()

他的两个参数为可选参数（startpoint，prompt）第一个参数是起始点，第二个参数是提示语

以上就是关于怎样利用VBA提取选定的cad中多段线坐标,并将这些坐标写入txt中全部的内容，包括:怎样利用VBA提取选定的cad中多段线坐标,并将这些坐标写入txt中、VB从txt文本中读取坐标点存入数组中 怎么弄还有 VB对CAD的编程中怎么引用这些坐标点、VB.Net编程提取CAD中的点坐标,采用AcadApp.ActiveDocument.Utility.GetPoint函数老是报错是什么原因啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！