如何将二维多段线加入选择集？

dchlmz

我在CAD2002下用（0, "OLYLINE）和（100, "AcDb2dPolyline"）过滤，有时可以有时又不行？不知为什么？

齿轮设计

就是啊，老是有时好有时坏真的好烦那

雪山飞狐_lzh

命令: (entget(car(entsel)))
选择对象: ((-1 . <图元名: 7ef56fb0>) (0 . "LWPOLYLINE") (330 . <图元名:
7ef56cf8>) (5 . "F6") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbPolyline") (90 . 4) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10
492.606 758.312) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 870.23 477.725) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 1056.62 784.92) (40 . 0.0) (41 . 0.0) (42 . 0.0)
(10 1175.23 514.008) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

dchlmz

版主： 不是这样的呀，我用了你给的命令查看，显示的不是(0 . "LWPOLYLINE") 而是（0, "POLYLINE）。用LIST命令显示的也是POLYLINE。用(0 . "LWPOLYLINE") 也是有时能选中，有时又不行。

雪山飞狐_lzh

(0 . "POLYLINE") 是三维多段线，你的图形里两种多段线都有，当然有一些选不中 用ft(0)=0:fd(0)="*POLYLINE"

dchlmz

谢谢。我再试试

dchlmz

为什么当程序第一次运行时是对的，第二次就又不对了

雪山飞狐_lzh

看看你的代码？

dchlmz

下面是我的代码，第一次运行可以，第二次选择集就不对了，不知道为什么？
Sub SelDGXSet()

Dim ssetObj As AcadSelectionSet
Dim I As Integer

On Error Resume Next
If ThisDrawing.SelectionSets.Count <> 0 Then
For I = 0 To ThisDrawing.SelectionSets.Count - 1
Set ssetObj = ThisDrawing.SelectionSets.Item(I)
ssetObj.Delete
Next
End If Set ssetObj = ThisDrawing.SelectionSets.Add("sset4") Dim gpCode(0) As Integer
Dim dataValue(0) As Variant Dim TypeArray As Variant
Dim DateArray As Variant gpCode(0) = 0
dataValue(0) = "*POLYLINE"

TypeArray = gpCode
DataArray = dataValue

ssetObj.Select acSelectionSetAll, , , TypeArray, DateArray

Dim PlineObj As AcadPolyline
Dim poi As Variant

For I = 0 To ssetObj.Count - 1
po1 = 0: poi1 = 0
Set PlineObj = ssetObj.Item(I)

poi = PlineObj.Elevation
'poi1 = Val(poi) + Fix(Val((TxtB.Text)))
poi1 = Fix(Val(poi) - 60)
PlineObj.Elevation = poi1

Next I
End Sub

雪山飞狐_lzh

If ThisDrawing.SelectionSets.Count <> 0 Then
For I = 0 To ThisDrawing.SelectionSets.Count - 1
Set ssetObj = ThisDrawing.SelectionSets.Item(I)
ssetObj.Delete
Next
End If 这里改成 ThisDrawing.SelectionSets("sset4").Delete