Try this one for me :)
Oh and also for using this macro, open your part document. Select wire or tube whatever u want. Then start the macro
Sub CalculateWireCenterline()
' Get the active part document
Dim partDoc As PartDocument
Set partDoc = CATIA.ActiveDocument
' Get the...
I started and you can continue to code :)
just fill the points you need to add your choices.
Sub ThreadAnalysis()
Dim partDocument As PartDocument
Set partDocument = CATIA.ActiveDocument
Dim part As Part
Set part = partDocument.Part
' Dictionary to store thread...
Sub CATMain()
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Dim SelectionsAll As Selection
Set SelectionsAll = drawingDocument1.Selection
For Each RefView1 In SelectionsAll
Dim Elements As GeometricElements
Set...
Can u try this for me sir? It will maybe usefull for u :)
Sub MeasureRadius()
Dim selection As Selection
Set selection = CATIA.ActiveDocument.Selection
' Yarıçapı ölçmek için bir daire seçin
selection.Clear
selection.Search "Type=Circle,sel"
If selection.Count...
Anyone can try my code on catia for me?
And I can excapt any help for my code :)
Sub TransparentizeComponents()
Dim productDocument As ProductDocument
Set productDocument = CATIA.ActiveDocument
If Not productDocument Is Nothing Then
Dim product As Product
Set...
Thank you for answering @LWolf.
In this link as you can see I see this one and I want to do like this. He said in comment is without dmu
https://www.youtube.com/watch?v=3uvofc7EsHE
We can move like this ur right but want like animation looks like this video.
And also Am I wrong this...
I added example about what am I needed in picture. Is this possible to create parts and assembles like this with 1 macro? I tried my best but I got stuck.
Language="VBSCRIPT"
Sub CATMain()
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Item("Part1.CATPart")
Set part1 =...
Hi again Mr. Ferdo. Sorry about my bad english also I adding a picture I tried my best.
It works very good thank you now but I stuck in something in code I entered 100% opacity for holes but they are still are transparent. In product how can I turn my holes full opacity and all of other...
I tried but It gives me errors Mr Ferdo can you check my code? I'm not sure my code is search holes. My first code works well makes opacity and gives colours to product.
Language="VBSCRIPT"
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim...
Thank you LWolf I used this code for first option how can I adapt search code to macro? For example make this searched holes green.
Language="VBSCRIPT"
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 =...
Hello friends I'm new in Catia macro. I have several questions.
1) I tried to save macro but it didn't worked in opacity and colour. I want to make 0% or 25% opacity all of the product and giving white colour.
2) In product I need to find all holes. Give all holes red color and count them (I...
