Hello Ken,
By default supports will not have SORT_CODE value. To input default value for supports as 103 please follow the steps below.
Open the CLASS.ini file from C:\Program Files (x86)\Bentley\Plant V8i\Modules\Base\..
Search for [BASE_SUPPORTS_CLASS] section now, add the SORT_CODE valve like below.
[BASE_SUPPORTS_CLASS]
PARENT_CLASS=BASE_COMPONENTS_CLASS
METHOD_KEY=BASE_SUPPORTS_METHOD
CLASS_DESCRIPTION=Parent Class - Base Supports
PORT_KEY=SupportPorts
ATTACH_TYPE=3
REBUILD_INSERT_BY=P0
COG_FLAG = DUMMY
IGNORE_NORTH_CORRECTION=1
PICTURE_FILE_NAME=supports.dll
SORT_CODE=103.0
This will automatically input SORT_CODE=103 or any new components placed.
To update the values of the old Supports you will need to add the fields to the [Setup] -> [Component Update Preferences…] and then use [Database Tools] -> [Update Components…]
Note changing the SORT_CODE value does not mean the supports will not be seen on the Iso.
To do this. Please follow the steps below:
1. Open SUPPOUT.ebs from C:\Program Files (x86)\Bentley\Plant V8i\Modules\Base\xchg\pxf using script editor
2. Search: "Sub at_PCFOut_primarySupport (compID As At_ComponentID, parentCompID As At_ComponentID)"
3. Please change like below:
Sub at_PCFOut_primarySupport (compID As At_ComponentID, parentCompID As At_ComponentID)
Dim status As Integer
Dim ConncompID As At_ComponentID
Dim attachPoint As At_Point
Dim errMsg As String
Dim igenType As String
Dim ODMainSize As Double
Dim Port As At_Point
Dim RP As At_Point
Dim bendRad As Double
Dim bendAng As Double
Dim refVecX As At_Vector
Dim refVecY As At_Vector
Dim locOrigin As At_Point
Dim location As Integer
Dim DirVec As At_Vector
Dim Pt1 As At_Point
Dim Pt2 As At_Point
Dim num_bend As Integer
Dim isElbowLug As Integer
Dim isSideElbow As Integer
Dim sideElbVec As At_Vector
Dim isPipeFlag As Integer
Dim BOPFlag As Integer
Dim shoeFlag As Integer
Dim BOPPoint As At_Point
Dim parentElbowID As At_ComponentID
Dim dummyPts(1) As At_Point
Dim dummyVec As At_Vector
Dim dist As Double
Dim shoePt As At_Point
'DS 3 JULY 2014 control Sortcode
Dim scodo As String
Dim scodoc As Double
status = at_Component_getString (scodo, compID, "SORT_CODE")
scodoc =val(scodo)
If scodoc>102 Then
GoTo skipa
End If
' END DS
3. Make sure to add the below statement at the end:
status = at_XchgWritelnData(" UNIQUE-COMPONENT-IDENTIFIER ","COMP_ID",AT_XCHG_STRING,"",32,0,"",AT_XCHG_OPTIONAL) status = at_XchgWritelnData(" TAG ","TAGNUMBER",AT_XCHG_STRING,"",32,0,"",AT_XCHG_OPTIONAL)
Call PCFOut_supportMessageText(compID)
skipa: 'DS 03/7/2014
Exit Sub
End Sub
I hope this helps.
Regards
Dinesh Solanki