Autocad VBA初级教程(6)

If myselect(i).Radius > 10 Then '判断圆的直径是否大于10 myselect(i).color = Int(255 * Rnd + 1) '大圆颜色改为随机数Else

CA设计论坛&b7m9_:@$@)f9T2A*fwww.askcad.com8F0r4h\9f%\\)Y

www.askcad.com,y6n({ m.K h:zmyselect(i).color = 0 '小圆改为白色End IfNext i

www.askcad.com;B:q5[0R5f'[#X3I!

www.askcad.com3P t&w3R'g7A4~4B

ZoomExtents '缩放到显示全部对象 End Sub

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

C3T(D0e0j C3k'b$c

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

rnd是随机数函数,它的数值为0-1之间的小数,3000*rnd得到的数值就是在0-3000之间的随机数 Set myselect(i) = ThisDrawing.ModelSpace.AddCircle(pp, Rnd * 30 + 1)2.提标用户在屏幕中选取

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

(askcad.com),为工程师增加动力3d4R:Y1j.A$w8|CAD论坛,CA设计,PROE,autocad,CAD下载,CAD教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CAD论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级6f p!A*}){2T4i

这条语句的作用是以pp点坐标为圆心,画一个圆,半径是1-30之间的随机数,赋值给myselect选择集.

CAD论坛,CAD设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级N7o&g Q:y下面的例程是让用户选择对象,然后把选中的对象改为绿色,最后把选择集删除

\g%Y'd%H ^

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

www.askcad.com#a6{0V([ F'F\4w

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

Set sset = ThisDrawing.SelectionSets.Add(\新建一个选择集 sset.SelectOnScreen '提示用户选择

0r7|;G.d7z;l+{%v6}

For Each element In sset '在选择集中进行循环 element.color = acGreen '改为绿色 Next

sset.Delete '删除选择集 End Sub 3.选择全部对象

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

(askcad.com),为工程师增加动力.u;};M*w5WCAD论坛,CAD设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks字体打印模型空间

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

Set sel1 = ThisDrawing.SelectionSets.Add(\新建一个选择集 Call sel1.Select(acSelectionSetAll) '全部选中 sel1.Highlight (True) '显示选择的对象

CAD设计论坛5c-L%_6r8C)d6X4{-X,U(|

sco= sel1.Count '计算选择集中的对象数 MsgBox \选中对象数:\显示对话框End Sub

CA论坛,CA设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级(D,d/o%K2J,b5|www.askcad.com)\\'i9~#j/Q/Q)`3j*H(A