반응형 (vl-mkdir1 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.. 2024. 8. 13. 이전 1 다음 반응형