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

dxhy

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

AirCD

不知道你想问什么。

wuyunpeng888

这个很简单呀

azjmjsj

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

waitfch

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

dxhy

找到了，还可以，功能差不多，可以读取文件中的全部字符

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

dim obj as object , pnt

ThisDrawing.Utility.GetEntity obj,pnt

msgbox obj.textstring