This script Work
A lot of thanks itsmyjob
Sub selecFace()
UserForm1.Hide
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) = "AnyObject"
Dim refBorde...
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
I believe that this script work :)
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) = "AnyObject"
Dim refBorde As Reference
Set...
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) =...
Friends
I have it
Sub numberofpattern()
Dim oPartDocument As PartDocument
Dim oPart As Part
Dim oStatus As String
Dim oCircularPattern As CircPattern
Dim TheMeasurable As Measurable
Dim TheSPAWorkbench As Workbench
Dim InputObjectType(0)
InputObjectType(0) = "AnyObject"
Dim oSelection...
then programming in vb
I can not get to know the number of copies to make a pattern?
I believe that this should be instancecount.value....
because in the example of help show this:
***********************************************************************
' Purpose: Changes pattern...
Hi again
I have a few days study caav5. I believe that I am near the solution, but don´t find it yet.
My study:
In circullar pattern, the solution should be:
Properties--> catInstancesandAngularSpacing-->AngularRepartition.InstanceCount.Value
In Rectangular Pattern, te solution shoul be...
Good night
I understand you message, I´m sorry if I am so heavy with this topic.
I search item to copy in v5automation.chm, and I only find text about how write the word in my script. Also I search item to copy in Visual Basic program VB --> Edit --> Object browser and search pattern, where...
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 Again Ferdo
Thank you for the advice, i read the portable script center
I found a script that can aply material, it´s this:
Public Sub ApplyMaterial(calitateMat As String, oDoc As PartDocument, matName As String)
On Error GoTo err_treat
Dim matCatalogPath As String...
Hello Ferdo.
Thank you very much for all the help provided in this forum
Admittedly, I'm using the google translator helps
Hope it's not a problem, only pretend to communicate of the best way.
I am a young engineer who is studying the world of macros in catia to work on my final-year.
Your...
Many thanks Ferdo, the attachment is incredible
Works great in V5R20.
If I want I can hire you calculate an area, calculating the edges of longitude and altitude.
Thank you so much
for example, this code get the minimun length of two lines: (Tested in Catia V5 R20)
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Clear
Dim...
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 firends
I have a question.
How apply this macro to view in 3d, in a part view?
For found the value of a line for example
Because i try to run this macro but doesn´t work
I work with V5R20, but i don´t think that this are the problem
Thank you very much
