;;; 宿 題 −初級− 8/30 提出  AUTOCAD14J 作成    ;;;
;;; システム変数の退避コマンドは C9コマンド      ;;;
;;; 作成 さとまさ                                ;;;


(DEFUN C:MARU2 (/ C D)
     (SATO_OFF)
     (SETQ C (CDR (ASSOC 40 (ENTGET (CAR (ENTSEL))))))
     (SETQ D (SSGET (LIST (CONS 0 "CIRCLE")(CONS 40 C))))
     (SATO_ON)
     (SSLENGTH D)
)

;;; システム変数の一時退避
(defun SATO_OFF ()
  (setq SATO_ORTMD (getvar "ORTHOMODE")
        SATO_OSMD  (getvar "OSMODE")
        SATO_SPMD  (getvar "SNAPMODE")
  ) ;_ <<setq
  (setvar "ORTHOMODE" 0)
  (setvar "OSMODE" 0)
  (setvar "SNAPMODE" 0)
) ;_ <<defun


;;; 退避したシステム変数の再読み込み
(defun SATO_ON ()
  (setvar "ORTHOMODE" SATO_ORTMD)
  (setvar "OSMODE" SATO_OSMD)
  (setvar "SNAPMODE" SATO_SPMD)
) ;_ <<defun


;;;課題−ユーザーが図形を拾わなかった場合の処理;;;