layouts 폴더에 ExportLayout 저장하기

;; Layout 도면을 model로 추출할 때 _Layout1.dwg로 동일한 폴더에 저장되는데,
;; 상위폴더에 ..\\layouts\\ 폴더가 없으면 mkdir 한 후 그 폴더에 추출한다.

(defun c:exx ( / pth dname subf sufx)
(setq subf "layouts")
(setq sufx "_Layout1.dwg")
(setq pth (strcat (getvar "DWGPREFIX") subf "\\"))
(setq dname (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)))
(if (null (vl-file-directory-p pth)) 
(vl-mkdir pth) ) ;create folder
(command "._exportlayout" (strcat pth dname sufx) )
(princ)
)