Hi friends
I try to create a script that count the select that I click
I have a rectangular prismatic, that have 6 faces
I want that if I click in 5 faces, the count show me a message where appears numer 5, and if I click in 3 faces, show me 3
Thanks
Hi friends, I try to read the mass of part in a catproduct, this is the script:
Sub MasaProduct()
Dim Language As String
Language = "VBSCRIPT"
Dim colDocum As Documents
Dim DocActivo As Document
Dim Status As String
Dim myselection As Selection
Dim InputObjectType(0)
InputObjectType(0) =...
Hi Again
Here it´s my code for read holes and thread, and show them in a worksheet of Excel
Sub export()
Dim partdocument1 As Document
Set partdocument1 = CATIA.ActiveDocument
Dim part1 As part
Set part1 = partdocument1.part
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As...
Hello again
Apparently I feel bored with this topic, but I would like to finish my script correctly. I´m sorry
Initially I have a Part, which have some Holes and some Thread, there are also some Rectangullar Pattern and Circular Pattern.
My script can read Holes and Thread, give me your...
I want to show my script
This script can show holes and thread, he create a document excel and send it, the diameter and the metric
The script is this:
Sub exportar_num_agujeros()
Dim partdocument1 As Document
Set partdocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 =...
Hello friends
I have a problem with a script. I'm working on compute the area of a Part. I thought that this parameter could be exported directly to the Measurable command like this Script.
This Script Show the Area of a Part, but all Area.
Sub CATMain()
Set objPart =...
Hi friends.
I've spent the last week, turning an idea, but more I try I can not get this macro.
My idea is to obtain the value of longitude as both a line of a circle.
It selecetelement2 I should apply, make a loop to read my part, select the item myself and I return in a msgbox the value of...
Hi friends
I try to find a macro that can you read me the total number of holes of a catia part
The code is the follow:
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim bodies1 As Bodies
Set bodies1 =...
