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
↧