Macro to export Geometrical tolerances to excel

[eretamoza]

Hello all,
I am writing a macro to do the following:
1.- Export all Dimensions and its upper and lower tolerances to excel.
2.- Export all Geometrical Tolerances to excel
3.- Change the color of the dimension which has a Geometrical Tolerances

So far I managed point 1.
Now I want to do the same to with the Geometrical Tolerances so I use the next line to select all of them:
selection1.Search "(CATTPSSearch.TPSGeometricalAnnot + CATDrwSearch.DrwGDT),all"

But I cannot find a way to read the symbol, value and Datum information.

...any ideas?

 

[eretamoza]

Any idea how to do this guys?
Thank you

 

[friendlyamu]

Hi eretamoza

I hope the macro which u have written for your mentioned tasks would be helpful for me,.. So could you please post your macro....even if the macro do your first task alone also post it.. i need that macro... thanks in advance..

 

[drewmumaw]

@eretamoza
1. [URL unfurl="true"]http://www.eng-tips.com/viewthread.cfm?qid=345707[/url]
2. See Maddy02's comment on the thread I referenced in #1.
3. I don't believe there is anything exposed in the API to change the color or font of dimensions.

Regards,
Drew Mumaw

http://www.drewmumaw.com/

http://www.textsketcher.com/