Dim x2, y2 As DoubleDim DataType(0 To 1) As IntegerDim Data(0 To 1) As VariantFor Each acEnt In acSSet ''根據x,y查找實體，并打上xData標記DataType(0) = 1001: Data(0) = "DrillLabel"DataType(1) = 1000: Data(1) = TS(i).khacEnt.SetXData DataType, Data

以上便是dxf組碼的使用方法，Xdata是CAD開放給用戶（程序員）的一個功能接口：你可以往CAD實體上寫入/綁定你的個人信息，CAD不會理會/管理你的個人信息，但會保存到DWG文件中。同時你也可以讀取這些個人的信息，方便你編程使用。
上面的例子是在實體中寫入“DrillLabel”，也即是你的應用程序標識信息，并寫入點號。下次我就可以讀取Xdata信息，只能是自己的標識和格式。因為只有你自己才知道它們的含義。

Dim Ftype(0 To 3) As IntegerDim Fdata(0 To 3) As VariantDim KMING As StringFtype(0) = -4: Fdata(0) = "<AND"Ftype(1) = 100: Fdata(1) = "AcadBlockReference"Ftype(2) = 2: Fdata(2) = KMINGFtype(3) = -4: Fdata(3) = "AND>"KMING = Trim(InputBox("請輸入塊名(或屏幕選擇)：", "塊名 或 屏幕選擇"))If KMING = "" Then Exit Sub If KMING = "屏幕選擇" Then acSSet.SelectOnScreen ElseFtype(0) = -4: Fdata(0) = "<AND"Ftype(1) = 100: Fdata(1) = "AcadBlockReference"Ftype(2) = 2: Fdata(2) = KMINGFtype(3) = -4: Fdata(3) = "AND>"acSSet.Select acSelectionSetAll, , , Ftype, FdataEnd IfacSSet.Select acSelectionSetAll, , , Ftype, Fdata''----------------------------------------------------Dim xdataOut As VariantDim xtypeOut As VariantDim Parr() As DhxyDim Temp As Dhxyi = 1For Each acEnt In acSSet''得到擴展數據,之前由DrillLabel寫入的acEnt.GetXData "DrillLabel", xtypeOut, xdataOut If IsEmpty(xdataOut) ThenDhao = ""ElseDhao = xdataOut(1)End If

以上代碼(片段)演示了如何得到XData數據，同時也演示了利用組碼實現”按塊的名稱選擇塊“的方法。

總結

以上是生活随笔為你收集整理的CAD dxf组码 Xdata 写入和读取的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。