반응형 전체 글309 Schedule Rows Height - 일람표 줄간격: 6mm 기준- Schedule Properties Apperance Body text: 돋움 3.158mm- 3.175mm = 0.125in = 1/8in- 6 : 3.158 = 1.899999... : 1개인적으로 테스트 결과 돋움 3.158mm 가 줄간격 6mm에 가장 적당했음.~~전체 Apperance Body text: 돋움 3.158mm, 각각 Body text font Size는 2.5mm 적용. 2026. 10. 20. 각각의 서브 폴더에 있는 파일을 현재 폴더로 이동시키기 🔎 도스 각각의 서브 폴더에 있는 파일을 현재 폴더로 가져오기: 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 mngnum="000"set /p mngnum="Enter the Number of Manage: "set fold="CUB_AR_%mngnum%_%today%_선출도_%hhmm%@md %fold%"echo:@echo Successfully %fold% folder was cretated.timeout 1result) "CUB_AR_444_261013_선출도_1541" 폴더 생성2. 도스.. 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. 이전 1 2 3 4 ··· 52 다음 반응형