;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: MOFFSET
;; 기능: 하나의 곡선을 여러 거리만큼 같은 방향으로 일괄 OFFSET
;; 출처: https://www.autocats.co.kr/lisp/multiple-offset
;; 버전: 1.0 (2026-07-23)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 + UNDO 그룹, 잘못된 거리 및 잠긴 레이어 차단
;;; ------------------------------------------------------------

(vl-load-com)

(defun autocats-moffset-split (value / result start position)
  (setq result '() start 0)
  (while (setq position (vl-string-search "," value start))
    (setq result (append result (list (substr value (1+ start) (- position start))))
          start (1+ position)))
  (append result (list (substr value (1+ start)))))

(defun autocats-moffset-distances (value / tokens output token number invalid)
  (setq tokens (autocats-moffset-split value)
        output '()
        invalid nil)
  (foreach token tokens
    (setq token (vl-string-trim " \t" token)
          number (if (/= token "") (distof token 2) nil))
    (if (or (null number) (<= number 0.0))
      (setq invalid T)
      (if (not (member number output))
        (setq output (append output (list number))))))
  (if (or invalid (null output)) nil output))

(defun autocats-moffset-locked-p (ent / row)
  (setq row (tblsearch "LAYER" (cdr (assoc 8 (entget ent)))))
  (and row (= 4 (logand 4 (cdr (assoc 70 row))))))

(defun autocats-moffset-run (ent distances side / distance before result count)
  (setq count 0)
  (foreach distance distances
    (setq before (entlast)
          result
          (vl-catch-all-apply
            '(lambda ()
               (command "_.OFFSET" distance ent side "")
               T)))
    (if (and (not (vl-catch-all-error-p result))
             (not (equal before (entlast))))
      (setq count (1+ count))))
  count)

(defun c:MOFFSET (/ *error* doc undo-open oldecho picked ent raw distances side count)
  (defun *error* (msg)
    (if undo-open
      (progn (vla-EndUndoMark doc) (setq undo-open nil)))
    (if oldecho (setvar "CMDECHO" oldecho))
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[MOFFSET] 중단: " msg)))
    (princ))

  (setq picked (entsel "\n[MOFFSET] OFFSET할 곡선을 선택하세요: ")
        ent (if picked (car picked) nil))
  (if (null ent)
    (princ "\n[MOFFSET] 곡선을 선택하지 않았습니다.")
    (if (autocats-moffset-locked-p ent)
      (princ "\n[MOFFSET] 잠긴 레이어의 객체는 수정할 수 없습니다.")
      (progn
        (setq raw (getstring T "\nOFFSET 거리들을 쉼표로 입력 <예: 100,200,300>: ")
              distances (autocats-moffset-distances raw))
        (if (null distances)
          (princ "\n[MOFFSET] 0보다 큰 숫자를 쉼표로 구분해 입력해야 합니다.")
          (progn
            (setq side (getpoint "\nOFFSET 방향을 지정할 점: "))
            (if side
              (progn
                (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
                      oldecho (getvar "CMDECHO"))
                (setvar "CMDECHO" 0)
                (vla-StartUndoMark doc)
                (setq undo-open T
                      count (autocats-moffset-run ent distances side))
                (vla-EndUndoMark doc)
                (setq undo-open nil)
                (setvar "CMDECHO" oldecho)
                (setq oldecho nil)
                (princ (strcat "\n[MOFFSET] " (itoa count)
                               "개 OFFSET 생성 완료. (중복 거리는 한 번만 처리)")))))))))
  (princ))

(princ "\n[AutoCATS] MOFFSET 로드 완료 - 명령행에 MOFFSET 를 입력하세요.")
(princ)