I have provided a VL option if you wanted to go down that route also:
Code:(defun c:test (/ ltname layname laycol cmdold lay) (vl-load-com) (setq ltname "center" layname "test" laycol 8 cmdold (getvar "CMDECHO")) (setvar "CMDECHO" 0) ;; Loading Linetype ~ Another option to consider: (if (not (tblsearch "LTYPE" ltname)) (vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) ltname "acad.lin")) ;; Layer Checking & Creation (if (not (tblsearch "LAYER" layname)) (command "_.-layer" "_M" layname "_L" ltname layname "_C" laycol layname "") (setvar "CLAYER" layname)) ;; Another Option for Layer Creation to Consider: (if (not (tblsearch "LAYER" layname)) (progn (setq lay (vla-add (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) layname)) (vla-put-color lay laycol) (vla-put-linetype lay ltname))) (setvar "CLAYER" layname) ;; Reset CMDECHO (setvar "CMDECHO" cmdold) (princ))
Bookmarks