用autolisp写一个画轴承的程序

以下是一个简单的AutoLISP程序，可以画一个基本的轴承模型：

(defun C:DRAW-BEARING ()
  (setq dia (getreal "\nEnter the diameter of the bearing: "))
  (initget (+ 2 4 16))
  (setq shape (getkword "\nEnter the shape of the bearing - Round, Square, or Hex: "))
  (setq height (getreal "\nEnter the height of the bearing: "))
  (command "_.circle" "_non" (list 0 0) (/ dia 2))
  (if (= shape "Round")
    (progn
      (command "_.circle" "_non" (list 0 0) (/ dia 4))
      (command "_.circle" "_non" (list 0 0) (/ (* dia 3) 8))
      (command "_.circle" "_non" (list 0 0) (/ dia 8)))
    (if (= shape "Square")
      (progn
        (command "_.rectangle" "_non" (list (- (/ dia 4)) (- (/ dia 4))) (list (/ dia 4) (/ dia 4)))
        (command "_.rectangle" "_non" (list (- (/ (* dia 3) 8)) (- (/ (* dia 3) 8))) (list (/ (* dia 3) 8) (/ (* dia 3) 8)))
        (command "_.rectangle" "_non" (list (- (/ dia 8)) (- (/ dia 8))) (list (/ dia 8) (/ dia 8))))
      (if (= shape "Hex")
        (progn
          (setq h (/ (* dia (sqrt 3)) 6))
          (command "_.pline" "_non" (list (- (/ dia 4)) h) (list (- (/ dia 4)) (- h)) (list 0 (- (/ dia 2))) (list (/ dia 4) (- h)) (list (/ dia 4) h) (list 0 (/ dia 2)) (list (- (/ dia 4)) h))
          (setq h (/ (* dia (sqrt 3)) 24))
          (command "_.pline" "_non" (list (- (/ (* dia 3) 8)) h) (list (- (/ (* dia 3) 8)) (- h)) (list 0 (- (/ dia 4))) (list (/ (* dia 3) 8) (- h)) (list (/ (* dia 3) 8) h) (list 0 (/ dia 4)) (list (- (/ (* dia 3) 8)) h))
          (setq h (/ (* dia (sqrt 3)) 48))
          (command "_.pline" "_non" (list (- (/ dia 8)) h) (list (- (/ dia 8)) (- h)) (list 0 (- (/ dia 16))) (list (/ dia 8) (- h)) (list (/ dia 8) h) (list 0 (/ dia 16)) (list (- (/ dia 8)) h)))))))

运行这个程序后，程序会提示用户输入轴承的直径、形状和高度。根据用户输入的参数，程序将绘制一个基本的轴承模型。

请注意，这只是一个简单的程序，可能需要根据具体需求进行修改和调整。