วีดีโอ

Worst video ever 😑

thanks dude :)

why are we using "slider" rather than cylinder?

Thank you very much for useless tutorial. Because no one need to create one part and save it independently and programaticaly. Because this method does not work when you need to save exisitng products with modified sub-assemblies and parts...oh shit!

this is useless save macro, because it saves whole modified sub-assemblies and sub-parts of active product while all adequate engineers need in independant save.

how to record macro to create a point using parameter f(x)?

I have to create macro to import the data fro Excel as tabulation I catia drafting sheet for this how to create macro

Will you please attach pdf of drawing in the description or in pin comment?

Hi can you please show an example of a macro to create a hole on the face , and in a dialogue box catia should ask for the selection

I have a 3D product which contains app 100 parts. How can I write macro to get all these individual parts to 2D drawing ?

One corner is not matched. So it is not perfect. We need perfect method make again perfect video and share

NOT WORKING

Voice dal bhai tb views badega

Where do we get exact model IGS file?

Thanks for your sharing!😀

Good

Thank you for your sharing! This one I give up. I have not installed Excel.

Thank you for your sharing! Sub CATMain() Dim oSelection As Selection Set oSelection = CATIA.ActiveDocument.Selection Dim iCount Dim geoName As String geoName = Inputbox("please enter EXACT name of geometry to seatch for.") oSelection.Search "Name=" & geoName & "*, all" iCount = oSelection.Count msgbox "Number of shapes found:" & iCount For i = 1 To iCount CATIA.StartCommand "Center Graph" Next End Sub

Thank you for your sharing! Sub CATMain() On Error Resume Next Dim partDoc1 As PartDocument Set partDoc1 = CATIA.ActiveDocument If Err.Number <> 0 Then MsgBox "Active document is not a part document" End If Dim body1 As Body Set body1 = partDoc1.Part.Bodies.Item(1) Dim shapes1 As Shapes Set shapes1 = body1.Shapes shapecount = shapes1.Count Dim shape1 As Shape Dim skechShape As SketchBasedShape Dim count1 As Integer count1 = 0 for i = 1 To shapecount Set sketchShape = shapes1.Item(i) If Err.Number = 0 Then count1 = count + 1 End If Err.Clear Next MsgBox "Number of sketch based shapes is: " & count1 End Sub

Thank you for your sharing!

Thank you for your sharing! Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim partRoot As Document Set partRoot = productDocument1.Part MsgBox "The density is " & partRoot.Density End Sub

Thank you for your sharing! Sub CATMain() Dim SelectedElement Set SelectedElement = CATIA.ActiveDocument.Selection On Error Resume Next Dim oSelElem Set oSelElem = SelectedElement.Item(1).Value Dim info Set info = oSelElem.Parent.Parent If Err.Number = 0 Then MsgBox "Parent Name = " & info.Name Else MsgBox "You must select an object to return the parent name" End If End Sub

Sub CATMain() Dim intA(3) As Integer Dim intB(3) As Integer Dim intC As Integer intA(1) = 1 intA(2) = 2 intA(3) = 3 intB(1) = 1 intB(2) = 2 intB(3) = 3 Dim i As Integer For i = 1 To 3 intC = DisplaySum(intA(i), intB(i)) MsgBox intC Next End Sub Function DisplaySum(ByVal int1 As Integer, ByVal int2 As Integer) As Integer DisplaySum = int1 + int2 End Function

Thank you for your sharing! Sub CATMain() Dim intA As Integer Dim intB As Integer Dim intC As Integer intA = 2 intB = 3 intC = intA + intB Dim strOutput As String strOutput = "The Sum is" & Str(intC) Dim response As Integer response = MsgBox("Do you want to display the sum?", vbYesNo, "Display Sum") If response = vbYes Then MsgBox strOutput End If End Sub

Thanks for your sharing. The bug is fixed

