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

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

本帖最后由 作者 于 2009-3-27 13:09:17 编辑

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

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

不知道你想问什么。

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

这个很简单呀

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

<p>简单，显示选择文字的textstring即可</p>

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

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

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

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

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

<p>dim obj as object , pnt</p><p>ThisDrawing.Utility.GetEntity obj,pnt</p><p>msgbox obj.textstring</p>
页: [1]
查看完整版本: [求助]请问各位在VBA中如何选择文字,获得文字?