[求助]：条件选择集的使用？

老好人

我用了一个set selsetobj=thisdrawing.selectiononscreen  0, line 按书本上的，
可就是不行。

请问，我想把图中的所有线段都选出来，并获得其各个端点，为产生超单元的
的剖分作有限元前处理之用。

各位大虾，有什么好办法吗？或者我的上述，存在什么问题？请指点。

efan2000

首先要创建一个选择集，然后构成过滤机制，接着在屏幕上选择实体，最后枚举实体，获取端点坐标。

2. 
   
3.   [FONT=courier new]
   
4. Sub Ch4_FilterLine()
   
5.    Dim sstext As AcadSelectionSet
   
6.    Dim FilterType(0) As Integer
   
7.    Dim FilterData(0) As Variant
   
8.    Set sstext = ThisDrawing.SelectionSets.Add("SS2")
   
9.    FilterType(0) = 0
   
10.    FilterData(0) = "Line"
    
11.    sstext.SelectOnScreen FilterType, FilterData
    
12. End Sub
    
13. 
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Ch4_FilterLine()<br />    Dim sstext As AcadSelectionSet<br />    Dim FilterType(0) As Integer<br />    Dim FilterData(0) As Variant<br />    Set sstext = ThisDrawing.SelectionSets.Add("SS2")<br />    FilterType(0) = 0<br />    FilterData(0) = "Line"<br />    sstext.SelectOnScreen FilterType, FilterData<br /> End Sub<br /> <br />   [/FONT]<br />

老好人

For i = 1 To SsetObj.Count
Set linePointObj = SsetObj.Item(i - 1)
x1 = linePointObj.startpoint.Coordinates(0)
x1 = linePointObj.endpoint.Coordinates(0)
y1 = linePointObj.startpoint.Coordinates(1)
y2 = linePointObj.endpoint.Coordinates(1)
next

efan2000

1、对于直线对象（其实是单个的线段），由于只有两个点来表示，所以只要使用StartPoint和EndPoint。
2、对于多段线对象（其实是由多个的线段合成，但只有一个实体对象），由于它是由一系列的点来表示，所以使用了Coordinates来表示所有的点集合，而用Coordinate来表示某一个顶点的坐标。
因而对于Line对象LineObj，LineObj.StartPoint代表它的起点，而LineObj.StartPoint(0)表示起点的X坐标，相似，LineObj.StartPoint(1)和LineObj.StartPoint(2)分别表示Y和Z轴坐标。

老好人

正是如此的。我已过了这一步。太感谢了。