Thank you for your sharing. Sub CATMain() On Error Resume Next Dim fullname As String Dim oDoc As Document Dim oSTPDoc As PartDocument Dim oSel As Selection Dim oPart As Part Set oDoc = CATIA.ActiveDocument Do While CATIA.Documents.Count > 0 fullname = oDoc.fullname If Right(fullname, 8) = ".CATPart" Then fullname = Left(fullname, Len(fullname) - 8) ElseIf Right(fullname, 11) = ".CATProduct" Then Else: MsgBox "No valid Part or Product active" Exit Sub End If CATIA.ActiveDocument.ExportData fullname & ".stp", "stp" Set oSTPDoc = CATIA.Documents.Open(fullname & ".stp") oSTPDoc.Activate Set oSel = oSTPDoc.Selection oSel.Clear Set oPartDoc = CATIA.ActiveDocument Set oPart = oPartDoc.Part oSel.Add oPart.HybridBodies.Item("Geometrical Set.1") oSel.Delete CATIA.ActiveDocument.ExportData fullname & ".stl", "stl" CATIA.ActiveDocument.Close CATIA.FileSystem.DeleteFile(fullname & ".stp") CATIA.ActiveDocument.Close Set oDoc = CATIA.ActiveDocument Loop MsgBox "Program Completed!", ,"STL Export Utility" End Sub

Really good!

I found exact the same code in Nick Weisenberger Manual on Catia VBA :) this Parent feature seems to be not the same as Catia Parent meaning.. i need a Parent of the Line (it is a Point) but this Macro names me a geometrical set which contains the line :(

No works..... Selection nothing.... xD

Good

Catia is a Universe

how to make it back? the previous color?

Cool job, buddy )

Hallo, thanks for the amazing video. I just used the same code here, but it does not work. What i actually wanna do, is to get the points x,y,z Points of a CATIA Part as an excell sheet. Can you please help me to find a solution!! Thanks in advance

Hi! Good work! Can you please upload the code? Thanks a lot!

Tutorial should be audio of instructor who can teach every step .(i.e. which command is used why . Dimensions, etc.. ) so learner can easily understand

Thank ad

How can we export partname from excel? and also how can we change partname with excel?

this is not working for xls.... plz help??

Good evening sir.. Your vedio is so much useful sir. Thank you lot sir.. One day u will reach more viewers sir.. One help sir. Catia drawing table. With part no and name,,, etc.. How to export in excel sir.. Pls put vedio.. Or answer sir..

Good morning, Have a nice day, I saw your catia vedio. It has more helpful to students, thank you sir. Pls put more vedios sir, My humble request put vedio for catia drawing table export to excel. By using catia macro or some thing else. Pls can you help me sir

Hello! Thanks for your tutos.. I was using them a lot. Also I was wondering if you would like to upload another one explaining how to autofill the Title block properly. Bcos I'm using the preset coding with some modification that works very well but only with the main top product, or just when a Part is the only one opened. I read a lot but I'm not programmer so it's freaking me out... If you can help me would be nice!

Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument 'Input box to select txt or xls Dim exportFormat As String exportFormat = Inputbox ("Please choose format to export the tree as type either 'xls' or 'txt'") if exportFormat <> "xls" then if exportFormat <> "txt" then MsgBox "Did not enter txt or xls. Program cancelled, please retry macro" Else 'Input box to enter name of file Dim partName As String partName = Inputbox ("Please enter the file name.") 'Imput box to enter file location Dim oLocation As String oLocation = "C:\CATIA\V5R21\Macros\" productDocument1.ExportData oLocation & partName & "." & _ exportFormat, "txt" End if End if End Sub

Please can you make video on how to create program for micro

Hello there, Thanks for the tutorial. It works great. Can you show me the command to add to the macro so that the screenshot is taken with banner (header)? I want the banner to show information like: file path directory, file name, date... Thank you. Your help is appreciated greatly. Dan

Amazing channel. You deserve more views. Go and take a look at smzeus . c o m!!! Loads of TH-cam channels use the site to promote their videos.

good animation 👍

Hi sir I am 3rd year mechanical engineering student and I want to know about MEP course and it's scope and future growth and also I want to know about design course (cad or cae) which course I should do sir MEP or design in mechanical?

Pls provide a ..2d drawings of this model