이럴 때 사용하세요
여러 구멍이나 곡면의 반경·직경을 검토용 주석으로 빠르게 남깁니다.
지원 범위와 주의사항
- CIRCLE·ARC를 지원합니다. 라벨은 R=값 D=값 형태이며 소수 3자리로 출력합니다.
- 현재 문자 스타일과 레이어를 사용합니다. WCS XY 방향의 문자이며 중심의 Z를 유지합니다.
- 일반 문자이므로 원·호를 수정해도 자동 갱신되지 않습니다. 연동 치수가 필요하면 DIMRADIUS를 사용하세요.
코드에서 살펴볼 부분
c:RADLABEL는 입력을 받고, autocats-radlabel-로 시작하는 함수가 실제 처리를 맡습니다. 객체 선택 조건과 입력값 검사를 먼저 확인하면 다른 도면 작업에도 응용할 수 있습니다.
각 파일은 단독으로 로드할 수 있습니다. CATS Pro 설치가 필요하지 않으며, 같은 이름의 사용자 명령이 있다면 defun c: 이름을 바꿔 사용하세요.
HOW TO USE
리습 로드가 처음이라면사용 순서
- 1
autocats-radius-label.lsp를 다운로드하고 APPLOAD로 로드합니다.
- 2
RADLABEL를 입력합니다.
- 3
명령행 안내에 따라 값을 입력하거나 기준 객체를 고릅니다.
- 4
대상 객체를 선택하고 Enter를 누른 뒤 결과를 확인합니다.
SOURCE
코드 전문
다운로드 파일은 아래 코드와 100% 동일합니다. 붙여넣기보다 파일 다운로드 후 APPLOAD 로드를 권장합니다.
;;; AutoCATS 리습 자료실
;; 명령: RADLABEL
;; 기능: 원·호의 반지름과 지름을 중심 옆에 일반 TEXT로 씁니다.
;; 출처: https://www.autocats.co.kr/lisp/radius-label
;; 버전: 1.0 (2026-10-23)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: 잠긴 레이어·외부참조 보호, 변경은 UNDO 그룹, 명령별 범위는 상세 가이드 참고
(vl-load-com)
(defun autocats-radlabel-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-radlabel-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-radlabel-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[RADLABEL] 완료: " (itoa changed) " / 건너뜀: " (itoa skipped)))
(list changed skipped))
(defun autocats-radlabel-draw (ent height / data center radius row)
(setq data (entget ent) row (tblsearch "LAYER" (getvar "CLAYER")))
(if (and (member (cdr (assoc 0 data)) '("CIRCLE" "ARC")) (> height 0.0)
row (> (cdr (assoc 62 row)) 0) (= 0 (logand 5 (cdr (assoc 70 row)))))
(progn
(setq center (trans (cdr (assoc 10 data)) ent 0) radius (cdr (assoc 40 data)))
(entmakex (list '(0 . "TEXT") (cons 8 (getvar "CLAYER"))
(cons 10 (mapcar '+ center (list height height 0.0))) (cons 40 height)
(cons 7 (getvar "TEXTSTYLE")) (cons 1 (strcat "R=" (rtos radius 2 3) " D=" (rtos (* 2.0 radius) 2 3))))))))
(defun c:RADLABEL (/ *error* undo-open height 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[RADLABEL] 중단: " msg)))
(princ))
(initget 7) (setq height (getdist "\n라벨 문자 높이: "))
(if height (progn
(princ "\n대상 객체를 선택하세요: ")
(setq selection (ssget '((0 . "CIRCLE,ARC"))))
(if selection
(progn
(command "_.UNDO" "_Begin")
(setq undo-open T)
(autocats-radlabel-batch selection '(lambda (ent) (autocats-radlabel-draw ent height)))
(command "_.UNDO" "_End")
(setq undo-open nil)))))
(princ))
(princ "\n[AutoCATS] RADLABEL 로드 완료")
(princ)
호환 CAD
AutoCAD 2021AutoCAD 2026
위 환경에서 확인했습니다. 목록에 없는 CAD는 샘플 도면에서 먼저 결과를 대조한 뒤, CAD 종류·버전과 함께 네이버 카페에 알려주세요.
WORKS WELL WITH
전체 명령 보기함께 쓰면 좋은 CATS 명령
자주 묻는 질문
CATS Pro와 기능이 완전히 같은가요?
CATS Pro의 PG_RADMARK 관련 작업을 명령 탐색기에서 확인할 수 있습니다. 아래 리습은 설명된 범위의 독립 예제입니다.
변경을 되돌릴 수 있나요?
도면을 변경하는 명령은 한 UNDO 그룹으로 묶습니다. 완료 후 U로 되돌릴 수 있습니다. 집계·조회 명령은 도면을 변경하지 않습니다. 작업 전 복사본에서 결과를 확인하세요.