中望cad（zwcad）中vba汉字的解决方法

2011-08-19 02:55:12 342 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

CAD明细表与序号同步的本质：基于ObjectId的三元关系重建在机械CAD工程图中，明细表（BOM）与指引序号的同步并非简单的自动编号问题，而是涉及零件、序号、明细表行三者间数据一致性的底层建模任务。其核心原理在于摒弃依赖图层、坐标或命名等易变语义，转而采用CAD数据库原生的ObjectId作为不可篡改的身份锚点，通过XData、扩展字典等机制实现持久化绑定。这种基于数据关系而非视觉规则的技术路径，显著提升同步稳定性与跨平台兼容性，广泛适用于AutoCAD、中望CAD等多平台机械制图场景，并支撑PDM集成、版本追溯与企业级设计流程自动化。阅读详情

自己遇到这个问题，费了不少力气解决的，现在把代码贴出来，希望能对后来者有点帮助。期间zw的客服还是给过一点帮助的，但是也许是问题有点烦或者更可能是我太烦，客服的小妹妹不理我了。本想投诉，后来一想古人云“行有不得，反求诸己”，就放下了。偶然开窍，找到了解决的方法。

Public Sub font()

    Dim textObj As ZwcadText

    Dim TS As ZwcadTextStyle

    Dim textString As String

    Dim insertionPoint(0 To 2) As Double

    Dim height As Double

    Set TS = ThisDocument.TextStyles.Add("我的文字样式") '定义新的文字样式

    TS.FontFile = "宋体" '制定定义样式字体

    ThisDocument.ActiveTextStyle = TS '激活样式

    

    ' Define the text object

    textString = "我的文字再来一次"

    insertionPoint(0) = 10: insertionPoint(1) = 80: insertionPoint(2) = 0

    height = 10

    ' Create the text object in model space

    Set textObj = ThisDocument.ModelSpace.AddText(textString, insertionPoint, height)

    textObj.Color = zcRed

    textObj.StyleName = "我的文字样式"

    

    textObj.Update

    

    ThisDocument.Regen

End Sub