阳离子咪唑啉厂家
免费服务热线

Free service

hotline

010-00000000
阳离子咪唑啉厂家
热门搜索:
成功案例
当前位置:首页 > 成功案例

当AutocadVBA初级教程第九课创建选

发布时间:2021-09-11 18:56:45 阅读: 来源:阳离子咪唑啉厂家

AutocadVBA初级教程(第九课:创建选择集)

1.在创建对象的同时可以直接引用.以前的例程中已经做过多次了,现在复习一下,看例程:先随机画300个圆,在画圆时直接引用,然后再把这些圆根本大小修改颜色.

Sub c300()

Dim myselect(0 To 300) As AcadEntity '定义选择集数组

Dim pp(0 To 2) As Double '圆心坐标

For i = 0 To 300 '循环300次

pp(0) = 3000 * Rnd: pp(1) = 3000 * Rnd: pp(2) = 0 '设置圆心坐标

Set myselect(i) = dCircle(pp, Rnd * 30 + 1) '画不同大小的圆

Next i

For i = 1 To 300

If myselect(i).Radius 10 Then '判断圆的直径是否大于10

myselect(i).color = Int(255 * Rnd + 1) '大圆颜色改为随机数

Else

myselect(i).color = 0 '小圆改为白色

End If

Next i

ZoomExtents '缩放到显示全部对象

End Sub

pp(0) = 3000 * Rnd: pp(1) = 3000 * Rnd: pp(2) = 0

这一行实际上应该是三条语句,用三行合并为一行,用冒号分开

rnd是随机数函数,它的数值为之间的小数,3000*rnd得到的数值就是在之间的随机数

Set myselect(i) = dCircle(pp, Rnd * 30 + 1)

这条语句的作用是以pp营建国有企业和民营企业公平竞争的市场环境点坐标为圆心,画一个圆,半径是之间的随机数,赋值给myselect选择集.

2.提标用户在屏幕中选取

选择语句这样写:Set sset = d("ss1"),其中”ss1”是一个选择集名称,这个参数可以随意写一个,注意不要重复就可以了.

下面的例程是让用户选择对象,然后把选中的对象改为绿色,最后把选择集删除

Sub mysel()

Dim sset As AcadSelectionSet '定义选择集对象

Dim element As AcadEntity '定义选择集中的元素对象

Set sset = This克服了前人以香草醛制备环氧之前需将香草醛还原成香草醇或氧化成香草酸等需使用大量有毒有害还原剂和氧化剂的问题d("ss1") '新建一个选择集

lectOnScreen '提示用户选择

For Each element In sset '在选择集中进行循环

lor = acGreen '改为绿色

Next

lete '删除选择集

End Sub

3.选择全部对象

用select方法,参数为acSelectionSetAll ,看例程,这个程序选择全部对象,显示选中的对象,并计算对象数.

Sub allsel()

Dim sel1 As AcadSelectionSet '定义选择集对象

Set sel1 = d("s") '新建一个选择集

Call lect(acSelectionSetAll) '全部选中

ghlight (True) '显示选择的对象

sco= unt '计算选择集中的对象数

MsgBox "选中对象数:" CStr(sco) '显示对话框

End Sub

3.运用select方法

上面的例题已经运用了select方法,下面讲一下select的5种选择方式:

1:择全部对象(acselect或摆轴太脏或锈蚀ionsetall)

2.选择上次创建的对象(acselectionsetlast)

3.选择上次选择的对象(acselectionsetprevious)

4.选择矩形窗口内对象(acselectionsetwindow)

5.选择矩形窗口内以及与边界相交的对象(acselectionsetcrossing)

还是看代码来学习.其中选择语句是:

Call lect(Mode, p1, p2)

Mode已经定义为5,也就是远大于100%运行负荷时的最大伸长;选择矩形窗口内以及与边界相交的对象,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 = d("sel3") '新建一个选择集

Call lect(Mode, p1, p2) '选择对象

ghlight (ture) '显示已选中的对象

End Sub

张家界工服
张家界工服
张家界工服
张家界工服