CAD dxf组码 Xdata 写入和读取

   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 写入和读取相关推荐

Autodesk CAD帮助文档总结三 DXF 组码
组码值类型参考 (DXF) 根据下面的组码范围表,组码将相关值的类型定义为整数.浮点数或字符串. 组码值类型代码范围组值类型 0-9 字符串(随着从 AutoCAD 2000 起引入了扩展符号名称 ...
CAD(dxf、dwg格式)文件的读取和显示，真正实现通过代码预览CAD文件，包含解析dwg、dxf文件，可以提取标注信息，可以转换为pdf、png、tiff、gif等6种格式的文件，可以永久免费实用
真正实现通过代码预览CAD文件,包含解析dwg.dxf文件,可以提取标注信息,可以转换为pdf.png.tiff.gif等6种格式的文件,可以永久免费实用. 网上看了很多资料,不是缺这个就是少那个,反 ...
使用CadLib实现CAD(dxf、dwg格式)文件的读取和显示
参考文章:CadLib 3.5 documentationhttps://www.woutware.com/doc/cadlib3.5/Index.aspx 读取:定义DxfModel类型的变量mod ...
AutoCAD DxfCode组码值说明
值说明 -5 APP:永久反应器链 -4 APP:条件运算符(仅与 ssget 一起使用) -3 APP:扩展数据 (XDATA) 标记(固定) -2 APP:图元名参照(固定) -1 APP:图元 ...
AutoCAD DxfCode组码值说明（二）
值说明 -5 APP:永久反应器链 -4 APP:条件运算符(仅与 ssget 一起使用) -3 APP:扩展数据 (XDATA) 标记(固定) -2 APP:图元名参照(固定) -1 APP:图元 ...
lisp 标记形心_DXF组码来生成标注样式（标注文字样式、标注箭头样式）
本文介绍AutoLisp用DXF组码来生成标注样式(标注文字样式.标注箭头样式)方法. 一.先生成标注文本样式(若已存在则忽略此步) 说明:用DXF组码生成标注样式中的标注文字样式时,其DXF参考中组 ...
Auto Lisp 标注子样式_DXF组码来生成标注样式（标注文字样式、标注箭头样式）...
本文介绍AutoLisp用DXF组码来生成标注样式(标注文字样式.标注箭头样式)方法. 一.先生成标注文本样式(若已存在则忽略此步) 说明:用DXF组码生成标注样式中的标注文字样式时,其DXF参考中组 ...
CAD扩展数据组码说明
随着基于CAD的应用软件飞速发展,经常需要保存一些与图形可视性无关的数据,即非图形参数.例如在绘制化验样图中包含品位数据.MxCAD定义一类新的参数--实体扩展数据.扩展数据与实体的可视性无关,而是用 ...
三菱FX3U/FX1N底层源码,PLSR源码，总体功能和指令可能支持在RUN中下载程序，支持注释的写入和读取，支持脉冲输出与定位指令(包括PLSY /PWM/PLSR/PLSV/DRVI /DRV
三菱FX3U/FX1N底层源码,PLSR源码, 总体功能和指令可能支持在RUN中下载程序,支持注释的写入和读取,支持脉冲输出与定位指令(包括PLSY /PWM/PLSR/PLSV/DRVI /DRVA ...

CAD dxf组码 Xdata 写入和读取

CAD dxf组码 Xdata 写入和读取相关推荐

最新文章

热门文章