Extract the attributes, and written table (help)

[Anonymous]

Extract the attributes, and written table(or output excel) BOM ?

I think like this :

1step. run command
2step. choose all drawing in mode space. (crossing )
3step. Enter the text height (Text style is SIMPLEX, is style ,not font )
4step. Select (a) pick a baskpoint insert table (b)or output excel

Essential
1.Use Drawing number from top to bottom  order arrange
   Sort by the last three digits of drawing No.
eg.
1-SS706A-001
3-SS706A-002
2-SS706A-003
1-SS706A-004
1-SS706A-005

2.Check the PARTNAME , if have Duplicate PARTNAME ,SO Pop-up tips.
3.Check the DRAWING NO , if have Duplicate DRAWING NO ,SO Pop-up tips.

4.If insert table, Must: Layer is DIM , Text style is SIMPLEX, (is style ,not font )

Many thanks for help me!!!

See Attachments. for test.

[Luís Augusto]

Hello.

See if this post can help you.

http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/extract-attributes-from-a-specific-bl...

[3wood]

For attribute management, the simplest tool is ATTOUT in Express Tools.

Just export attributes with ATTOUT, then adjust the table in Excel including hiding some rows/columns to suit your need, then copy/paste the table from Excel.

[Anonymous]

Very thanks for your reply ! But I can't try it by myself. because , I just know a little . when I have time, I will learn. Many thanks for help me!

[Anonymous]

I think I find a way ,

USE "ATTEXT" AND "EATTEXT " AND "ATTOUT "

[hmsilva · Accepted solution]

Hi emk2012,
the attached is just a 'demo' and a starting point for you.

Try to read the code (don't just run code), try to understand the way how to collect the attributes, the desired tags, build a list with the attribute values,...
To write to excel, i did use Gilles Chanteau's gc:WriteExcel.

Hope that helps
Henrique

[Anonymous]

Hi dear henrigue, I've been waiting for you to appear, Thanks !,I just try it ,but error:
Erreur: too few actual parameters

[Anonymous]

Dear henrigue,Can you give me a full version ? Not I don't want to do it myself, I really can't do it.

[hmsilva]

Hi emk2012

'Can you give me a full version ?'

the 'demo' is functional, with your TEST1.dwg works as expected.

'Erreur: too few actual parameters'

this error returns from Gilles's gc:WriteExcel function, possibly you are calling the function without one of the required parameters, did you try the code with your TEST1.dwg and without modifying the code?

Henrique

[Anonymous]

Hi henrigue，thank you!
I See this:
(setq xlapp (vlax-get-or-create-object "Excel.Application"))
I think is about office , my PC in not install "Microsoft Office" is "openoffice"
I test on other PC with microsoft office, ok! generate Demo.xls.
But,No need current drawing, I need select objects in the current drawing.
and I neet check function:
1.Check the PARTNAME , if have Duplicate PARTNAME ,SO Pop-up tips.
2.Check the DRAWING NO , if have Duplicate DRAWING NO ,SO Pop-up tips.
In a dwg file ,Usually have 200~500 drawings , Each drawing has different "PARTNAME" and different "DRAWING NO."
Because , This contents must be input to ERP system , Can not be repeated !
If the same name exists, no output xls file, Pop-up tips.
I appriciate your help!

[hmsilva]

---

@Anonymous wrote:

(setq xlapp (vlax-get-or-create-object "Excel.Application"))
I think is about office , my PC in not install "Microsoft Office" is "openoffice"

---

Hi emk2012,

I never used "openoffice", so I can't assist on this, hopefully someone else can.

Henrique

[Anonymous]

Thanks very much !Henrique,
I can use microsoft office ,This is not a problem!
Now,can you help me? Sincerely thank you !
if check function is difficult ,
so I hope you can help me this:
Select objects in the current drawing. not all objects!

[hmsilva]

Just remove the "_X" from the ssget...

Henrique

[Anonymous]

Great ! henrique, Thanks so much! The last request : Can choose the output path ? Thank you very much again

[hmsilva · Accepted solution]

---

@Anonymous wrote:
 Can choose the output path ?

---

Done...

Henrique

[Anonymous]

Hi Henrique Very good! Admire you! Thank you very much!

[hmsilva]

You're welcome, emk2012.
Glad I could help

Henrique