[求助]请问各位在VBA中如何选择文字,获得文字?

dxhy · 发表于 2009-3-26 19:36:00

如题,我想设计一个VB程序,可以在CAD中选择文字,并在VB窗体中显示选择的文字!想了很长时间,还是想不出来!

AirCD · 发表于 2009-3-27 08:55:00

不知道你想问什么。

wuyunpeng888 · 发表于 2009-3-27 21:14:00

这个很简单呀

azjmjsj · 发表于 2009-3-27 21:22:00

简单，显示选择文字的textstring即可

waitfch · 发表于 2009-3-29 20:28:00

四楼的，可否给出几句代码看看，代码最能说明问题。

dxhy · 发表于 2009-4-2 10:54:00

找到了，还可以，功能差不多，可以读取文件中的全部字符
Dim i As Integer
  Dim retObj As Object
  With acadApp.ActiveDocument.ModelSpace
  For i = 0 To .Count - 1 Step 1
  Set retObj = .Item(i)
  If retObj.EntityType = acText Or retObj.EntityType = acMtext Then
  print  retObj.TextString
  End If
  Next i
  End With

雪山飞狐_lzh · 发表于 2009-4-2 12:33:00

dim obj as object , pnt
ThisDrawing.Utility.GetEntity obj,pnt
msgbox obj.textstring

[求助]请问各位在VBA中如何选择文字,获得文字?

发表回复

精选推荐