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

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

如题,我想设计一个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   
printretObj.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
页: [1]
查看完整版本: [求助]请问各位在VBA中如何选择文字,获得文字?