2013-09-20 明经AutoCAD.VBA编程(45054712) 群聊记录：[face74.gif]

明经快报

[孙晶zxl]孙晶 08:37:20

明经快报

[VB&.NET]ppyyff 08:52:59

AutoCAD VBA&VB.NET开发基础与实例教程 那个有PDF版

网上都没货

传一个给我

明经快报

敏儿好学 11:27:18

共享一个呗

明经快报

海角⑤号 11:41:39

谁有从CAD提取文字VB源码的？

明经快报

VBA-华仔 12:18:53

怎么提取文字？

海角⑤号 12:19:30

就是不会才来请教啊

VBA-华仔 12:20:08

都提取什么文字？

不会是提取所有文字吧

海角⑤号 12:22:30

把选中的文字提取出来

海角⑤号 12:23:12

提取到EXCEL

VBA-华仔 12:23:19

网上搜吧，太简单了

海角⑤号 12:24:17

我下了一个txttbl工具可以用，，

但是在浩辰CAD用不了

VBA-华仔 12:25:48

首先，你要会选择集，把选中的文字对象放到选择集，用循环，一个文字一个文字的读取他的文本属性，然后，输出到EXCEL表

海角⑤号 12:26:56

选择集不是很会

昨天折腾了一天，，弄不出来

VBA-华仔 12:27:12

不说不知道，一说吓一跳，步骤还真不少

海角⑤号 12:27:48

你有没有直接可以用的源码，能不能发一个给我

我自己再改成浩辰的

VBA-华仔 12:28:17

没有

浩辰的和ACAD的，是一样的吗？

没用过浩辰的

哦，那他的有帮助文档吗？发一个我看看

海角⑤号 12:29:44

你 = =

VBA-华仔 12:37:34

[qqimg]201309/{F8D22514-080C-8D5C-D5B9-722752F4CB6A}.jpg[/qqimg]这里有问题

[qqimg]201309/{6B82ED11-8AE3-70C7-02C8-8D7D2B7F646F}.jpg[/qqimg]还有这里

海角⑤号 12:40:54

这就是网络上下的，在浩辰上调试了半天也弄不出来

VBA-小山 12:43:26

哦

海角⑤号 12:44:36

[qqimg]201309/{F9DA5EAA-8745-747E-ABB4-CE5DD10EF5BE}.jpg[/qqimg]

获取文字坐标及文字内容

VBA-华仔 12:45:06

你看一下DXF组码

海角⑤号 12:47:20

在哪里看

海角⑤号 12:48:21

我有编过从excel读取数据然后生成图纸的，，但是选择集没搞过，，弄不来

海角⑤号 12:50:10

[qqimg]201309/{AAFC8986-52C7-91DB-A95D-29ACD47BA237}.jpg[/qqimg]

VBA-华仔 12:50:20

TEXT是单行文本，MTEXT是多行广西壮族

MTEXT是多行文本

海角⑤号 12:52:32

我自己再试一下吧

VBA-华仔 12:52:32

TextString这个没错啊

单行和多行文本都用它

VBA-华仔 12:55:12

类型名，是不是应该叫AcadMtext 啊

海角⑤号 13:01:00

调试起来，各种问题

海角⑤号 13:04:46

[qqimg]201309/{AAE4A626-FA2F-6C2F-7723-A4A6AFDAFFE4}.jpg[/qqimg]这是什么错误

[qqimg]201309/{8E21296C-5B65-2244-BF9B-C329934DA17C}.jpg[/qqimg]

VBA-华仔 13:10:36

前一个图版片看不清

海角⑤号 13:11:03

[qqimg]201309/{8B78AF7D-4D11-4953-C3B2-B46568B62BB3}.jpg[/qqimg]

海角⑤号 13:11:44

然后指向 Set sjx = GcadDoc.SelectionSets.Add("ss1")这里了

看不出这里有什么错啊

海角⑤号 13:17:39

[qqimg]201309/{1CD8BD2F-E77F-B451-AC49-25A7EC3365AC}.jpg[/qqimg]这边的AcDb应该也要换成浩辰的命令，但是不知道浩辰用的是什么命令，，我晕。。。

VBA-华仔 13:18:43

那个不是什么命令，是对象类型

海角⑤号 13:19:11

哦，那应该也要换成浩辰的类型吧

VBA-华仔 13:19:17

AcDb是用ARX用的类型号名

我不知道在VBA中用行不行，也许也能行

海角⑤号 13:19:55

我不是在VBA用，我是外挂的

VBA-华仔 13:20:22

AcDb是ARX用的类型名
我不知道在VBA中用行不行，也许也能行

海角⑤号 13:20:38

哦

海角⑤号 13:23:05

好

VBA-华仔 13:25:30

选择集那个，你要先声明一个

海角⑤号 13:26:21

[qqimg]201309/{38A1D06F-4EFE-B9A2-B1E5-47910D9193C4}.jpg[/qqimg]有啊

VBA-华仔 13:32:53

也许是你前的应用程序没有得到，或者是，当前文档对象没有得到，你试一下

VBA-华仔 13:33:26

[qqimg]201309/{A71C8360-76EA-AF75-9A32-FE737DC523A9}.jpg[/qqimg]

[qqimg]201309/{2F1B0A60-DE4D-ED28-D35E-89C295F63598}.jpg[/qqimg]

海角⑤号 13:33:48

恩，，我看下

VBA-华仔 13:34:17

你自己看吧，没有调试，想的太累

海角⑤号 13:35:20

我试一下

VBA-华仔 13:39:37

SelectOnScreen这个是屏幕拾取，你要隐藏窗口的

VBA-华仔 13:40:35

你要是非模式对话框估计也行

海角⑤号 13:42:29

哦，，，我没隐藏，，