请高手指导vba的cad标题栏信息提取问题!!!
对普遍的标题栏为块文字为属性的方法，有些疑问请各位大虾指教1.预设好标题栏块后，用户在输入信息时，除了用attedit命令，还有其他友好的方法么？
2.CAD自带的attext命令好像没用么，怎么看到别人都是自己写提取过程的？
3.现在哪里有比较好的提取控件阿，价格怎么样？
暂时就这么多，想起别的再来问
直接读取应该更方便些
Dim ssetObj As AcadSelectionSet
Dim J As Integer
Set ssetObj = ThisDrawing.SelectionSets.Add("BTLSET")
Dim mode As Integer
mode = acSelectionSetAll
Dim FilterType As Variant, FilterData As Variant
Dim FilType(0) As Integer
Dim FilData(0) As Variant
FilType(0) = 2
FilData(0) = "B-BTL"
FilterType = FilType
FilterData = FilData
ssetObj.Select mode, , , FilterType, FilterData
Dim ssetCount As Integer
Dim entObj As AcadBlockReference
If ssetObj.Count = 0 Then
DimTolMat = False
Else
Set entObj = ssetObj.Item(0)
Dim attvars As Variant
Dim clString As String
attvars = entObj.GetAttributes
For J = 0 To UBound(attvars)
If StrComp(attvars(J).TagString, "clbj", 1) = 0 Then
clString = attvars(J).TextString
Exit For
End If
Next
End If
页:
[1]