이럴 때 사용하세요
규격표의 장평이 제각각일 때 0.8 같은 같은 비율로 맞춥니다. 실제 문자열 길이에 맞춘 너비 자동 계산과는 다릅니다.
지원 범위와 주의사항
- 일반 한 줄 문자(TEXT)만 지원하며 MTEXT·속성 문자는 제외합니다.
- 0보다 큰 폭 비율을 입력합니다. 문자 내용·높이·회전각은 유지합니다.
- 잠긴 레이어는 건너뛰며 전체 변경을 U 한 번으로 되돌릴 수 있습니다.
코드에서 살펴볼 부분
c:TWIDTH는 입력을 받고, autocats-twidth-로 시작하는 함수가 실제 처리를 맡습니다. 객체 선택 조건과 입력값 검사를 먼저 확인하면 다른 도면 작업에도 응용할 수 있습니다.
각 파일은 단독으로 로드할 수 있습니다. CATS Pro 설치가 필요하지 않으며, 같은 이름의 사용자 명령이 있다면 defun c: 이름을 바꿔 사용하세요.
HOW TO USE
리습 로드가 처음이라면사용 순서
- 1
autocats-text-width.lsp를 다운로드하고 APPLOAD로 로드합니다.
- 2
TWIDTH를 입력합니다.
- 3
명령행 안내에 따라 값을 입력하거나 기준 객체를 고릅니다.
- 4
대상 객체를 선택하고 Enter를 누른 뒤 결과를 확인합니다.
SOURCE
코드 전문
다운로드 파일은 아래 코드와 100% 동일합니다. 붙여넣기보다 파일 다운로드 후 APPLOAD 로드를 권장합니다.
;;; AutoCATS 리습 자료실
;; 명령: TWIDTH
;; 기능: TEXT 문자의 장평을 입력한 폭 비율로 일괄 변경합니다.
;; 출처: https://www.autocats.co.kr/lisp/text-width
;; 버전: 1.0 (2026-10-23)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: 잠긴 레이어·외부참조 보호, 변경은 UNDO 그룹, 명령별 범위는 상세 가이드 참고
(vl-load-com)
(defun autocats-twidth-safe-p (ent / data row block)
(setq data (entget ent)
row (tblsearch "LAYER" (cdr (assoc 8 data))))
(and data row (= 0 (logand 4 (cdr (assoc 70 row))))
(or (/= "INSERT" (cdr (assoc 0 data)))
(and (setq block (tblsearch "BLOCK" (cdr (assoc 2 data))))
(= 0 (logand 12 (cdr (assoc 70 block))))))))
(defun autocats-twidth-replace-pair (code value data)
(if (assoc code data) (subst (cons code value) (assoc code data) data)
(append data (list (cons code value)))))
(defun autocats-twidth-put (ent property value / data)
(if (autocats-twidth-safe-p ent)
(progn
(setq data (autocats-twidth-replace-pair 41 value (entget ent)))
(if (entmod data) (progn (entupd ent) T)))))
(defun autocats-twidth-batch (selection action / index changed skipped ent result)
(setq index 0 changed 0 skipped 0)
(if selection
(repeat (sslength selection)
(setq ent (ssname selection index)
result (if (autocats-twidth-safe-p ent) (vl-catch-all-apply action (list ent))))
(if (and result (not (vl-catch-all-error-p result)))
(setq changed (1+ changed))
(setq skipped (1+ skipped)))
(setq index (1+ index))))
(princ (strcat "\n[TWIDTH] 완료: " (itoa changed) " / 건너뜀: " (itoa skipped)))
(list changed skipped))
(defun autocats-twidth-apply (ent value)
(and (and (numberp value) (> value 0.0)) (member (cdr (assoc 0 (entget ent))) '("TEXT"))
(autocats-twidth-put ent 'ScaleFactor value)))
(defun c:TWIDTH (/ *error* undo-open value selection)
(defun *error* (msg)
(if undo-open (progn (command-s "_.UNDO" "_End") (setq undo-open nil)))
(if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
(princ (strcat "\n[TWIDTH] 중단: " msg)))
(princ))
(initget 7) (setq value (getreal "\n폭 비율 (예: 0.8): "))
(if value (progn
(princ "\n대상 객체를 선택하세요: ")
(setq selection (ssget '((0 . "TEXT"))))
(if selection
(progn
(command "_.UNDO" "_Begin")
(setq undo-open T)
(autocats-twidth-batch selection '(lambda (ent) (autocats-twidth-apply ent value)))
(command "_.UNDO" "_End")
(setq undo-open nil)))))
(princ))
(princ "\n[AutoCATS] TWIDTH 로드 완료")
(princ)
호환 CAD
AutoCAD 2021AutoCAD 2026
위 환경에서 확인했습니다. 목록에 없는 CAD는 샘플 도면에서 먼저 결과를 대조한 뒤, CAD 종류·버전과 함께 네이버 카페에 알려주세요.
WORKS WELL WITH
전체 명령 보기함께 쓰면 좋은 CATS 명령
자주 묻는 질문
CATS Pro와 기능이 완전히 같은가요?
CATS Pro의 PG_TXTWIDTHFACTOR는 V(값 입력) 모드로 같은 작업을 하고, 참조 문자 맞추기·배율 곱하기·선택 안 최대값 맞추기도 지원합니다. 아래 리습은 설명된 범위의 독립 예제입니다.
변경을 되돌릴 수 있나요?
도면을 변경하는 명령은 한 UNDO 그룹으로 묶습니다. 완료 후 U로 되돌릴 수 있습니다. 집계·조회 명령은 도면을 변경하지 않습니다. 작업 전 복사본에서 결과를 확인하세요.