Searching for a lisp to create a new layer coded by LEE

[asos2000]

Lee created a lisp to create layers. I saw it but didn't remember where is it.

 

;; LAYER NAME LINE TYPE LAYER COLOR ..................... ;;

 

Can some one help me to find this lisp?

[nod684]

Lee created a lisp to create layers. I saw it but didn't remember where is it.

;; LAYER NAME LINE TYPE LAYER COLOR ..................... ;;

Can some one help me to find this lisp?

 

no idea bout Lee's code but here's what i use :

(defun C:MNL (/ cmd1 Lname col lyt)
(setq cmd1 (getvar 'cmdecho))
(setvar 'cmdecho 0)
  (setq LNAME (getstring T "\nEnter New Layer Name?"))
  (setq col (getstring "\nEnter New Layer Color <7>...  "))
  (setq lyt (getstring "\nEnter New Layer Linetype <CONTINUOUS>...  "))
        (if (= col "")
           (command "layer" "m" LNAME "c" col "lt" lyt "" "")
           (command "layer" "m" LNAME "c" col "" "lt" lyt "" "")
        )
  (princ)
(setvar 'cmdecho cmd1)
)

[MSasu]

For the ENTMAKE alternative please check post #9 from this previous thread.

[Dadgad]

http://www.lee-mac.com/programs.html#general

Thanks Lee!

[Lee Mac]

http://www.cadtutor.net/forum/showthread.php?65302-Create-layers-with-LISP&p=447101&viewfull=1#post447101

http://www.cadtutor.net/forum/showthread.php?37583-Layer-Lisp&p=355060&viewfull=1#post355060

http://www.cadtutor.net/forum/showthread.php?56223-Lisp-Make-Layers.-Lineweight-0.0-instead-of-quot-Default-quot&p=386320&viewfull=1#post386320

[asos2000]

LEE 10/10 specially first link

[Lee Mac]

LEE 10/10 specially first link

 

Thanks, glad it helps