Want to create a layer using Visual Lisp?
;;;CODING STARTS HERE
;;;Returns a layer object or nil
;;;on creation failure
(defun mLayer (LayerName)
(vl-load-com)
(setq LayerName
(vl-catch-all-apply
'vla-add
(list
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)
)
)
Layername
)
)
)
(if (vl-catch-all-error-p LayerName)
nil
LayerName
)
)
;;;CODING ENDS HERE
Bobby C. Jones
http://www.acadx.com
|