cad vba过滤器、选择集分享
6页1、CAD VBA过滤器、选择集分享我看到过这个问题有好几次了,当时只是把代码发给了个人,现在把这些代码贴出来,建立一个专题,加以自己的理解进行说明,希望能对大家在工作中遇到选择集和过滤器问题有所帮助以供大家使用。这种方法建立选择集和过滤器我使用过千百遍,未出现过任何异常。名称: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(inde
2、x) = gCodes(i + 1) Next TypeArray = fType: DataArray = fDataEnd Sub名称:CreateSelectionSet作者:罗简单日期:2008-3-11功能:创建选择集Public Function CreateSelectionSet(Optional ssName As String = ss) As AcadSelectionSet Dim ss As AcadSelectionSet On Error Resume Next Set ss = ThisDrawing.SelectionSets(ssName) If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName) ss.Clear Set CreateSelectionSet = ssEnd Function创建个过程来调用过滤器和选择集Sub TestBuildFilterAndCteSset() 定义过滤器 Dim pType, pData BuildFilter pType, pData, 0, LW
3、POLYLINE, 8, JZD 注意:这里的0与8是通过命令(entget(car(entsel)获取的对象基本 特性,例如: * (-1 . ) (0 . LWPOLYLINE) (330 . ) (5 . 425) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . JZD) (6 . Continuous) (100 . AcDbPolyline) (90 . 2) (70 . 128) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 92.5011 35.6905) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 208.946 102.652) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0) * 其中比较常用的(0 . LWPOLYLINE) 表示对象类型;(8 .JZD)表示对象所在层 所以还可以扩展或收缩过滤器,如下 BuildFilter pType, pData, 0, LWPOLYLINE:建立图上所有的多段线过滤器
《cad vba过滤器、选择集分享》由会员小**分享,可在线阅读,更多相关《cad vba过滤器、选择集分享》请在金锄头文库上搜索。
2020年高考真题——理科综合(全国卷Ⅲ)+Word版含答案
2021年绝味鸭脖策划书
2021年熟食店创业方案
2021年熟食店开店策划
2021年卤菜店创业计划书
2021年周黑鸭网络营销策划方案
东大21年1月考试《现代设计方法》考核作业
谈我国行政管理效率的现状及其改观对策(论文)
单证员考试-备考辅导-复习资料:无贸易背景信用证案分析.docx
土木工程毕业生答辩自述.docx
建筑学毕业后工作状态真实写照.doc
C#代码规范(湖南大学).doc
xx区食药监局2019年工作总结及2020年工作计划
2019年中医院药物维持治疗门诊工人先锋号先进事迹
2019年度xx乡镇林长制工作总结
2019年性艾科工作计划书
2019年人才服务局全国扶贫日活动开展情况总结
关于组工信息选题的几点思考
摘了穷帽子 有了新模样
2019年某集团公司基层党支部书记培训班心得体会
2024-04-08 33页
2024-04-08 10页
2024-04-08 25页
2024-04-08 12页
2024-04-08 10页
2024-04-08 21页
2024-04-08 40页
2024-04-08 34页
2024-04-08 28页
2024-04-08 28页