Catia Product constrains numbering order...... 2

[CAD2015]

Hi,

When I add constrains into a Product, sometimes the numbering do not starts from 1 (please, see the attached picture).
How could I correct that?

CAD 2015

 

[ferdo]

Hi,

No attached picture. Anyway, that means you already put some constrains and deleted before, CATIA is keeping the counter in memory, doesn't meter if you don't see them. You will need a macro to renumber them (I don't remember if v6 knows to renumber but I believe yes, it has this functionality without any macro)

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[CAD2015]

Thanks Ferdo.
I think that my company placed a filter.
Or my account has problem........
I did download a picture! I can't upload any image anymore!

CAD 2015

 

[CAD2015]

Ferdo,
How could I create the macro to renumber the constrains?
Can you direct the steps, please?

CAD 2015

 

[ferdo]

You can check in my CATIA Portable Script Center v2, there is a macro named Rename_Fix_First_Level.CATScript

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[tesak]

You can try something like this:

Sub Main()
    Dim doc, prod, constr, i

    Set doc = CATIA.ActiveDocument
    Set prod = doc.Product
    Set constr = prod.Connections("CATIAConstraints")
    
    For i = 1 To constr.Count
        constr.item(i).Name = "Fix." & i
    Next
End Sub

Tesak

http://scripts4all.eu/txtoncurve/

- Curved text for Catia V5

 

[CAD2015]

Thanks Tesak!

CAD 2015

 

[Belgiancadengineer]

If this is the most of your worries... he he

 

[CAD2015]

Tesak,

Your script didn't work........

CAD 2015

 

[tesak]

I have tested it and it is working, so something is wrong on your side. Share your code and we can check it.

Tesak

http://scripts4all.eu/txtoncurve/

- Curved text for Catia V5

 

[ferdo]

As I can notice in the title bar of the code section, is a catvba not a CATScript or catvbs, maybe this is the problem.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[CAD2015]

I am using the attached file.
Gentleman, let me know if it works on your side.

Thanks




CAD 2015

 

[ferdo]

Try Sub CATMain() not Sub Main()

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[tesak]

All scripts must contain CATMain function as a starting point. Rename Main into CATMain and it will work.

Tesak

http://scripts4all.eu/txtoncurve/

- Curved text for Catia V5

 

[CAD2015]

It works, but see the attached file.
It is curious, all constraints have been converted in "Fix" one....

I used this script:

Sub CATMain()
Dim doc, prod, constr, i

Set doc = CATIA.ActiveDocument
Set prod = doc.Product
Set constr = prod.Connections("CATIAConstraints")

For i = 1 To constr.Count
constr.item(i).Name = "Fix." & i
Next
End Sub

CAD 2015

 

[tesak]

I gave you this code just as an example how to get a contraints collection. Of course renaming algorithm has to be changed according your needs. You have to count number of contraints of a specific type and replace existing numbering with desired one.

Tesak

http://scripts4all.eu/txtoncurve/

- Curved text for Catia V5

 

[CAD2015]

OK, thanks!

CAD 2015