CAD-VBA的塊和參照過濾方法(共5頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上共享一下 CAD-VBA中，屏幕選擇集中對(duì)塊參照的過濾方法，供參考：'''''''''''''''''''''''''''''''''''''''''''''''''

2、9;'Dim melem As AcadEntity Dim selsetCollection As AcadSelectionSets '定義選擇集集合Dim i,j As Long Dim ent As Object ' '''''''''''''''''''查找圖形中的每個(gè)選擇集,是否已存在 Set selsetCollection = ThisDrawing.SelectionSets i = 0 j = 0 F

3、or Each FilterSet In selsetCollection If "xxx" = FilterSet.Name Then”xxx”為自己想用的選擇集名 j = 1 Exit For End If i = i + 1 NextIf j = 0 Then Set FilterSet = ThisDrawing.SelectionSets.Add("xxx") Else FilterSet.ClearEnd If 定義過濾器數(shù)組，設(shè)定過濾參數(shù) Dim sFilterType(1) As Integer Dim sFilterData(1) As

4、 Variant sFilterType(0) = 100sFilterData(0) = "AcDbBlockReference" sFilterType(1) = 2sFilterData(1) = " " FilterSet.SelectOnScreen sFilterType, sFilterData另附DXF組碼表，以便對(duì)上段程式的理解；DXF下表列出了組碼或組碼范圍以及組碼值的解釋。在此表中，“固定”表明組碼始終具有相同的用途。如果組碼不固定，則其用途取決于上下文。關(guān)于此表中使用的縮寫和格式方面的信息。按數(shù)字次序排列的組碼組碼說明-5APP：

5、永久反應(yīng)器鏈-4APP：條件運(yùn)算符（僅與 ssget 一起使用）-3APP：擴(kuò)展數(shù)據(jù) (XDATA) 標(biāo)記（固定）-2APP：圖元名參照（固定）-1APP：圖元名。每次打開圖形時(shí)，圖元名都會(huì)發(fā)生變化，從不保存（固定）0表示圖元類型的字符串（固定）1圖元的主文字值2名稱（屬性標(biāo)記、塊名等）3-4其他文字或名稱值5圖元句柄；最多 16 個(gè)十六進(jìn)制數(shù)字的字符串（固定）6線型名（固定）7文字樣式名（固定）8圖層名（固定）9DXF：變量名稱標(biāo)識(shí)符（僅在 DXF 文件的 HEADER 段中使用）10主要點(diǎn)；直線或文字圖元的起點(diǎn)、圓的圓心，等等DXF：主要點(diǎn)的 X 值（后跟 Y 和 Z 值代碼 20 和 3

6、0）APP：三維點(diǎn)（三個(gè)實(shí)數(shù)的列表）11-18其他點(diǎn)DXF：其他點(diǎn)的 X 值（后跟 Y 值代碼 21-28 和 Z 值代碼 31-38）APP：三維點(diǎn)（三個(gè)實(shí)數(shù)的列表）20, 30DXF：主要點(diǎn)的 Y 值和 Z 值 21-28, 31-37DXF：其他點(diǎn)的 Y 值和 Z 值 38DXF：如果非零，則為圖元的標(biāo)高39如果非零，則為圖元的厚度（固定)40-48雙精度浮點(diǎn)值（文字高度、縮放比例等）48線型比例；雙精度浮點(diǎn)標(biāo)量值；默認(rèn)值適用于所有圖元類型49重復(fù)的雙精度浮點(diǎn)值。一個(gè)圖元的可變長(zhǎng)度表（例如，LTYPE 表中的虛線長(zhǎng)度）中可能會(huì)出現(xiàn)多個(gè) 49 組。7x 組始終出現(xiàn)在第一個(gè) 49 組之前，用

