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...
...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 description
' Assumptions: Looks for...
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...
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...
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
