放置分词块属性
AutoCAD 2010，VBA是否有方法将特定属性值放置在AutoCAD字段中形成特定块。
将字段放置在文本字符串中。也许一个油田的柴油站可以做到这一点？
如果visual basic能够访问该字段，可能会有所帮助。
如果有一个字段来读取块属性并将其作为特殊属性值放置在字段字符串中，则
乐于助人。我不希望在字段中看到完整的属性值，我希望看到特定属性
价值例如，字段中显示的前缀。假设属性值为“LOOP21-6520”，我会这样做
希望在字段中只看到“LOOP21”。
非常感谢。 试试这个
Public Sub LinkTextWithAttrib（）Dim oEnt As AcadEntityDim oAttr As AcadAttributeReferenceDim oText As AcadTextDim idAttr As LongDim strVal As StringDim attFieldStr As StringDim varPt，tmax，contxOn Error GoTo Err\u Control'prefix=InputBox（“输入前缀：”，“Link Text with Attribute”，“LOOP21-”）''If prefix=“”那么'MsgBox“您没有输入值。”'退出此绘图的Sub'End。公用事业GetSubEntity oEnt，varPt，tmax，contx，_“选择属性：”如果oEnt为Nothing ThenMsgBox“Nothing Selected”退出子端如果oEnt的类型不是AcadAttributeReference ThenMsgBox“Selected Is Not a AttributeReference”退出子端如果设置oAttr=oEntstrVal=oAttr。TextStringIf Not strVal Like“LOOP21-*”ThenMsgBox“此属性不包含前缀“АВВ”“”Exit SubEnd IfDim pospospos=InStr（strVal，“-”）ThisDrawing。公用事业GetSubEntity oEnt，varPt，tmax，contx，“选择一个文本：”如果oEnt为Nothing ThenMsgBox“Nothing Selected”如果oEnt的类型不是AcadText，则退出子端ThenMsgBox“Selected Is Not a Text”退出子端IfSet oText=oEntDim txtFieldStr As String“如何在字段中使用diesel:txtFieldStr=“%” 不确定，但不是循环-21，你不只是把字母加在一起，直到你点击-然后它将适用于任何文本组合。也可能，=/etc进入分离器
页:
[1]