How to Change Weld Size Graphics in AutoPLANT Modeler


Applies To 
Product(s):AutoPLANT Modeler | AutoPLANT Piping
Version(s):08.11.XX.XXX
Environment: Windows 7/8.1/10 (64-bit)
Area: Customization - AutoPLANT Modeler
Subarea: 
Original Author:Dinesh Solanki, Bentley Product Advantage Group

Background

This article will explain how you can change the weld size as per your requirement. By default the weld size for metric project is 10.

Steps to Accomplish

Method 1: Modifying the Weld Size in the AutoPLANT Drawing
Note: The changes will be drawing specific only.

  1. In AutoPLANT Model type in the command line (at_pipingsystem_displayvariables).



  2. In the command line type (at_pipingsystem_setvariable "WELDSIZE" "40").
  3. Notice, now that the weld size has been changed.


Method 2: Modifying weld size setting to make it project specific

  1. Open Config.ini located at location: %Project_name\Config\Config.ini.
  2. Change the variable Weld_Size to the required value.

Method 3: After using Method 1 & 2 any new components placed will have new weld size.
Note - However, to change the old welds size below steps should be used.

  1. Download attached Weld.zip file and copy Weld.ebs file to %Project_name\Config\modules\base\Piping\Draw
  2. Reopen AutoPLANT drawing and Redraw components as below.

Method 4: Modifying Weld Size (.ebs ) file:

  1. Open from C drive: Program files (x86): Bentley: PlantV8i: Modules: Base: Piping: draw
  2. Choose file (WELD.ebs)
  3. Open with NotePad ++
  4. Add the following Code to the file (at line 250 make room to add in the following code) and save the file
       'status = at_Preference_getString (useWeld, "Use_Weld_Size") 
       'If ((status = AT_SUCCESS) And (strComp (useWeld, "1", 1) = 0)) Then
          status  =  at_Preference_getString (cWeldSize, "Weld_Size") 
          If ((status = AT_SUCCESS)) Then
             If (CDbl (Val(cWeldSize)) > 0.0) Then
                weldSize = CDbl (Val(cWeldSize))
                GoTo skipdef
             End If
          End If
       'End If
    
    'JRO/TSG 19 June 2015
    
      Weldsize=15
     '//  Weldsize=12
      Dim UNITAT As String
      Dim unita As Double
    
      status = at_Preference_getString(UNITAT, "UNITS_TYPE")
      unita = CDbl (Val(UNITAT))  
      If unita=1 Then
        weldsize=(weldsize/25.4)
      End If
     
    'END JRO 19 June 2015
    
  5. Change the weld size accordingly ( where the code says 24 / change to desired size )
  6. Open Project from Bentley Document Manager
  7. begin to draw pipe
  8. if there is pipe existing that needs redraw
  9. From the Piping Tab: Piping Tools: Representation: Redraw


Comments or Corrections?

Bentley's Product Advantage Group requests that you please confine any comments you have on this Wiki entry to this Comments or Corrections?" section. THANK YOU!