Ok Ken, Please find below script which needs to be modified.. The name of the ebs file is repadout.ebs located in C:\Program Files (x86)\Bentley\Plant V8i\Modules\Base\xchg\pcf '///////////////////////////////////////////////////////////////////////////////////////// Sub PCF_OUT_REPAD () Dim status As Integer Dim compID As At_ComponentID Dim connCompID1 As At_ComponentID Dim connCompID2 As At_ComponentID Dim portName1 As String Dim portName2 As String Dim isPipe1 As Integer Dim isPipe2 As Integer Dim origin As At_Point Dim size As Double status = at_PCF_outputComp () If (status) Then 'DS 4 JULY 2014 control Sortcode status = at_Component_getCurrID(compID) Dim scodo As String Dim scodoc As Double status = at_Component_getString (scodo, compID, "SORT_CODE") scodoc =val(scodo) If scodoc=103 Then GoTo skipa End If Then Regards Dinesh
↧