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...
