Quantcast
Channel: OpenPlant | AutoPLANT Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4153

RE: SORT_CODE FOR REPAD

$
0
0

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


Viewing all articles
Browse latest Browse all 4153

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>