7、以指定表的長(zhǎng)度50-58角度（在 DXF 文件中以度為單位，在 AutoLISP 和 ObjectARX 應(yīng)用程序中以弧度為單位）60圖元可見性；整數(shù)值；未賦值或值為 0 時(shí)表示可見；值為 1 時(shí)表示不可見62顏色號(hào)（固定）66“圖元跟隨”標(biāo)志（固定）67空間 模型空間或圖紙空間（固定）68APP：指示視口是處于打開狀態(tài)但在屏幕上完全不可見，還是未激活或處于關(guān)閉狀態(tài)69APP：視口標(biāo)識(shí)號(hào)70-78整數(shù)值，例如重復(fù)計(jì)數(shù)、標(biāo)志位或模式90-9932 位整數(shù)值100子類數(shù)據(jù)標(biāo)記（將派生類名作為字符串）從其他具體類派生的所有對(duì)象和圖元類必須具有此標(biāo)記。子類數(shù)據(jù)標(biāo)記用于分離由同一對(duì)象的繼承鏈中的不同類定

8、義的數(shù)據(jù)。對(duì)于從 ObjectARX 派生的每個(gè)不同的具體類的 DXF 名稱來說，這是必須滿足的額外要求102控制字符串，后跟“<任意名稱>”或“”。與擴(kuò)展數(shù)據(jù) 1002 組碼類似，不同之處在于當(dāng)字符串以“”開始時(shí)，其后可跟任意字符串，字符串的解釋取決于應(yīng)用程序。唯一允許的另外一個(gè)控制字符串是作為組結(jié)束符的“”。除了執(zhí)行圖形核查操作期間外，AutoCAD 不會(huì)解釋這些字符串。它們供應(yīng)用程序使用105DIMVAR 符號(hào)表?xiàng)l目的對(duì)象句柄110UCS 原點(diǎn)（僅當(dāng)將代碼 72 設(shè)置為 1 時(shí)才顯示）DXF：X 值；APP：三維點(diǎn)111UCS X 軸（僅當(dāng)將代碼 72 設(shè)置為 1 時(shí)才顯示）

9、DXF：X 值；APP：三維矢量112UCS Y 軸（僅當(dāng)將代碼 72 設(shè)置為 1 時(shí)才顯示）DXF：X 值；APP：三維矢量120-122DXF：UCS 原點(diǎn)的 Y 值，UCS X 軸和 UCS Y 軸130-132DXF：UCS 原點(diǎn)的 Z 值，UCS X 軸和 UCS Y 軸140-149雙精度浮點(diǎn)值（例如點(diǎn)、標(biāo)高和 DIMSTYLE 設(shè)置）170-17916 位整數(shù)值，例如表示 DIMSTYLE 設(shè)置的標(biāo)志位210拉伸方向（固定）DXF：拉伸方向的 X 值A(chǔ)PP：三維拉伸方向矢量220, 230DXF：拉伸方向的 Y 值和 Z 值270-27916 位整數(shù)值280-28916 位整數(shù)值

10、290-299布爾標(biāo)志值300-309任意字符串310-319具有相同表示和 1004 組碼限制的任意二進(jìn)制塊：用最大長(zhǎng)度為 254 個(gè)字符的十六進(jìn)制字符串表示最大長(zhǎng)度為 127 個(gè)字節(jié)的數(shù)據(jù)塊320-329任意對(duì)象句柄；“按原樣”獲取的句柄值。它們?cè)?INSERT 和 XREF 操作期間不進(jìn)行轉(zhuǎn)換330-339軟指針句柄；指向同一個(gè) DXF 文件或圖形中的其他對(duì)象的任意軟指針。在 INSERT 和 XREF 操作期間進(jìn)行轉(zhuǎn)換340-349硬指針句柄；指向同一個(gè) DXF 文件或圖形中的其他對(duì)象的任意硬指針。在 INSERT 和 XREF 操作期間進(jìn)行轉(zhuǎn)換350-359軟所有者句柄；指向同一個(gè)

