반응형 전체 글308 각각의 서브 폴더에 있는 파일을 현재 폴더로 이동시키기 🔎 도스 각각의 서브 폴더에 있는 파일을 현재 폴더로 가져오기: Google 검색 www.google.comfor /R %%f in (*) do move "%%f" .move2up.bat 2026. 10. 14. dos 현재 폴더명 가져오기 1. 선출도 폴더 만드는 배치파일setlocalset yymmdd=%date:~2,2%%date:~5,2%%date:~8,2%set hhmm=%time:~0,2%%time:~3,2%set h=%hhmm:~0,1%if "%h%" EQU " " (set hhmm=0%hhmm:~1,3%)set today=%yymmdd%set mangnum="000"set /p mangnum="Enter the Number of Manage: "set fold="CUB_AR_%mangnum%_%today%_선출도_%hhmm%@md %fold%"echo:@echo Successfully %fold% folder was cretated.timeout 1 2. 도스에서 입력 받기set /p var="prompt: " 3. 현재폴더명.. 2026. 10. 13. 배경색상 레이어 만들기 1. 지정 색상 레이어 만들기(vl-load-com);; Core function to assign RGB to a specific layer(defun SetLayerColorRGB (layerName r g b / acadObj doc layers layerObj colorObj) (setq acadObj (vlax-get-acad-object) doc (vla-get-activedocument acadObj) layers (vla-get-layers doc) ) ;; Check if the layer exists (if (vl-catch-all-error-p (setq layerObj (vl-catch-all-apply 'vla-item (list layer.. 2026. 10. 12. OLE->RGB by LeeMAC (defun LM:OLE->RGB ( c ) (mapcar '(lambda ( x ) (lsh (lsh (fix c) x) -24)) '(24 16 8)))leemac, He is Genius!! 2026. 10. 12. 기존 dwg 열어서 문자 수정한 후 다른 이름으로 저장 🔎 acad lisp 기존 dwg 열어서 문자 수정한 후 다른 이름으로 저장하는 리습: Google 검색 www.google.com(vl-load-com)(defun c:CHG_SAVEAS ( / acadObj docsObj targetFile saveFile oldText newText dbxDoc) (setq acadObj (vlax-get-acad-object)) (setq docsObj (vla-get-documents acadObj)) ;; 1. 사용자 입력 받기 (setq targetFile (getfiled "원본 DWG 파일 선택" "" "dwg" 0)) (if (not targetFile) (exit)) (setq saveFile (getfiled "새로운 이름으로 저.. 2026. 9. 29. OPENING DWG to EDIT 1. Openinghttps://www.cadtutor.net/forum/topic/32134-open-drawing-using-lisp/(defun KM:OPEN ( / ) (vl-load-com) ; (setq path_stamp_dwg "C:\\TEMP\\STAMP\\") (setq pref_stamp "STAMP_REFERENCE_DWG_") (setq date_stamp (getstring T "Specify date: ")) (setq path_name_dwg (strcat path_stamp_dwg pref_stamp "(" date_stamp ").dwg")) ; (if (= 0 (getvar "SDI")) (vla-activate (vla-open (vla-get-doc.. 2026. 9. 16. 이전 1 2 3 4 ··· 52 다음 반응형