같은 객체 유형 선택 리습 (SELTYPE)

;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: SELTYPE
;; 기능: 기준 객체와 같은 엔티티 유형을 현재 모델 또는 배치 공간에서 선택
;; 출처: https://www.autocats.co.kr/lisp/select-type
;; 버전: 1.0 (2026-07-23)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 포함, 객체 수정 없음
;;; ------------------------------------------------------------

(defun autocats-seltype-find (entity / data entity-type tab)
  (setq data (entget entity)
        entity-type (cdr (assoc 0 data))
        tab (getvar "CTAB"))
  (ssget "_X" (list (cons 0 entity-type) (cons 410 tab))))

(defun c:SELTYPE (/ *error* picked selection entity-type)
  (defun *error* (msg)
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[SELTYPE] 중단: " msg)))
    (princ))

  (setq picked (entsel "\n[SELTYPE] 기준 객체를 선택하세요: "))
  (if picked
    (progn
      (setq entity-type (cdr (assoc 0 (entget (car picked))))
            selection (autocats-seltype-find (car picked)))
      (if selection
        (progn
          (sssetfirst nil selection)
          (princ (strcat "\n[SELTYPE] " entity-type " "
                         (itoa (sslength selection)) "개를 선택했습니다.")))
        (princ "\n[SELTYPE] 같은 유형의 객체가 없습니다.")))
    (princ "\n[SELTYPE] 기준 객체를 선택하지 않았습니다."))
  (princ))

(princ "\n[AutoCATS] SELTYPE 로드 완료 - 명령행에 SELTYPE 를 입력하세요.")
(princ)