Help in VB NX7.5 for pattern more than 500 emboss

[PSI-CAD]

Hi

have a look at pattern.prt

I want to duplicate emboss(7).
I use CTRL-C then CTRL-V
with link to original and reuse original
then I select arc(4)
OK

CTRL-V
then I select arc(5)
OK

.....

until arc(504)

It works but It's time consumming !!!!!

So I created the journal file to past the previously copied emboss(7) on arc(4).


I was able to edit the journal file pattern.vb to change arc(4) to arc(5) for example and it works

Does anybody can help to create a sample loop in my journal file to duplicate the emboss(7) from arc(3) to arc(506) ?

Thanks in advance


Regards
Didier Psaltopoulos

http://www.psi-cad.com