How to Show insulation for Strainer and Steam Traps

Background

Some project may have requirement to show Steam Traps and Strainer insulation in Model / Drawing.

Following illustrative steps helps to achieve desired result.

Steps to Accomplish:

Following steps for getting insulation for steam traps.

1. Go to following location modify wtrap.ebs  file.
   C:\Program Files (x86)\Bentley\Plant V8i\Modules\Base\piping\draw
   
   
2. Search for Sub lateral_draw3D
3. Add following lines.
   
    Dim insThick          As Double
    Dim layer                As String
    Dim showInsVar    As String
   
                      
4. Add following line. 
   
   layer = at_Component_getInsulationLayer(compID)
   
       '//  Is insulation display on?
      layer = at_Component_getInsulationLayer(compID)
      status = at_Preference_getString (showInsVar, "Comp_Show_Ins")
      If (Cint(showInsVar) <> 0) Then
        status = at_Component_getReal (insThick, compID, "insThick")
      Els
         insThick = 0.0
      End If 
   
   
       
    
5. Add following lines.
    
   If (insThick > 0.001) Then 
   
   CADObj = at_CADCylinder_create (port1OD/2 +insThick, portPos(0), portPos(1), cFlag)
   status = at_Insulation_setCADPropertiesForObject(compID, Layer, CADObj) 
    
   CADObj = at_CADCylinder_create (port1OD/2 +insThick, CP, portPos(2), cFlag)
   status = at_Insulation_setCADPropertiesForObject(compID, Layer, CADObj) 
   
   End If  
   
      
6. Save the file. Open AutoPLANT Modeler try to place steam trap. 
7. Similar steps need to follow to show insulation for strainer add similar lines in 'wstrain.ebs' file.          

See Also

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!