Create layers with LISP

[Lee Mac]

thanks lee mac i got it i created a new template with my linetypes loaded

 

No problem

Though, if you are using a template you may as well have the layers already created in the template

[darkorange]

true i did that too!i was not remember that too.keep good work thx

[Lee Mac]

Thanks!

[marko_ribar]

no they aren't!its a new drawing only load Bylayer,Byblock and continuous....

isn't possible to load then automatic?i will try to search for that!

 

(defun c:loadltypes ( / fn f rl ltname ltypes )
 (setq fn (open (setq f (findfile "acadiso.lin")) "r"))
 (while (setq rl (read-line fn))
   (if (eq "*" (substr rl 1 1)) (setq ltname (substr rl 1 (vl-string-position (ascii ",") rl))))
   (if ltname
     (progn
       (setq ltname (vl-string-left-trim "*" ltname))
       (setq ltypes (cons ltname ltypes))
     )
   )
 )
 (foreach ln ltypes
   (command "_.linetype" "l" f "" "s" ln "")
 )
 (command "_.linetype" "s" "ByLayer" "")
 (princ)
)

[darkorange]

thx marko_ribar i solved the problem with a new template!

[Richard Lim]

On 12/20/2011 at 3:31 AM, pBe said:

 

(defun c:UA ()
 (entmake
   (list
     (cons 0 "LAYER")
     (cons 100 "AcDbSymbolTableRecord")
     (cons 100 "AcDbLayerTableRecord")
     '(2 . "001_Urban_Areas")
     '(70 . 0)
     '(62 . 25)
     '(6 . "Continuous")
     )
   )
 (princ)
 )

 

 

 

 

 

(defun c:UA ()
 (command "_.Layer" "_Make" "001_Urban_Areas" "_Color" "25" "" "LType" "Continuous" "" "")
 (princ)
 )

Hi,

im new here, can someone help me on this routine, it works by it says unknown command. basicly i got this from someone and i just added for layer description.

Richard

 

(DEFUN C:ANNO (/ CME LYR RGM)     
    (SETQ CME (GETVAR "CMDECHO"))   
    (SETQ LYR (GETVAR "CLAYER"))
    (SETQ RGM (GETVAR "REGENMODE"))   
    (SETVAR "CMDECHO" 0)
    (SETVAR "REGENMODE" 0)   
;;;; ANNOTATION********************************************************************************************************************
    (COMMAND "LAYER" "MAKE" "A-ANNO-DIMS" "COLOR" "1" "" "L" "CONTINUOUS" "" "LW" "0.13" "" "D" "ANNOTATION: DIMENSIONS" "A-ANNO-DIMS" "" "")
    (COMMAND "LAYER" "MAKE" "A-ANNO-REFR" "COLOR" "2" "" "L" "CONTINUOUS" "" "LW" "0.25" "" "D" "ANNOTATION: REFERENCE TAGS" "A-ANNO-REFR" "" "")
    (COMMAND "LAYER" "MAKE" "A-ANNO-NOTE" "COLOR" "2" "" "L" "CONTINUOUS" "" "LW" "0.25" "" "D" "ANNOTATION: NOTES" "A-ANNO-NOTE" "" "")
    (COMMAND "LAYER" "MAKE" "A-ANNO-ARRW" "COLOR" "1" "" "L" "CONTINUOUS" "" "LW" "0.13" "" "D" "ANNOTATION: ARROWS" "A-ANNO-ARRW" "" "")
;;;;;

(SETVAR "CMDECHO" CME)   
(SETVAR "CLAYER" LYR)
(SETVAR "REGENMODE" RGM)   
(PRINC))     
(PRINC "\nCOMMAND: ANNO")

 

 

[BIGAL]

I tried removing the last double quote quote seemed to work then the extra was calling the layer command again.

 

You can keep going with the layer command so it could all be one command line.

 

A neater way is to use a list so can have as many layers as you like ("A-ANNO-DIMS" "1" "CONTINUOUS" "0.13" "ANNOTATION: DIMENSIONS"...........) Then just make each layer in the list.

[MAzri]

On 29/12/2011 at 08:23, Lee Mac said:

An Introduction to...

 

Creating Layers Using Entmake

 

Reference for Layer DXF Group Codes

 

 

Happy coding,

 

Lee

 

After 12 years, still helping a lot of beginner out there. Many thanks LM!