반응형 전체 글307 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. 파일명 일괄 수정하기 파일명을 규칙에 따라 일괄 변경하는 방법 - Windows PowerShell 이용특정 폴더 안에 이미지 파일을 정리해두었는데... 파일명을 일괄 바꾸어야 하는 상황이 몇 번 있었습니다. ...blog.naver.com파워쉘에서 dir | rename-item -newname {$_.name -replace "x.dwg", ".dwg"}gdsagsahgagewtrf524163467x.dwg --> gdsagsahgagewtrf524163467.dwg~~x.dwg 에서 ~~.dwg로 일괄 바꿈^^ 2026. 9. 11. 이전 1 2 3 4 ··· 52 다음 반응형