原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
cad vba过滤器选择集（CAD VBA filter selection set）.doc
cad vba过滤器选择集（CAD VBA filter selection set）
Paste: CAD VBA filter selection set classification: VB programming skills 2009-10-17 18:49
-- -- -- -- -- -- -- -- -- -- -- -- -- --
Name: BuildFilter
Author: Luo simple
date: 2008-3-11
function: creating filters
-- -- -- -- -- -- -- -- -- -- -- -- -- --
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
-- -- -- -- -- -- -- -- -- -- -- -- -- --
Name: CreateSelectionSet
Author: Luo simple
date: 2008-3-11
function: creating selection sets
-- -- -- -- -- -- -- -- -- -- -- -- -- --
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 = SS
End Function
create a procedure to call the filter and selection set
Sub TestBuildFilterAndCteSset ()
Define filter
Dim pType, pData
BuildFilter pType, pData, 0, LWPOLYLINE, 8, JZD
Notice: 0 and 8 here are the objects that are acquired through the command (entget (car (entsel)))
characteristics, for example:
**********************************************************************************
((-1. name of primitive: 7ef83b28) (0. LWPOLYLINE) (330. primitive name):
(7ef81cc0) (5. 425) (100. AcDbEntity) (67) (410. Model) (8.)
JZD) (6. Continuous) (100. AcDbPolyline) (90.2) (70.128) (43.0.0)
(38.0.0) (39.0.0) (1092.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) (2100, 0, 1)
**********************************************************************************
more commonly used (0. LWPOLY
文档评论（0）