엔지니어 기술블로그

; Rubber Band
;선택한 원을 다른 지름값의 원으로 바꾸기
(defun C:RB (/ old dia old2 elist ne new e cen p)
      (setq p (entsel "nselect circle to change: "))
      (redraw (car p) 3)
      (if (= "CIRCLE" (cdr (assoc 0 (setq elist (entget (car p))))))
          (progn (setq old (assoc 40 elist))
                 (prompt "n선택 객체 지름 : ")
                ; (princ (cdr old))
    (setq dia (* (cdr old) 2))
    (princ dia);ADD
                 (setq cen (cdr (assoc 10 elist)))
                 (initget (+ 1 2 4))
                 (setq ne (getdist cen "n새로운 지름 입력 : ")
         new (/ ne 2)
         new (cons (car old) new)
                       elist (subst new old elist)
    )
             (entmod elist)
          )
          (princ "nThis entity is not a circle !!")
     )
     (redraw (car p) 4)
     (princ)
) ;;; end of defun