AutocadVBA初级教学文章(第九课创建选择集).docVIP

在创建对象的同时可以直接引用以前的例程中已经做过多次了现在复习一 下看例程先随机画个圆在画圆时直接引用然后再把这些圆根本大小修改颜色  循环0次 设置圆心坐标 od画不同大小Add R0断圆的直径是否大于 co o大圆颜色改为随机数 ct小圆改为［白色 d t oomE t缩放到显示全部对象 d ub 这一行实际上应该是三条语句用三行合并为一行用冒号分开 是随机数函数它的数值为之间的小数0-30之0间0的随机数 tct 是之间的随机数赋值给选择集 提标用户在屏幕中选取 选择语句这样写tt 得到的数值就是在 aod这条语句的作dd是以点坐标为圆心画一个圆半径 a其ctotAdd 中是一个选择集名称这个参数可以随意写一个注意不要重复就可以了下面的例程是让用户选择对象然后把选中的对象 改为绿色最后把选择集删除u tAAcad定义选择集对象t A定义选择集中的元素对象 tta新建一个选择集ttAddct提示用户选择 在选择集中进行循环t ac tcoo改为绿色 Next sset.Delete删除选择集 EndSub 3. 选择全部对象 用select方法,参数为acSelectionSetAII，看例程，这个程序选择全部对象，显示选中的对象，并计算对象数. Suballsel() Dimsel1AsAcadSelectionSet定义选择集对象 Setsell=ThisDrawing.SeIectionSets.Add(s)新建一个选择集 Callsel1.Select(acSelectionSetAll)全部选中 sel1.Highlight(True)显示选择的对象 sco=sel1.Count计算选择集中的对象数 MsgBox选中对象数:CStr(sco)显示对话框 EndSub 3.运用select方法 上面的例题已经运用了select方法，下面讲一下selec啲5种选择方式： 1:择全部对象(acselectionsetall) 2. 选择上次创建的对象(acselectionsetlast) 3. 选择上次选择的对象(acselectionsetprevious) 4. 选择矩形窗口内对象(acselectionsetwindow) 5. 选择矩形窗口内以及与边界相交的对象acselectionsetcrossing) 还是看代码来学习.其中选择语句是: Callsel1.Select(Mode，p1，p2) Mode已经定义为5,也就是选择矩形窗口内以及与边界相交的对象p1和p2是两个点坐标， Subselnew() Dimsel1AsAcadSelectionSet定义选择集对象 Dimp1(0To2)AsDouble坐标1 Dimp2(0To2)AsDouble坐标2 p1(0)=0:p1(1)=0:p1(2)=0设置坐标1 p2(0)=300:p2(1)=300:p2(2)=0设置坐标1 Mode=5把选择模式存入mode变量中 Setsel1=ThisDrawing.SelectionSets.Add(sel3)新建一个选择集 Callsel1.Select(Mode，p1，p2)选择对象 sel1.Highlight(ture)显示已选中的对象 EndSub CADVBA过滤器、选择集分享我看到过这个问题有好几次了，当时只是把代码发给了个人，现在把这些代码贴出来，建立一个专题，加以自己的理解进行说明，希望能对大家在工作中遇到选择集和过滤器问题有所帮助以供大家使用。这种方法建立选择集和过滤器我使用过千百遍，未出现过任何异常。 名称：BuildFilter 作者：罗简单 日期：2008-3-11 功能：创建过滤器—————————————————————————————————— PublicSubBuildFilter(TypeArray,DataArray,ParamArraygCodes()) DimfType()AsInteger,fData() DimindexAsLong,iAsLong index=LBound(gCodes)-1 Fori=LBound(gCodes)ToUBound(gCodes)Step2 index=index+1 ReDimPreservefType(0Toindex) ReDimPreservefData(0Toindex) fType(index)=CInt(gCodes(i)) fData(index)=gCodes(i+1) Next TypeArray=fType:DataArray=fData EndSub 名称：CreateSelectionSet 作者：罗简单 日期：2008-3-11 功能：创建选择集——————————————————————