I forget holes everytime so I want to make a macro 3

[Dialga1]

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 found counting code).

3) Can I confirm another colour for other type holes? For example simple hole is yellow and counterbored is red.

I added a picture for my example without code

 

[LWolf]

1. color and opacity are controlled by visproperty of selection
[URL unfurl="true"]http://catiadoc.free.fr/online/interfaces/interface_VisPropertySet.htm[/url]
2. you can search your product for holes, SearchString = "'Part Design'.Hole.'Hole type'=Counterbored;all"
3. all available hole types are exposed for search; Counterbored, Counterdrilled, Countersunk, Simple, Tapered


regards,
LWolf

 

[Dialga1]

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 = productDocument1.Selection

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 210,210,255,1

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealOpacity 128,1

selection1.Clear

End Sub

 

[ferdo]

Hi,

If you really want to learn to code in CATIA, it will be better to search the forum and adapt what you can find to your needs.

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2

 

[Dialga1]

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 selection1 As Selection
Set selection1 = productDocument1.Selection

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 210,210,255,1

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealOpacity 128,1

Selection1.Clear

Dim objSel As Selection
Set objSel =CATIA.ActiveDocument.Selection

objSel.Search("Hole=Simple;all")

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 255,255,0

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealOpacity 255,1

Selection1.Clear

Set objSel =CATIA.ActiveDocument.Selection

objSel.Search(“Hole=Counterbored;all”)

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 0,0,255

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealOpacity 255,1

Selection1.Clear

End Sub

 

[ferdo]

This is a macro recorded in 3DXEXPERIENCE, you need to adapt for v5, so, for example, instead of ActiveEditor write ActiveDocument...I don't have any v5 for the time being ...is coloring only Counterbored.

Language="VBSCRIPT"

Sub CATMain()


Dim editor1 As Editor
Set editor1 = CATIA.ActiveEditor

Dim selection1 As Selection
Set selection1 = editor1.Selection

selection1.Search "CATPrtSearch.Hole.HoleType=Counterbored,all"

		Set visPropertySet1 = selection1.VisProperties 
		visPropertySet1.SetRealColor 255,255,0,0

End Sub

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2

 

[Dialga1]

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 elements products %0 opacity and colourless. Now in code everything is 0 opacity but reads colours also when I click in main product automatic graphic proporties It show colours If I not click to this button not showing the colours

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 210,210,255,1

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealOpacity 128,1






selection1.Search "CATPrtSearch.Hole.HoleType=Simple,all"

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 255,255,0,0

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealOpacity 255,1




selection1.Search "CATPrtSearch.Hole.HoleType=Counterbored,all"

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 0,0,255,0

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.SetRealOpacity 255,1




End Sub

Sincerely
Mert.

 

[ferdo]

Sub CATMain()

Dim editor1 As Editor
Set editor1 = CATIA.ActiveEditor

Dim selection1 As Selection
Set selection1 = editor1.Selection

selection1.Search "Name=*PartBody*,all"

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 210,210,255,1

Set visProperties1 = CATIA.ActiveEditor.Selection.VisProperties
visProperties1.SetRealOpacity 128,0

selection1.Search "CATPrtSearch.Hole.HoleType=Counterbored,all"

		Set visPropertySet1 = selection1.VisProperties 
		visPropertySet1.SetRealColor 255,255,0,0
         visProperties1.SetRealOpacity 255,1

selection1.Search "CATPrtSearch.Hole.HoleType=Simple,all"

		Set visPropertySet1 = selection1.VisProperties 
		visPropertySet1.SetRealColor 255,155,0,0
         visProperties1.SetRealOpacity 255,1

End Sub

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2