(defun C:cip (/ E ELIST I SS STR V1 V42 cipher)
  (command "._UNDO" "_END")
  (command "._UNDO" "_BEGIN")
  (setq cipher (atoi (rtos (getreal "n 자릿수 지정. 0 1 2 3... : ") 2 0)))
  (and (setq ss (ssget '((0 . "DIMENSION"))))
       (setq i -1)
       (while (and (setq e (ssname ss (setq i (1+ i))))
     (setq elist (entget e))
     (setq v1 (cdr (assoc 1 elist)))
     (setq v42 (cdr (assoc 42 elist)))
       )
  (if (= v1 "")
    (setq str (rtos v42 2 cipher))
    (if (and (vl-string-search "<>" v1)
      (setq v1 (vl-string-subst
          (rtos v42 2 cipher)
          "<>"
          v1
        )
      )
        )
      (setq str v1)
      (setq str (rtos v42 2 cipher))
    )
  )
  (and str
       (entmod (subst (cons 1 str) (assoc 1 elist) elist))
  )
       )
  )
  (command "._UNDO" "_END")
 
  (princ)
)