Need to add or modify line weights for process lines.

[dave]

1) open your PID-SUP.LSP.
2) Search for setq lay.
3) Change the "major" pline thickness in the PID-SUP.LSP file from 0.03 to what is deemed necessary.

The following is an example of the section of code where the thickness is held. Please change the thickness

;; The following table (list) sets the layers their color linetype and in the
;; case of polylines the line thickness
(setq lay (list
;; Layer Name Color LineType Entity Thickness
(list "mc-att" 7 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;0 Atribute info
(list "border" 7 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;1 Paper border outline
(list "equip" 3 (At_GetLineType "CONTINUOUS") "_.PLINE" 0.04) ;2 Equipment
(list "temp" 2 (At_GetLineType "CONTINUOUS") "_.PLINE" 0.03) ;3 Working layer
(list "pid" 4 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;4 Process & Instrument Dwg
(list "inst" 4 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;5 Instrumentation outline
(list "ctw" 5 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;6 CTW layer
(list "stm" 5 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;7 Steam layer
(list "new" 5 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;8 New layer
(list "ieng" 4 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;9 Instrumentation details
(list "major" 2 (At_GetLineType "CONTINUOUS") "_.PLINE" 0.03) ;10 Major process lines
(list "minor" 4 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;11 Minor process lines
(list "major-ex" 3 (At_GetLineType "PHANTOM" ) "_.PLINE" 0.03) ;12 Existing major lines

[Aplant Monkey]

I am not a big fan of adding line weights to Process lines or any other line for that matter. What I recommend is setting ALL line weights to 0. Then customize your set up so that lines are placed on appropriate layers with defined colors. Use a custom .ctb file and set your .ctb file to print those layer colors to whatever thickness you want. You will find this clears up your drawing and should work much better.

[dave]

yessir, that's what we do too. I mainly posted that so someone would know where to look to clear the line weight so they could do exactly what you said. :)

[Colby]

Guys,

You have to remember the clients cad spec if applicable. If your client requires all PID's to be drafted to certain Specification than you modify the Lisp routine to match.

-Colby- 8)

[HybridAWD]

For some reason I can't get my line weights to change. Is there something I may need to do with my AP Custom directory? Here is what currently lies in my PID-SUP.LSP

;; The following table (list) sets the layers their color linetype and in the
;; case of polylines the line thickness
(setq lay (list
;; Layer Name Color LineType Entity Thickness
(list "mc-att" 7 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;0 Atribute info
(list "border" 7 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;1 Paper border outline
(list "equip" 3 (At_GetLineType "CONTINUOUS") "_.PLINE" 0.04) ;2 Equipment
(list "temp" 2 (At_GetLineType "CONTINUOUS") "_.PLINE" 0.03) ;3 Working layer
(list "pid" 4 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;4 Process & Instrument Dwg
(list "inst" 4 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;5 Instrumentation outline
(list "ctw" 5 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;6 CTW layer
(list "stm" 5 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;7 Steam layer
(list "new" 5 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;8 New layer
(list "ieng" 4 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;9 Instrumentation details
(list "major" 2 (At_GetLineType "CONTINUOUS") "_.PLINE" 0.00) ;10 Major process lines
(list "minor" 4 (At_GetLineType "CONTINUOUS") "_.LINE" 0.00 ) ;11 Minor process lines
(list "major-ex" 3 (At_GetLineType "PHANTOM" ) "_.PLINE" 0.00) ;12 Existing major lines
(list "minor-ex" 4 (At_GetLineType "PHANTOM" ) "_.LINE" 0.00) ;13 Existing minor lines
(list "major-nw" 6 (At_GetLineType "HIDDEN" ) "_.PLINE" 0.00) ;14 New major lines
(list "minor-nw" 4 (At_GetLineType "HIDDEN" ) "_.LINE" 0.00 ) ;15 New minor lines
(list "tables" 7 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;16 Pipe, valve, etc lists
(list "tracing" 7 (At_GetLineType "HIDDEN" ) "_.LINE" nil ) ;17 Pipe, valve, etc lists

(list "inst-l1" 4 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;18 Instr line, priority 1
(list "inst-l2" 1 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;19 Instr line, priority 2
(list "inst-l3" 4 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;20 Instr line, priority 3

(list "_error" 1 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;21 Error symbol layer
(list "_at_data" 1 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;22 Terminating Blocks
(list "_at_mline" 7 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;23 Multiline control line

(list "din1" 1 (At_GetLineType "CONTINUOUS") "_.PLINE" 0.08) ;24 Thick Din
(list "din2" 3 (At_GetLineType "CONTINUOUS") "_.PLINE" 0.04) ;25 Normal Thickness Din
(list "din3" 3 (At_GetLineType "CONTINUOUS") "_.PLINE" 0.02) ;26 Thin Din
(list "din4" 6 (At_GetLineType "CONTINUOUS") "_.LINE" nil ) ;27 Other Din

[HybridAWD]

If I draw a new major line, there is thickness on it. If I go through properties, it shows 0". If I do PEDIT, polyline, width, 0.... then it shows no thickness.

[dave]

It could be the drawing is hanging onto the old layer. Also, double check your custom dir path in PID and make sure everything is there in your custom directory file.

Try erasing everything and do a "purge > purge all" Make sure when you do that, you are on the 0 layer. :?:

[HybridAWD]

I wish I could just simply erase this entire network and restart lol :roll:

There are 3 different LISP files on it, I finally found the one it refers to. thanks for the help Dave