How do I customize insulation insertion and attributes


1. Open the pid-sup.lsp file located in the C:\Documents and Settings\All Users\Application Data\Bentley\Plant V8i\P&ID\ folder location.

2. Search for the Drawining Initialization section.

3. Add the following code and variables above this section.

4. Toggle on and off any variable needed to customize insertion of insulation text, color, size, etc.

 

 

;;User Insulation Text Layer              (setq UserInsulationTextLayer "InsulText")

 

   ;;;-------------------------------------------------------------------------------------

   ;;; Variables for insulation

   (if UserPipeInsulation

       (setq PipeField UserPipeInsulation)

       (setq PipeField "PINS")

   )

   (if (not DefPipeInsulation)

       (setq DefPipeInsulation (strcat "(STRCAT " PipeField ")"))

   )

 

   (if UserEqpInsulation

       (setq EqpField UserEqpInsulation)

       (setq EqpField "EINS")

   )

   (if (not DefEqpInsulation)

       (setq DefEqpInsulation (strcat "(STRCAT " EqpField ")"))

   )

 

   (setq TraceDefault "PTRC")

   (if (or (not UserTraceType) (= UserTraceType ""))

       (setq UserTraceType TraceDefault)

   )

 

   ;;Equip Insulation Field                  (setq UserEqpInsulation "EINS")

   ;;Insulation Field                        (setq UserPipeInsulation "PINS")

   ;;Trace Field                             (setq UserTraceType "PFLOW")

   ;;Update Trace field in pipe run          (setq TraceOnPipeRun t)

   ;;Prompt for Insulation                   (setq PromptForInsulation t)

   ;;Place on txt layer                      (setq PlaceInsulOntextLayer t)

   ;;To adjust the size                      (setq UserInsulSize 0.50)

   ;;To adjust the placement distance        (setq UserInsulDist 0.135)

   ;;Prompt for Trace                        (setq PromptForTrace t)

   ;;Place Trace Text                        (setq PlaceTraceText t)

   ;;User Insulation Block Layer             (setq UserInsulationBlockLayer "Insul")

   ;;User Insulation Text Layer              (setq UserInsulationTextLayer "InsulText")

   ;;User Insulation Block movement distance (setq UserInsulationBlockDist 0.125)

   ;;User Insulation attribute layer         (setq UserInsulationAttLayer  "AttInsul")

 

   ;;;-------------------------------------------------------------------------------------