11、DXF 文件或圖形中的其他對(duì)象的任意軟所有者指針。在 INSERT 和 XREF 操作期間進(jìn)行轉(zhuǎn)換360-369硬所有者句柄；指向同一個(gè) DXF 文件或圖形中的其他對(duì)象的任意硬所有者指針。在 INSERT 和 XREF 操作期間進(jìn)行轉(zhuǎn)換370-379線寬枚舉值 (AcDb:LineWeight)。作為 16 位整數(shù)存儲(chǔ)和移動(dòng)。自定義非圖元對(duì)象可以使用整個(gè)范圍內(nèi)的組碼，但圖元類只能在其表示中使用 371-379 DXF 組碼，因?yàn)?AutoCAD 和 AutoLISP 都始終假定 370 組碼是圖元的線寬。這使 370 組碼與其他“通用”圖元字段具有相同的行為380-389PlotStyleNa

12、me 類型枚舉 (AcDb:PlotStyleNameType)。作為 16 位整數(shù)存儲(chǔ)和移動(dòng)。自定義非圖元對(duì)象可以使用整個(gè)范圍內(nèi)的組碼，但圖元類只能在其表示中使用 381-389 DXF 組碼，原因與上述線寬范圍相同390-399表示 PlotStyleName 對(duì)象的句柄值的字符串，本質(zhì)上是硬指針，但范圍不同，更容易處理向后兼容。作為對(duì)象 ID（在 DXF 文件中為句柄）和 AutoLISP 中的特殊類型存儲(chǔ)和移動(dòng)。自定義非圖元對(duì)象可以使用整個(gè)范圍內(nèi)的組碼，但圖元類只能在其表示中使用 391-399 DXF 組碼，原因與上述線寬范圍相同400-40916 位整數(shù) 410-419字符串 42

13、0-42732 位整數(shù)值。與真彩色一同使用時(shí)，表示 24 位顏色值的 32 位整數(shù)。高階字節(jié)（8 位）為 0；低階字節(jié)為包含“藍(lán)色”值 (0-255)、然后是“綠色”值的無符號(hào)字符；次高階字節(jié)是“紅色”值。將此整數(shù)值轉(zhuǎn)換為十六進(jìn)制值將得到以下位掩碼：0x00RRGGBB。例如，紅色=200、綠色=100 和藍(lán)色=50 的真彩色為 0x00C86432，而在 DXF 中以十進(jìn)制表示則為 430-437字符串；用于真彩色時(shí)，則為表示顏色名稱的字符串440-44732 位整數(shù)值。用于真彩色時(shí)，表示透明度值450-459長(zhǎng)整數(shù)460-469雙精度浮點(diǎn)值470-479字符串480-481硬指針句柄；指向

14、同一個(gè) DXF 文件或圖形中的其他對(duì)象的任意硬指針。在 INSERT 和 XREF 操作期間進(jìn)行轉(zhuǎn)換999DXF：999 組碼指示后面的行是注釋字符串。SAVEAS 不會(huì)在 DXF 輸出文件中包含這樣的組，但 OPEN 則包括這些組并忽略注釋?？梢允褂?999 組在您編輯的 DXF 文件中包含注釋1000擴(kuò)展數(shù)據(jù)中的 ASCII 字符串（最多可以包含 255 個(gè)字節(jié)）1001擴(kuò)展數(shù)據(jù)的注冊(cè)應(yīng)用程序名（最多可以包含 31 個(gè)字節(jié)的 ASCII 字符串）1002擴(kuò)展數(shù)據(jù)控制字符串（“”或“”）1003 擴(kuò)展數(shù)據(jù)圖層名1004擴(kuò)展數(shù)據(jù)中的字節(jié)數(shù)據(jù)塊（最多可以包含 127 個(gè)字節(jié)）1005擴(kuò)展數(shù)據(jù)中的圖元句柄；最多可以包含 16 個(gè)十六進(jìn)制數(shù)字的字符串 1010擴(kuò)展數(shù)據(jù)中的點(diǎn) DXF：X 值（后跟 1020 和 1030 組）APP：三維點(diǎn)1020, 1030DXF：點(diǎn)的 Y 值和 Z 值1011擴(kuò)展數(shù)據(jù)中的三維世界空間位置 DXF：X 值（后跟 1021 和 1031 組）APP：三維點(diǎn)1021, 1031DXF：世界空間位置的 Y 值和 Z 值1012擴(kuò)展數(shù)據(jù)中的三