社区 › VB › 请帮忙看看为什么出错？？

yu-gn 发表于 2004-11-3 11:32:00

请帮忙看看为什么出错？？

以下代码，如果先画出直线，再画多段线就能求出交点
但如果先画多段线，再画直线就求不出交点（只要有一条多段线画的顺序在直线前边就不行），请帮忙看一下，在线等待
Sub Example_Select()
                       
                       ' 创建选择集
                       Dim ssetObj As AcadSelectionSet
                       
                       On Error Resume Next
                       Set ssetObj = ThisDrawing.SelectionSets("SSET")
                       If Err Then
                                                       Err.Clear
                                                       Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
                       End If
                       ssetObj.Clear
                       
                       '构造过滤机制
                       Dim groupCode(0) As Integer
                       Dim dataCode(0) As Variant
                       groupCode(0) = 0
                       dataCode(0) = "lwPolyline"
                       ssetObj.Select acSelectionSetAll, , , groupCode, dataCode
                       
                       
                       '获取直线的外框
                       Dim corner1 As Variant
                       Dim corner2 As Variant
                       Dim lineObj As AcadLine
                       Set lineObj = ThisDrawing.ModelSpace(0)
                       lineObj.GetBoundingBox corner1, corner2 'lineObj为位于0层的直线
                       
                       ssetObj.Select acSelectionSetCrossing, corner1, corner2, groupCode, dataCode
                       
                               '枚举交点，判断是否相交
                               Dim Pts As Variant
                               Dim i As Integer
                               Dim j As Integer
                               For i = 0 To ssetObj.Count - 1
                                                       Pts = ssetObj(i).IntersectWith(lineObj, acExtendNone)
                                                       If Not IsEmpty(Pts) Then
                                                                                       Debug.Print "多段线（" & ssetObj(i).Handle & "）与直线（" & lineObj.Handle & "）相交"
                                                                                       For j = 0 To UBound(Pts) Step 3
                                                                                                                       Debug.Print "交点：" & Pts(j) & "," & Pts(j + 1) & "," & Pts(j + 2)
                                                                                       Next
                                                       End If
                       Next
End Sub

efan2000 发表于 2004-11-3 13:16:00

Set lineObj = ThisDrawing.ModelSpace(0)
问题出在这一句，它是返回模型空间的第一个实体，如果多段线先画，当然就是返回多段线，而不是直线了，后面自然也是错误的。
On Error Resume Next避免了错误的提示，在调试的时候尽量少用，而等最终代码无误了再加上。

yu-gn 发表于 2004-11-3 13:44:00

知道了，谢谢efan2000大侠
送鲜花一朵

firstinti 发表于 2004-11-8 16:13:00

“On Error Resume Next避免了错误的提示，在调试的时候尽量少用，而等最终代码无误了再加上。”
在这里学到的不仅仅是技术，还有良好的编程习惯，送鲜花一朵

查看完整版本: 请帮忙看看为什么出错？？