用vba保存图形中所有直线坐标时的问题

bluemoon

刚刚试了一下 不能直接引用lll.StartPoint 而不是数组redim的问题 如果直接引用 则 “运行时错误‘451： property let 过程未定义，property get 过程未返回对象” 下面这样就可以了 Private Sub CommandButton1_Click()
Dim myss As AcadSelectionSet
Set myss = ThisDrawing.SelectionSets.Add("125553")
Dim llll As AcadLine
Dim gpcode(0) As Integer
Dim datavalue(0) As Variant
Dim linecount, i, j, q As Integer
Dim stpt, enpt As Variant
Dim vst As Variant
gpcode(0) = 0
datavalue(0) = "line"
myss.Select acSelectionSetAll, , , gpcode, datavalue
ReDim lineco(myss.Count - 1, 3) As Variant
i = 0
For Each lll In myss
For j = 0 To 1
vst = lll.StartPoint
'lineco(i, j) = lll.StartPoint(0)
lineco(i, j) = vst(0)
lineco(i, j + 1) = vst(1)
Next
'For q = 2 To 3
'lineco(i, q) = lll.EndPoint(0)
'lineco(i, q + 1) = lll.EndPoint(1)
'Next
i = i + 1
Next End Sub

fmfm

请问,,,,怎么打印出这个数组啊,我想看看


用print或msgbox都行,怎么vb里面的格式这里不行呢?


麻烦给个简单的代码,谢啦.

bluemoon

for i = 0 to 3


for j = 0 to 1


msgbox lineco(i,j)


next


next


建议多看看书

fmfm

晕 这我当然知道。


如果有100条线岂不是要点400下确定！


我要的是一次打印出所有的数。


我不懂我会多看书！！！

雪山飞狐_lzh

用Debug.Print         lineco(i,j)


看立即窗口