Hello, could anyone help me out here?

Our existing P&I-D pipe flag must be replaced with a new pipe flag obj. I want to bulk update all our existing flags with this new base obj. It looks like the pipe flag is hidden under the pipe SEG. Pipe flag obj is not visible in the navigator. Should the replacement be done manually, or is there a smart way it can be done e.g. with a script?

Regards

Jasper

@Moderator, please help me delete this (intermediate) post.

Hej Jasper

The script shown below should do the trick (on cDB).

Steps to be performed:

1. Create a document query to list P&ID reports
2. Add action script with content shown below; adjust CDevice paths FLAG_xxx acc. to your own setup
3. Select relevant P&IDs and execute the script

Cheers

ThomasR

Sub Action(Query, QueryBrowser)

' Script to bulk change baseobject of pipeflag in P&I-D

  FLAG_OLD1 = "@03|BAS|KKS|@U|6|01|01|01|120"

  FLAG_NEW1 = "@Local|@01|PID|99|01|120"

  FLAG_OLD2 = "@03|BAS|KKS|@U|6|01|01|01|110"

  FLAG_NEW2 = "@Local|@01|PID|99|01|110"

  Set gc = CreateObject("ComosRoUtilities.GlobalCastings")

  Set SelObjs = QueryBrowser.SelectedObjects

  For j = 1 To SelObjs.Count

    Set doc = SelObjs.Item(j)

    doc.Report.Open

    Set rpt = doc.Report.ReportDocument

    For i=0 To rpt.ItemCount-1

      Set rItem = rpt.Item(i)

      Set roDevice = gc.GC_GetIRODevice(rItem)

      If Not roDevice Is Nothing Then

        cdev = roDevice.CDeviceFullName

        If cdev = FLAG_OLD1 Then

          roDevice.CDeviceFullName = FLAG_NEW1

        End If

        If cdev = FLAG_OLD2 Then

          roDevice.CDeviceFullName = FLAG_NEW2

        End If

      End If

    Next 'i

 

  doc.Report.Save

  doc.Report.Close

  Next 'j

  Msgbox "Finito"

End Sub

Hi ThomasRaahauge

Never knew that changing  a String can change the CDevice.

Nice!

Shami Gupta

Mange tak Thomas. Perfect solution as always. Smart to use @Local for project specific flags.

Regards Jasper