Autocad VBA初级教学文章 (第九课创建选择集)

.

下面的例程是让用户选择对象

,

,

最后把选择集删除< /p>

Sub mysel()

Dim sset As AcadSelectionSet '

定义选择集对象

Dim element As AcadEntity '

定义选择集中的元素对象

Set sset = (

新建一个选择集

OnScreen '

提示用户选择

For Each element In sset '

在选择集中进行循环

= acGreen '

改为绿色

Next

'

删除选择集

End Sub

3.

选择全部对象

< br>用

select

方法

,

参数为

acSelectionSetAll

,

看例程

,

这个程序选择全部对象

,

显

示选中的对象

,

并计算对象数

.

Sub allsel()

Dim sel1 As AcadSelectionSet '

定义选择集对象

Set sel1 = (

新建一个选择集

Call (acSelectionSetAll) '

全部选中

ght (True) '

显示选择的对象

sco= '

计算选择集中的对象数

MsgBox

选中对象数

:

显示对话框

End Sub

3.

运用

select

方法

上面的例题已经运用了

select

方法

,

下面讲一下

select

的

5

种选择方式

:

1:

择全部对象

(acselectionsetall)

2.

选择上次创 建的对象

(acselectionsetlast)

3.< /p>

选择上次选择的对象

(acselectionsetprevi ous)

4.

选择矩形窗口内对象

( acselectionsetwindow)

5.

选择矩形 窗口内以及与边界相交的对象

(acselectionsetcrossing) < /p>

还是看代码来学习

.

其中选择语句是

:

Call (Mode, p1, p2)

< br>Mode

已经定义为

5,

也就是 选择矩形窗口内以及与边界相交的对象

,p1

和

p2

是两

个点坐标

,

Sub selnew()

Dim sel1 As AcadSelectionSet '

定义选择集对象

Dim p1(0 To 2) As Double '

坐标

1

Dim p2(0 To 2) As Double '

坐标

2

p1(0) = 0: p1(1) = 0: p1(2) = 0 '

设置坐标

1

p2(0) = 300: p2(1) = 300: p2(2) = 0 '

设置坐标

1

Mode = 5 '

把选择模式存入

mode

变量中

Set sel1 = (

新建一个选择集

Call (Mode, p1, p2) '

选择对象

ght (ture) '

显示已选中的对象

End Sub

CAD VBA

过滤器、选择集分享

我看到过 这个问题有好几次了，

当时只是把代码发给了个人，

现在把这些 代码贴出来，

建立

一个专题，

加以自己 的理解进行说明，

希望能对大家在工作中遇到选择集和过滤器问题有所

< br>帮助以供大家使用。这种方法建立选择集和过滤器我使用过千百遍，未出现过任何异常。

< br>

'

——————————————————————— ———————————

'

名称：

BuildFilter

'

作者：罗简单

'

日期：

2008-3-11

'

功能：创建过滤器

'

——————————————————————————————————

Public Sub BuildFilter(TypeArray, DataArray, ParamArray gCodes())

Dim fType() As Integer, fData()

Dim index As Long, i As Long

index = LBound(gCodes) - 1

For i = LBound(gCodes) To UBound(gCodes) Step 2

index = index + 1

ReDim Preserve fType(0 To index)

ReDim Preserve fData(0 To index)

fType(index) = CInt(gCodes(i))

fData(index) = gCodes(i + 1)

Next

TypeArray = fType: DataArray = fData

End Sub

'

——————————————————————— ———————————

'

名称：< /p>

CreateSelectionSet

'

作者：罗简单

'

日期：

2008-3-11

'

功能：创建选择集

'

——————————————————————————————————

Public Function CreateSelectionSet(Optional ssName As String =

Dim ss As AcadSelectionSet

On Error Resume Next

Set ss = ionSets(ssName)

If Err Then Set ss = (ssName)

Set CreateSelectionSet = ss

End Function

'

创建个过程来调用过滤器和选择集

Sub TestBuildFilterAndCteSset()

'

定义过滤器

Dim pType, pData

BuildFilter pType, pData, 0,

'

注意：这里的