Routine Crashes

[Traci Dennis]

This routine crashes if the layer "electplan" already exists. How do I ad an if or cond statement.

 

The routine will take a line and convert it to a pline.

 

(defun c:EPL2 (/ taa taa1 taa2 ds)

(SETQ DS (GETVAR "DIMSCALE"))

(setvar "cmdecho" 0)

(setq oldlayer (getvar "clayer"))

(setq taa (getvar "dimscale"))

(setq taa1 (* 0.035 taa))

(command "-layer" "m" "E-POWR-COND" "c" "54" "" "")

;;;;;;;;;crashed if linetype already exists;;;;;;;;;;;;;;;;;;;;;;;

(command "-linetype" "l" "electplan" "P:/CAD dept/AutoCAD Support Files/Special Ltype/TristarCustom.lin" "")

;;;;;;;;;crashed if linetype already exists;;;;;;;;;;;;;;;;;;;;;;;

(prompt "Select entities for pline")

(SETQ SEL (SSGET))

(setq PR (ssget "p"))

(COMMAND "PEDIT" PR "Y" "W" TAA1 "J" SEL "" "lt" "on" "")

(setq PR2 (ssget "L"))

(COMMAND "CHANGE" PR2 "" "P" "LA" "E-POWR-COND" "C" "2" "LT" "ELECTplan" "")

(setvar "clayer" oldlayer)

(setvar "cmdecho" 1)

(princ))

[Lee Mac]

Welcome to the forum Traci

 

You can use the tblsearch function to test either the Layer or Linetype Tables in the drawing, e.g.:

 

(if (tblsearch "LAYER" "Your Layer")
   (princ "\nLayer already exists.")
   (princ "\nLayer doesn't exist.")
)

(if (tblsearch "LTYPE" "Your Linetype")
   (princ "\nLinetype already exists.")
   (princ "\nLinetype doesn't exist.")
)

PS: Formatting code in your posts.

[Traci Dennis]

Thanks, If the ltype exists I want the routine to ignore the load linetype line. How do I do that?

 

 

Welcome to the forum Traci

 

You can use the tblsearch function to test either the Layer or Linetype Tables in the drawing, e.g.:

 

(if (tblsearch "LAYER" "Your Layer")
   (princ "\nLayer already exists.")
   (princ "\nLayer doesn't exist.")
)

(if (tblsearch "LTYPE" "Your Linetype")
   (princ "\nLinetype already exists.")
   (princ "\nLinetype doesn't exist.")
)

PS: Formatting code in your posts.

[Lee Mac]

Use the not function to negate the test expression, i.e.:

 

(if (not (tblsearch "LTYPE" "Your Linetype"))
    ... do something ...
)

[SLW210]

Traci Dennis,

 

Please edit your original post to include code tags for the code.

[Traci Dennis]

The if not statement worked. Thanks

 

 

This routine crashes if the layer "electplan" already exists. How do I ad an if or cond statement.

 

The routine will take a line and convert it to a pline.

 

(defun c:EPL2 (/ taa taa1 taa2 ds)

(SETQ DS (GETVAR "DIMSCALE"))

(setvar "cmdecho" 0)

(setq oldlayer (getvar "clayer"))

(setq taa (getvar "dimscale"))

(setq taa1 (* 0.035 taa))

(command "-layer" "m" "E-POWR-COND" "c" "54" "" "")

;;;;;;;;;crashed if linetype already exists;;;;;;;;;;;;;;;;;;;;;;;

(command "-linetype" "l" "electplan" "P:/CAD dept/AutoCAD Support Files/Special Ltype/TristarCustom.lin" "")

;;;;;;;;;crashed if linetype already exists;;;;;;;;;;;;;;;;;;;;;;;

(prompt "Select entities for pline")

(SETQ SEL (SSGET))

(setq PR (ssget "p"))

(COMMAND "PEDIT" PR "Y" "W" TAA1 "J" SEL "" "lt" "on" "")

(setq PR2 (ssget "L"))

(COMMAND "CHANGE" PR2 "" "P" "LA" "E-POWR-COND" "C" "2" "LT" "ELECTplan" "")

(setvar "clayer" oldlayer)

(setvar "cmdecho" 1)

(princ))