2013-06-25 明经AutoCAD.VBA编程(45054712) 群聊记录：充值 b6c0141e-a2b8-49bc-ab14-4d366e371e

明经快报

[mccad]mccad 11:32:27

充值 
b6c0141e-a2b8-49bc-ab14-4d366e371eba

明经快报

有声 12:21:48

有些年轻人，我早就想说说他们了。他们一毕业，就到某些大型国企和机关中工作。每天没什么事儿，就是吃饭喝酒，福利好得不得了。人生还没有奋斗过就开始养老，自己的理想被丢在一旁，用民脂民膏来享受特权。对于这样的年轻人，我只想问你们四个字：哪投简历？

明经快报

蓝牙 13:10:06

蓝牙 13:12:58

Dim ACADObject As AcadBlock
Dim Attributes   As Variant 
For Each ACADObject In ThisDrawing.Blocks
If ACADObject.Name = "图纸编号" Then Attributes = ACADObject.GetAttributes
Attributes.TextString = ""   
‘这句话错误，对象不支持该属性或方法
Else
End If

请教一下怎么错了？ 

明经快报

[VBA/VB/C#]efan2000 13:24:04

要在块引用中操作。

一缕阳光 13:28:42

Attributes(0).TextString = ""

蓝牙 13:30:12

不行

一缕阳光 13:36:50

只能用在块参照上面

不是块

一缕阳光 13:38:02

用在块 可以用Attribute 对象

GetAttributes 是取得属性参照

明经快报

蓝牙 15:30:27

Dim ACADObject As AcadBlock
For Each ACADObject In ThisDrawing.Blocks
If ACADObject.Name = "图纸编号" Then
你好，我的代码这样写，能监控到ACADObject得item 1 的TextString值为我需要的内容，想把这个内容替换掉，怎么做？

一缕阳光 15:33:01

直接赋值就可以了

蓝牙 15:34:28

ACADObject.Item(1).textstring = "" 这样吗？

提示出错啊

蓝牙 15:36:12

why？

轻舞飞扬 15:45:08

[qqimg]oldimg/{4F6D9B0B-9F47-E6AB-37DC-94769ADA68EE}.jpg[/qqimg]

[qqimg]oldimg/{D5F6ABB1-370F-8C63-92EC-5FBD74EE48E4}.jpg[/qqimg]

item，不是reference

明经快报

蓝牙 16:27:45

那位高人有空，我请教个vba的问题

明经快报

簡.単.愛⒈ｓ 16:57:52

有高手知道怎么把增强属性编辑器弄的数字 变成纯数字啊

一缕阳光 16:58:33

用cdbl函数 看看

簡.単.愛⒈ｓ 16:59:04

不会用 能指导下吗 

明经快报

一缕阳光 17:11:35

显示在cad上面的 不管是数字 都可以按字符处理

你要干什么呢?

簡.単.愛⒈ｓ 17:15:23

[qqimg]oldimg/{08FF63D0-D2DD-25BC-5683-913D1C941F1E}.jpg[/qqimg]

我有个插件 可以框选距离  有属性块就不好选了

而且不好分解  分解之后就什么都没了

一缕阳光 17:16:39

跟纯数字有什么联系呢?

簡.単.愛⒈ｓ 17:16:59

[qqimg]oldimg/{3D56625E-D187-E9E8-A3DF-8F50B40A5F5E}.jpg[/qqimg]

[qqimg]oldimg/{4FA944A2-8EF5-BC3D-EA2A-3436E95561D4}.jpg[/qqimg]

点开之后都是这样的

我要这样的[qqimg]oldimg/{1D70982A-89BE-20A4-1909-F7A4FB9368AB}.jpg[/qqimg]

可以转换吗

一缕阳光 17:18:28

你这个是块 还是属性

簡.単.愛⒈ｓ 17:20:08

[qqimg]oldimg/{AA74C0DC-683B-938A-ADA3-501C5E5220BE}.jpg[/qqimg]就是个数字  点开之后就是这样的了

一缕阳光 17:29:58

带属性的块

簡.単.愛⒈ｓ 17:30:17

嗯

一缕阳光 17:30:19

转成文字就可以

簡.単.愛⒈ｓ 17:30:23

怎么转换成上面的数字啊

怎么转换啊

帮帮忙

一缕阳光 17:30:44

论坛上面有

簡.単.愛⒈ｓ 17:32:11

直接搜啊

簡.単.愛⒈ｓ 17:33:05

[qqimg]oldimg/{B2DB73AC-CB18-4037-0203-D7334E72EE73}.jpg[/qqimg]

?欢乐 17:33:17

炸开不就得了

et工具是有个命名

?欢乐 17:34:21

命令

簡.単.愛⒈ｓ 17:34:23

炸开就没了

一缕阳光 17:35:24

很多吗

簡.単.愛⒈ｓ 17:35:42

全部[qqimg]oldimg/{6EDD3325-4BD9-86BD-D058-F7B7CEABEB35}.jpg[/qqimg]

?欢乐 17:37:26

还是ET吧

?欢乐 17:38:03

[qqimg]oldimg/{AD04C954-F081-A98F-57C6-8B53961AB36A}.jpg[/qqimg]

簡.単.愛⒈ｓ 17:38:25

你有ET下载的连接吗

一缕阳光 17:38:39

[qqimg]oldimg/{184176A1-1432-9962-30CA-F0ECCC9E04AB}.jpg[/qqimg]

?欢乐 17:39:07

[qqimg]oldimg/{EA44CA85-E91E-E8E5-E2D0-7BDA53CAB996}.jpg[/qqimg]

簡.単.愛⒈ｓ 17:40:33

有ET链接吗

一缕阳光 17:41:06

cad安装包不是自带?

簡.単.愛⒈ｓ 17:41:32

啊在哪里找啊 哈哈 我是菜鸟

一缕阳光 17:42:04

进错群了

?欢乐 17:42:31

[qqimg]oldimg/{EB3DD376-B8B8-63A2-F74F-1ECA4624673C}.jpg[/qqimg]添加删除程序那不是有么？

簡.単.愛⒈ｓ 17:43:24

[qqimg]oldimg/{EF0EBADB-E3BE-E1D4-A54E-8EEAD1BCF42E}.jpg[/qqimg]

明经快报

簡.単.愛⒈ｓ 18:05:11

安装之后 菜单栏没有怎么办 求帮忙

sqbao 18:10:23

lisp怎么都出来了 进错群了吧

簡.単.愛⒈ｓ 18:11:15

[qqimg]oldimg/{8B3C83A3-6188-9F71-DA03-974119064298}.jpg[/qqimg]这什么

明经快报

小学生 19:40:09

写着玩呗，如果有时间的话

簡.単.愛⒈ｓ 19:41:21

嗯 关键是我们现在图纸都是设计院出的 没有什么规律的

编程的话要有规律的吧

小学生 19:41:53

最好是有规律

簡.単.愛⒈ｓ 19:42:03

嗯

小学生 19:42:06

设计院出的，有可能也有规律

簡.単.愛⒈ｓ 19:42:16

[qqimg]oldimg/{877D0AAD-671F-2D18-F4E6-ED9CBEDE5688}.jpg[/qqimg]

我找贱人工具箱的 那人 帮忙转换的

簡.単.愛⒈ｓ 19:43:04

好像不好直接转换吧

小学生 19:45:03

不知道，你所谓的直接转换是什么

轻舞飞扬 19:46:11

属性变单行文字，单行文字需要啥参数，全部从属性获取就行了。然后把属性的值清空

簡.単.愛⒈ｓ 19:46:11

就是写个程序 直接[qqimg]oldimg/{E79D7E5E-934C-EFF0-4E06-D901562622FF}.jpg[/qqimg]  人工框选

累加值

胡日查 19:46:21

vba能控制窗口程序吧，用什么函数

簡.単.愛⒈ｓ 19:46:24

可以吗

胡日查 19:46:25

或者方法

簡.単.愛⒈ｓ 19:46:29

就是单行文字

轻舞飞扬 19:47:09

就这么简单？

簡.単.愛⒈ｓ 19:47:25

就要单行文字 把属性的值

小学生 19:47:31

可以直接累加

簡.単.愛⒈ｓ 19:47:47

NBS 可以直接累加

小学生 19:47:55

和读取文字的值差不多

胡日查 19:47:57

这个属性值我好像做过，能把公路的路基设计表搞到excel

簡.単.愛⒈ｓ 19:48:21

是的  读取块的 值

胡日查 19:48:38

不是，能把横断面边上的表格数据搞到excel

小学生 19:48:38

搞到EXCEL，都不用编程，ACAD本身就可以

胡日查 19:48:55

我学医不经啊

学艺

簡.単.愛⒈ｓ 19:49:00

搞到EXCEL？

胡日查 19:49:04

不精啊

簡.単.愛⒈ｓ 19:49:16

就是把选择的块属性 提取到EXCEL？

胡日查 19:49:16

恩

对

把值放到excel

簡.単.愛⒈ｓ 19:50:16

怎么弄 [qqimg]oldimg/{0B289132-3F9D-96D3-2B6A-57C5D4A48F53}.jpg[/qqimg]就是这三个数字 要是我选择下 就能自动放到EXCEL?

小学生 19:51:05

那不能

簡.単.愛⒈ｓ 19:51:12

啊 那你们说的是什么

这三个数字 点开之后 也是块

小学生 19:53:08

工具-》数据提取

ACAD用的不熟啊

蓝牙 19:53:38

Dim ACADObject As AcadBlock
For Each ACADObject In ThisDrawing.Blocks
If ACADObject.Name = "图纸编号" Then
你好，我的代码这样写，能监控到ACADObject得item 1 的TextString值为我需要的内容，想把这个内容替换掉，怎么做？
这样：
ACADObject.Item(1).textstring = ""   是错误的，该怎么写？

小学生 19:54:03

对DWG中各种表格还是比较有用的

簡.単.愛⒈ｓ 19:59:45

簡.単.愛⒈ｓ 20:01:00

块也可以提取吗

一缕阳光 20:01:42

都可以

蓝牙 20:01:51

应该是可以的，textstring中就是我要的东西，但是我不知道如何提取，特来请教

明经论坛怎么注册啊

一缕阳光 20:07:05

首先获取块参照里面的属性参照,然后指定属性参照的textstring的属性值就可以了

蓝牙 20:09:53

不明白 能更直观鞋码

些吗？

一缕阳光 20:10:21

在直观就是写代码了

也有范例的

帮助里面

蓝牙 20:10:48

好 论坛帮助吗？

一缕阳光 20:11:05

cad自带的开发文档

小学生 20:14:16

块定义和块参照要先弄明白

小学生 20:20:15

AcadBlock，这个是块定义，显然，你是要改块参照的

小学生 20:22:15

[qqimg]oldimg/{01946ECC-0D14-5F0B-12BB-9B224A6A09B2}.jpg[/qqimg]

[qqimg]oldimg/{1D883CD7-56E4-D1ED-4691-497B0D54CDA1}.jpg[/qqimg]