CAD如何获得指定位置的文字并显示文字内容

李书生

如题，请教各位老师
谢谢！

h008

啥意思？描述不清楚

wwswwswws

表达欠清楚，不明白意思哦。

kickhero1019

是不是，如果固定坐标 100,90的地方有没有text，如果有就显示内容，没有就算了。。

Flyingdancing

2. Sub dd()
   
3. Dim sel As AcadSelectionSet
   
4. Dim t As AcadText '这里假定只是单行文字，不包括多行文字
   
5. Dim 相对点 As Variant
   
6. Dim 文字点 As Variant
   
7. 
   
8. '根据一点获取文字内容，
   
9. '此点必须为文字的线条所在的位置，文字空白处无效，并且必须保证此点只有一个文字
   
10. '这条对于文字没有实用意义，但是对于某些情况，选直线特别有用
    
11. 
    
12. 文字点 = ThisDrawing.Utility.GetPoint(, "请指定文字位置")
    
13. '或者可以根据某个向量确定文字点
    
14. '相对点 = ThisDrawing.Utility.GetPoint(, "请指定文字的相对点")
    
15. '向量如下(可以直接设定，也可选两点进行计算确定）
    
16. 'Dim 向量(2) As Variant
    
17. '向量(0) = 3: 向量(1) = 3: 向量(2) = 3
    
18. 'Dim 文字点(2) As Variant
    
19. 'For i = 0 To 2
    
20. '文字点(i) = 相对点(i) + 向量(i)
    
21. 'Next
    
22. On Error Resume Next
    
23. ThisDrawing.SelectionSets("文字").Delete
    
24. Set sel = ThisDrawing.SelectionSets.Add("文字")
    
25. sel.Select acSelectionSetCrossing, 文字点, 文字点
    
26. If sel.Count <> 1 Then Exit Sub '可以设定其他操作，包括提示等
    
27. For Each t In sel
    
28. Stri = t.TextString
    
29. MsgBox "所选位置处文字内容为" & Stri
    
30. Next
    
31. '根据两点（此两点属于文字外形框的外部点，并且不在同一水平或垂直线上）获取文字内容，
    
32. '并且必须保证此两点所成矩形内只有一个文字
    
33. '可用于表格文字的定位、输入和修改
    
34. Dim 文字点1 As Variant
    
35. Dim 文字点2 As Variant
    
36. 文字点1 = ThisDrawing.Utility.GetPoint(, "请指定文字角点")
    
37. 文字点2 = ThisDrawing.Utility.GetPoint(文字点1, "请指定文字另一角点")
    
38. sel.Select acSelectionSetWindow, 文字点1, 文字点2 '用于表格内容不超过两点范围
    
39. If sel.Count <> 1 Then Exit Sub
    
40. For Each t In sel
    
41. Stri = t.TextString
    
42. MsgBox "所选位置处文字内容为" & Stri
    
43. Next

Sub dd()<br /> Dim sel As AcadSelectionSet<br /> Dim t As AcadText '这里假定只是单行文字，不包括多行文字<br /> Dim 相对点 As Variant<br /> Dim 文字点 As Variant<br /> <br /> '根据一点获取文字内容，<br /> '此点必须为文字的线条所在的位置，文字空白处无效，并且必须保证此点只有一个文字<br /> '这条对于文字没有实用意义，但是对于某些情况，选直线特别有用<br /> <br /> 文字点 = ThisDrawing.Utility.GetPoint(, "请指定文字位置")<br /> '或者可以根据某个向量确定文字点<br /> '相对点 = ThisDrawing.Utility.GetPoint(, "请指定文字的相对点")<br /> '向量如下(可以直接设定，也可选两点进行计算确定）<br /> 'Dim 向量(2) As Variant<br /> '向量(0) = 3: 向量(1) = 3: 向量(2) = 3<br /> 'Dim 文字点(2) As Variant<br /> 'For i = 0 To 2<br /> '文字点(i) = 相对点(i) + 向量(i)<br /> 'Next<br /> On Error Resume Next<br /> ThisDrawing.SelectionSets("文字").Delete<br /> Set sel = ThisDrawing.SelectionSets.Add("文字")<br /> sel.Select acSelectionSetCrossing, 文字点, 文字点<br /> If sel.Count <> 1 Then Exit Sub '可以设定其他操作，包括提示等<br /> For Each t In sel<br /> Stri = t.TextString<br /> MsgBox "所选位置处文字内容为" & Stri<br /> Next<br /> '根据两点（此两点属于文字外形框的外部点，并且不在同一水平或垂直线上）获取文字内容，<br /> '并且必须保证此两点所成矩形内只有一个文字<br /> '可用于表格文字的定位、输入和修改<br /> Dim 文字点1 As Variant<br /> Dim 文字点2 As Variant<br /> 文字点1 = ThisDrawing.Utility.GetPoint(, "请指定文字角点")<br /> 文字点2 = ThisDrawing.Utility.GetPoint(文字点1, "请指定文字另一角点")<br /> sel.Select acSelectionSetWindow, 文字点1, 文字点2 '用于表格内容不超过两点范围<br /> If sel.Count <> 1 Then Exit Sub<br /> For Each t In sel<br /> Stri = t.TextString<br /> MsgBox "所选位置处文字内容为" & Stri<br /> Next

allan_ham

请教5L：
“并且必须保证此两点所成矩形内只有一个文字”是啥意思？
如果我有一个表格文件，要读取上下两行的文字，就不能用上述代码了吗？
最近症困扰

Flyingdancing

allan_ham 发表于 2012-8-23 09:34
请教5L：
“并且必须保证此两点所成矩形内只有一个文字”是啥意思？
如果我有一个表格文件，要读取上下两 ...

两个点确定一个文字，两个文字就四个，连在一起可以只要3个，多行就根据行距改变改变点位