社区 › VB › 关于遍历的问题

daydayup 发表于 2004-10-14 14:08:00

关于遍历的问题

今天看书又遇到问题了！！
        '(2)向选择集中添加对象
                               '设置选择过滤器
                       Dim FilterType(0 To 5) As Integer
                       Dim FilterData(0 To 5) As Variant
                       FilterType(0) = -4
                       FilterData(0) = ""               '逻辑运算符的结束
                       版主能给解释一下上面的语句吗
                       '使用All的选择模式
                       SSet.Select acSelectionSetAll, , , FilterType, FilterData
                       
                       '(3)遍历其中的对象
                       Dim element As AcadEntity
                       For Each element In SSet
                                                       If element.ObjectName = "AcDbCircle" Or element.EntityType = acArc Then
                                                                                       element.color = acRed
                                                       End If
                                                       
                       Next
我在cad中画了直线、圆、弧可是运行代码后什么都没了？？？
我想获得下图曲线于直线的交点该怎么做了？

雪山飞狐_lzh 发表于 2004-10-14 16:10:00

Sub ttt()
On Error Resume Next
                       Dim ss As AcadSelectionSet
                       Dim ft(0) As Integer, fd(0)
                       ft(0) = 0: fd(0) = "Arc,Circle,Spline,Line"
                       ThisDrawing.SelectionSets("TTT").Delete
                       Set ss = ThisDrawing.SelectionSets.Add("TTT")
                       ss.Select acSelectionSetAll, , , ft, fd
                       Dim element As AcadEntity
                       For Each element In ss
                                                       If element.ObjectName = "AcDbCircle" Or element.ObjectName = "AcDbArc" Then
                                                                                       element.Color = acRed
                                                       End If
                       Next
End Sub

王咣生 发表于 2004-10-16 00:06:00

'0'代表DXF组码, 对就实体类型,
如果你用 (entget (car (entsel))) 这一lisp请句选择一个"LINE"对象, 命令窗口会有如下信息:
Command: (entget (car (entsel)))
Select object: ((-1 . ) (0 . "LINE") (330 . ) (5 . "E5") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"0") (100 . "AcDbLine") (10 422.463 449.338 0.0) (11 974.845 698.167 0.0) (210
0.0 0.0 1.0))
如果选择一个"TEXT"对象呢?
Command: (entget (car (entsel)))
Select object: ((-1 . ) (0 . "TEXT") (330 . ) (5 . "E6") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"0") (100 . "AcDbText") (10 660.496 349.444 0.0) (40 . 2.5) (1 . "HELLO") (50 .
0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0)
(210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
不同的对象数据信息不同, 但会有通用的组码: 比如
0 - 类型
8 - 图层
...

mkhsj928 发表于 2004-10-18 11:30:00

关于取得直线河等高线的交点问题：看过以前各斑主的解答，先取得一条等高线的高程，然后改变直线的高程与等高线高程相同，主要是让直线和等高线共面，最后用InterSectWith函数求出交点

查看完整版本: 关于遍历的问题