Macro Catia with holes

to find patterns in partdesign:

Set myObj = selection1.FindObject("CATIAPattern")
msgbox myObj.itemtocopy.name <- it's item's name, e.g. Hole.1, If You have array of Holes You can easily check if ItemToCopy refers to Holes or other Shapes

to get parameters:

set params = part1.parameters
msgbox params.item(1).name <-thats the way You can list all Your parameters.


I would be glad (and Author probably too) if anyone show how to get list of parameters related to specified object, eg Shape

Hi,

I believe there is a similar thread in the forum. Anyway...catscript...and of course, you need to modify according to your needs.

Language="VBSCRIPT"

Sub CATMain()

Dim oPartDoc As PartDocument
Dim oBody As Body
Dim oHole As Hole
Dim i As Integer
Dim selection1 As Selection
Dim selection2 As Selection
Dim oHoleName As HoleName
Dim oHoleType As HoleType
'*******************************
CATIA.DisplayFileAlerts = False
Dim Message, Style, Title, Response, MyString
Message = ("You must have a temp folder in your C drive " &_
""&(chr(13))&_
" Do you want to continue ?")
Style = vbYesNo + vbDefaultButton2 'Define buttons.
Title = "Extract holes parameters to text file"
Response = MsgBox(Message, Style, Title)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes"
Else

If Response = vbNo Then
MyString = "No"
Exit Sub

End If
End If
'*************************************
Set document = CATIA.ActiveDocument

Set filesys = CATIA.FileSystem
crlf = chr(10)
filename = "c:\temp\Holes_parameters_of_"&document.Name&".txt"
if filesys.FileExists(filename) Then
filesys.DeleteFile(filename)
End If
Set file = filesys.CreateFile(filename,True)
Set stream = file.OpenAsTextStream("ForWriting")
err=0
'**************************************************************
iHoleInSelection = True
Set oPartDoc = CATIA.ActiveDocument
Set oBody = oPartDoc.Part.Bodies.Item("PartBody")

Set selection1 = oPartDoc.Selection
selection1.Search "(Name=PartBody* & CATPrtSearch.BodyFeature),all"

Set selection2 = oPartDoc.Selection
selection2.Search "Type=Hole,sel"

stream.write("Crt_no"&" "&"Hole_Name"&" "&"Hole_Dia"&" "&"Hole_Type"&crlf) 'first line in output file

For i=1 To selection2.Count

Set oHole = selection2.Item(i).Value
Set oHoleName = selection2.Item(i).Value
Set oHoleType = selection2.Item(i).Value

MsgBox CStr(oHoleName.Name) & " " & " " & "Diameter=" & CStr(oHole.Diameter.Value) & " " & "Type=" & CStr(oHole.Type)

stream.write(i&" "&oHoleName.Name&" "&oHole.Diameter.Value&" "&oHole.Type&crlf)

Next

End Sub


Regards
Fernando

Hello Ferdo

Thank you very much for your message
I found it very useful

Elsewhere
I still can not solve the problem of the pattern rectangullar and circular, because the way of lukaszs doesn´t work me.
Could you help me with the media into the holes counter?

Thank you very much

Frankly speaking I don't have much time.

What I can suggest is: if you find already the parent of the pattern (in other words itemtocopy as Lukaszsz suggest), the problem is almost solved, no?

Regards
Fernando

Ok
thank you very much
It will look about

thank you very much