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!

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

Search results for query: *

  1. gerlado

    Anyone know how to create a counter selection

    This script Work A lot of thanks itsmyjob Sub selecFace() UserForm1.Hide Dim Language As String Language = "VBSCRIPT" Dim colDocum As Documents Dim DocActivo As Document Dim Status As String Dim myselection As Selection Dim InputObjectType(0) InputObjectType(0) = "AnyObject" Dim refBorde...
  2. gerlado

    Anyone know how to create a counter selection

    Hi friends I try to create a script that count the select that I click I have a rectangular prismatic, that have 6 faces I want that if I click in 5 faces, the count show me a message where appears numer 5, and if I click in 3 faces, show me 3 Thanks
  3. gerlado

    Try to read mass of part in catproduct

    I believe that this script work :) Sub MasaProduct() Dim Language As String Language = "VBSCRIPT" Dim colDocum As Documents Dim DocActivo As Document Dim Status As String Dim myselection As Selection Dim InputObjectType(0) InputObjectType(0) = "AnyObject" Dim refBorde As Reference Set...
  4. gerlado

    Try to read mass of part in catproduct

    Hi friends, I try to read the mass of part in a catproduct, this is the script: Sub MasaProduct() Dim Language As String Language = "VBSCRIPT" Dim colDocum As Documents Dim DocActivo As Document Dim Status As String Dim myselection As Selection Dim InputObjectType(0) InputObjectType(0) =...
  5. gerlado

    Sort patterns

    Thank you Ferdo
  6. gerlado

    Sort patterns

    Friends I have it Sub numberofpattern() Dim oPartDocument As PartDocument Dim oPart As Part Dim oStatus As String Dim oCircularPattern As CircPattern Dim TheMeasurable As Measurable Dim TheSPAWorkbench As Workbench Dim InputObjectType(0) InputObjectType(0) = "AnyObject" Dim oSelection...
  7. gerlado

    Sort patterns

    then programming in vb I can not get to know the number of copies to make a pattern? I believe that this should be instancecount.value.... because in the example of help show this: *********************************************************************** ' Purpose: Changes pattern...
  8. gerlado

    Sort patterns

    Hi again I have a few days study caav5. I believe that I am near the solution, but don´t find it yet. My study: In circullar pattern, the solution should be: Properties--> catInstancesandAngularSpacing-->AngularRepartition.InstanceCount.Value In Rectangular Pattern, te solution shoul be...
  9. gerlado

    Sort patterns

    Good night I understand you message, I´m sorry if I am so heavy with this topic. I search item to copy in v5automation.chm, and I only find text about how write the word in my script. Also I search item to copy in Visual Basic program VB --> Edit --> Object browser and search pattern, where...
  10. gerlado

    How search item to copy?

    Hi Again Here it´s my code for read holes and thread, and show them in a worksheet of Excel Sub export() Dim partdocument1 As Document Set partdocument1 = CATIA.ActiveDocument Dim part1 As part Set part1 = partdocument1.part Dim bodies1 As Bodies Set bodies1 = part1.Bodies Dim body1 As...
  11. gerlado

    Sort patterns

    Hello again Apparently I feel bored with this topic, but I would like to finish my script correctly. I´m sorry Initially I have a Part, which have some Holes and some Thread, there are also some Rectangullar Pattern and Circular Pattern. My script can read Holes and Thread, give me your...
  12. gerlado

    Script to Help

    Anyone can you help me whit this topic? Thanks
  13. gerlado

    Script to Help

    I want to show my script This script can show holes and thread, he create a document excel and send it, the diameter and the metric The script is this: Sub exportar_num_agujeros() Dim partdocument1 As Document Set partdocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 =...
  14. gerlado

    Area Part

    Hello friends I have a problem with a script. I'm working on compute the area of a Part. I thought that this parameter could be exported directly to the Measurable command like this Script. This Script Show the Area of a Part, but all Area. Sub CATMain() Set objPart =...
  15. gerlado

    Select item and get dimension

    Hi Again Ferdo Thank you for the advice, i read the portable script center I found a script that can aply material, it´s this: Public Sub ApplyMaterial(calitateMat As String, oDoc As PartDocument, matName As String) On Error GoTo err_treat Dim matCatalogPath As String...
  16. gerlado

    Select item and get dimension

    Hello Ferdo. Thank you very much for all the help provided in this forum Admittedly, I'm using the google translator helps Hope it's not a problem, only pretend to communicate of the best way. I am a young engineer who is studying the world of macros in catia to work on my final-year. Your...
  17. gerlado

    Select item and get dimension

    Many thanks Ferdo, the attachment is incredible Works great in V5R20. If I want I can hire you calculate an area, calculating the edges of longitude and altitude. Thank you so much
  18. gerlado

    Select item and get dimension

    for example, this code get the minimun length of two lines: (Tested in Catia V5 R20) Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = productDocument1.Selection selection1.Clear Dim...
  19. gerlado

    Select item and get dimension

    Hi friends. I've spent the last week, turning an idea, but more I try I can not get this macro. My idea is to obtain the value of longitude as both a line of a circle. It selecetelement2 I should apply, make a loop to read my part, select the item myself and I return in a msgbox the value of...
  20. gerlado

    Macro Catia drawing layout get dimensions and geometrical tolerance

    Hi firends I have a question. How apply this macro to view in 3d, in a part view? For found the value of a line for example Because i try to run this macro but doesn´t work I work with V5R20, but i don´t think that this are the problem Thank you very much

Part and Inventory Search

Back
Top