AUTOLISP畫小圓孔

;畫小圓孔 1.5 ,2 ,1
(defun c:ted10()(OO 1.5 "C0"))
(defun c:ted12()(OO 2 "C0"))
(defun c:ted11()(OO 1 "dim"))
(defun OO(D LA / cen s v OS)
  (setq OS(getvar "OSMODE"))
  (setq v (getvar "clayer"))
  (setq s (getvar "dimlfac"))
  (setvar "cmdecho" 0)
  (setvar "OSMODE" 1189)
  (setq cen (getpoint "Center point:"))(terpri)
  (setvar "CLAYER" LA)
  (setvar "OSMODE" 0)
  (command "CIRCLE" cen "D" (* s D))
  (setvar "CLAYER" "CEN")
  (command "LINE" (list (car cen) (- (cadr cen) (* s d)))
                  (list (car cen) (+ (cadr cen) (* s d))) "")
  (command "LINE" (list (- (car cen) (* s d)) (cadr cen))
                  (list (+ (car cen) (* s d)) (cadr cen)) "")
  (setvar "OSMODE" OS)
  (setvar "CLAYER" V)
(princ)
)