乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 110|回复: 7

eattext and vba

[复制链接]

1

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
7
发表于 2004-1-21 06:29:25 | 显示全部楼层 |阅读模式
I use eattext a lot. I have the regular things to set like: current drawing and user template etc. These settings are always the same.
Is it possible to let a vb program set this automaticly? So I dont have to run through al those settings. Just run a vba and presto!
If not can this be done by a lisp program? (Or both vba and lisp?)
I'm new to vba so maybe it's a stupid question.
Anton
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-1-21 10:03:49 | 显示全部楼层
Anything is possible given you throw enough money, effort and time at it.
But seriously, there is a VBA program example that extracts attributes to excel that could be modified to do what you need, or you can create a custom routine, (lisp or VBA) to look at the drawing objects and filter what you want then extract only the information you want.
It won't be done in a few minutes, and it may take a few hours depending upon the complexity of what you want, but it can be done.
回复

使用道具 举报

1

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
7
发表于 2004-1-21 13:47:16 | 显示全部楼层
I tried a few lisp files who do this thing. For me, the eattext function in acad works the best. Maybe i tried the wrong ones....
The goal is this:
I have a drawing with a few custom symbols.
Those symbols have some atrributes. A few invisible with preset data, and a few with channelnumbers wich I have to set when placing a block in the drawing.
At the end I want a list in Excel with a list of the blocks, the number of them, the weight (=preset), the height, order code(=preset) etc.
So far the eattext works great. Except I have to go through the same questions again and again with the same answers.
So that's why I want to skip the questions.
Hope you have a clue what I mean.
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-8-29 11:27:05 | 显示全部楼层
Hi There
I use eattxt occasionally as well and I agree with Keith
I think i know the exact example Keith is reffering too.
As my knowledge of VBA is still just above beginner, I had no luck modifying that example to make it mine. No doubt Keith could do it time permitting.
Anyhow, I do believe that The Extract Attributes (eattxt) not only has too many steps but you also have to bring the comma delimited text into Excel.
I did automate The Excel process with a macro but it is no where  near the custom spread sheet that I want.  I don't think that it would be that hard to create a macro in AutoCAD that would automate your process if you want to use The Eattxt Method
I intend to keep plugging until I can create my own spread sheet and with one click have the attributes extract and arranged in Excel EXACTLY how I want. I
Let's keep this topic alive until one of us figures it all out. It will benefit everyone I believe.
Mark
回复

使用道具 举报

14

主题

194

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
250
发表于 2004-8-29 11:28:11 | 显示全部楼层
Hey Keith
I really hope you do not look like that in real life?  
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-8-29 11:32:27 | 显示全部楼层

His last avatar was a very good likeness.
(As is mine to me).
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-8-30 08:14:07 | 显示全部楼层
Boy ML, where've you been? Haven't seen you in a long time.
回复

使用道具 举报

1

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
7
发表于 2004-8-30 17:18:06 | 显示全部楼层
Yeah it has been almost a year. I was busy trying to absorb every thing I've learned in the previous year
Actually I just annoyed the hell out of Keith  LOL
Actually I moved across country for 6 months and was very busy.
I need to re connect for some forum friends, especially in The VBA area
Talk to you soon
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-1 03:24 , Processed in 1.740642 second(s), 68 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表