Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Makro counting threded holes problem

Status
Not open for further replies.

PatCatProf

Mechanical
Joined
Oct 1, 2024
Messages
1
Location
PL
Hello,

I am new in this community, I need your help.

I would like to get makro which calculate how many holes I have in total project and additionaly how many holes ehit threaded, but unfortunatel I do not know how to get threades properly.
My code looks like:

Sub CATMain()
' Variable declaration
Dim doc
Dim part
Dim body
Dim shape
Dim i
Dim totalHoles
Dim threadedCount

' counters setup
totalHoles = 0
threadedCount = 0

' Get active document
Set doc = CATIA.ActiveDocument

' chcek type of document PartDocument
If TypeName(doc) = "PartDocument" Then
Set part = doc.Part


Set body = part.Bodies.Item(1) ' get first body

' check all bodies
For i = 1 To body.Shapes.Count
Set shape = body.Shapes.Item(i)

' check holes
If TypeName(shape) = "Hole" Then
totalHoles = totalHoles + 1

' Check if hole is threaded
On Error Resume Next
If Not shape.HoleType Is Nothing Then
If shape.HoleType = "Thread" Then
threadedCount = threadedCount + 1
End If
End If
On Error GoTo 0
End If
Next

' display results
MsgBox "Total quantity of holes: " & totalHoles & vbCrLf & "Threads: " & threadedCount
Else
MsgBox "THis is not proper file (CATPart)."
End If
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top