Small bore weld in 6m

[COLOR=#333333]Please provide a macro to create Weld automatically in pipes when the [/COLOR][COLOR=#417394]Spool[/COLOR][COLOR=#333333] length Exceeds 6 metres[/COLOR]

!tubis = !!collectallfor('tubi','ltlength gt 6000',!!ce)
do !tubi values !tubis
$!tubi
new weld choo all conn pos pa dist 6000 from pl of prev
enddo

[COLOR=#333333]In PDMS 12.1.SP4 Pipework application main menu bar you have:
Pipe Fabrication-->Spooling & Checks-->[/COLOR][COLOR=#417394]Weld[/COLOR][COLOR=#333333] Handling...

[/COLOR]And in E3D:
https://www.youtube.com/watch?v=yaDEeKzxyLs

https://youtu.be/_yPe-2Ch3pU

I want to create this type weld .there may be atta and tee are in between.

@deva not working.

- - - Updated - - -

[QUOTE=deva;114350]!tubis = !!collectallfor('tubi','ltlength gt 6000',!!ce)
do !tubi values !tubis
$!tubi
new weld choo all conn pos pa dist 6000 from pl of prev
enddo

@deva,
while apply above code tube is automatic extend, and its not working properly.
kindly update

thanks