How to create a new layout without using active x?

[boesiii]

Can it be done? I don't want to use active x only because I don't know a lot about it, yet.

[rkmcswain]

(command "._LAYOUT" "_N" "NewLayoutName")

[kpblc2000]

<post erased>

[rkmcswain]

Creating new layer through DXF codes


Check the subject of the post.... ;)

[kpblc2000]

<post erased>

[rkmcswain]

The author asked about an opportunity of creation of a new layer without use of activex-functions.

Check the subject of the post again. I don't see the word LAYER at all. ;)

[kpblc2000]

I'm too stupid today. Could you erase my posts?

[peter]

(defun GetOrCreateLayout (strLayoutName / objLayouts objLayout)
(setq objLayouts (vla-get-layouts
(vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(if (/= (type (setq objLayout (vl-catch-all-apply 'vla-item (list objLayouts strLayoutName))))
'vla-object
)
(setq objLayout (vl-catch-all-apply 'vla-add (list objLayouts strLayoutName)))
)
objLayout
)