Hi Rob,
You can find my sketches attached. One sketch with the positions of the lines (fig. 1 in the pdf) plus one sketch with the lines that need to have the same length (fig. 2 in the pdf).
My complete task is describe here Link
I am stuck in fig. 3 of the...
Hi,
Thanks, I tried your suggestion and it worked. But when I tried to follow the same process with a more complex sketch it goes crazy and "calculates" and "recalculates" the lengths non-stop. Any other way how to accomplish the same result?
Hello all,
I have the following issue that I need to solve without using midpoint or symmetry. I have one sketch with one Circe inside a square. The square has 4 lines going from each corner to the circle inside. If the length of each of those four is equal, the circle will be in the center of...
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...
I've used Pattern Name saving before but that is not exactly what I am trying to do. I want to give them a completely new and unique name to each of the visible parts in the product.
So far I've been using v5automation.chm as my main source of information.
Thank you
So far my program does the following:
-Read the existing files in a folder e.g. GX001.CATPart, GX002.CATPart, etc.
-Create a list of the visible parts in the Product. <---Done with your code, thanks.
-Propose and alternative name for the visible parts with the next sequential GX-number
-Product...
Thanks Fernando, It worked fine. I tried to improve the code by adding
for k = 1 to selection1.Count
MsgBox "PartName: " & selection1.Item(k).LeafProduct.Name
selection1.Item(k).LeafProduct.saveas("C:\" & k & ".CATPart") <----line added
next
...but it didn't work. Could you help me out once more.
I tried two different ways.
Option one: Check every parts in the product and report if it's visible or not.
For iProduct = 1 To oParent.Products.Count
Set oChild = oParent.Products.Item(iProduct)
If oChild.Parameters.Count <> 0 Then
If...
Hi,
I am stuck with a macro, I hope you could help me.I am trying to write a short macro to go thru each one of the parts in a product and just let me know if it's visible or not.
Thank you.
