반응형 Layout4 Fix Dimstyles After Revit exporting to Cad ;; 캐드 치수 한꺼번에 바꾸기 문자 초록, 천단위 콤마, 계단치수높이 2.4, 소수점 1자리표시, 주심도 치수높이 2.2;; 각자 스타일 보존(defun KM:setINI ( / ) (progn (setq _dimFont "돋움_1") ;; 치수 폰트 지정 (setq _cadDimstyle "SK_돋움_3") ; 치수스타일 지정 (setq _scale 1.0) ) ;progn ;;; set dimscle from sheet's scale (setq sheetblkname (ssname (ssget "_X" (list (cons 0 "INSERT") (cons 2 "Sheet_A1_R*"))) 0)) (setq _scale (cdr (assoc 41 (entget sheetblkname)))) (pr.. 2024. 8. 1. Fix Scale Exported DWG from rvt ;; 드디어 완료함. ^___^ 20240627.;; 레빗에서 추출한 DWG의 시트는 배치탭, 작도는 모형탭에 보임.;; 배치탭을 모형탭으로 추출하면 1:1로 작아지는데;; 1:100 도면을 100배 확대하면 길이는 정상이지만 치수가 모조리 문제.;; 이걸 해결하기 위해서 그동안 개발했는데, 문제는 한가지 치수스타일로만;; 조정된다는 거임.;; 이제 모든 치수유형에 초록색 문자와 숫자 크기를 3mm로 적용할 수 있음.;; 시트 선택 없이 알아서 원점배치, 스케일 찾아서 확대 함. 오토스크립트 적용 가능.;; 시트블록이름을 변수에 지정 (setq SheetBlockName "Sheet_Y1*") on 20260130;; 스케일 값이 "MTEXT" 인 경우, 파싱해서 스케일 값만 추출 on 20260130(.. 2024. 6. 27. Export Layout 문제 해법: 1:1 LAYOUT 도면>스케일 자동 조정>치수 스타일 수정 ;; init. (progn (setq _dimFont "돋움") ;; 치수 폰트 지정 (setq _cadDimstyle "DIMSTYLE_NAME") ; 치수스타일 지정 (setq _scale 1.0) (princ) ) ; (defun KM:getscl ( / pt1 sclobj);; find scale factor (command "zoom" "e") ;; (setq pt1 '(757.0 36.5)) ;;coordination(SAMOO titleblock) of the string "A1: 1 : 400" of scale of the drawing (setq pt1 '(770.0 64.0)) ;;coordination(SK titleblock) of the string "A1: 1 : 4.. 2024. 5. 8. Automatic ExportLayout 오토스크립트 사용하기레빗 시트를 익스포트한 여러장의 캐드 파일(레이아웃 1:1)을 모형 1:1 파일로 변환.0 준비물) 다음 4가지.AutoScript for AutoCAD(Freeware) https://kmlab.tistory.com/118Exportlayout.scr(command "exportlayout" "")Sfd.lsp https://kmlab.tistory.com/116Sfd.scrsfd1 단계) ExportLayout 자동 실행하기. (레이아웃1:1 -> 시트1:1)AutoScript 실행변환할 캐드파일(레이아웃 1:1) 등록Exportlayout.scr 등록RUN????-Layout1.dwg (시트1:1) 만들어짐.2 단계) SFD 자동 실행하기. (시트1:1 -> 모형 1:1)Auto.. 2023. 5. 9. 이전 1 다음 반응형