自动画此轮LSP

jxlnlsh

;gear.lsp

(defun grinfo ()
   (setq c (getpoint "\n齿轮中心： "))
   (setq pc (getpoint "\n节距圆： "))
   (setq teeth (getint "\n齿数： "))
   (while (< teeth 14) (setq teeth (getint "\n必须至少14个齿： ")))
   (while (> teeth 50) (setq teeth (getint "\n必须不超过50个齿： ")))
   (while (< teeth 14) (setq teeth (getint "\n必须至少14个齿： ")))
   (while (> teeth 50) (setq teeth (getint "\n必须不超过50个齿： ")))
)

(defun calgear ()
   (setq d (* 2 (distance c pc))) (setq pc (polar c 0 (/ d 2)))
   (setq ang3 2.79248)
   (setq ang5 (/ 360.000000 teeth))
   (setq wang -0.785385)
   (setq wang2 0.785385)
   (setq dp (/ teeth d))
   (setq ht (/ 0.32 dp))
   (setq adm (/ 1.0 dp))
   (setq y (* (/ 2.257 dp) 1.0642))
)

(defun drawgear ()
   (command "PLINE"
      (setq p (polar pc 0 adm))
      "a"
      "ce"
      c
      "l"
      ht
      "l"
      (setq p (polar (getvar "lastpoint") ang3 y))
      "a"
      "ce"
      c
      "l"
      ht
      ""
   )
   (SETQ TOP (GETVAR "LASTPOINT"))
   (command "MIRROR"
      "L"
      ""
      (setq p (polar pc 0 adm))
      c
      "n"
   )
   (command "ARRAY"
       "w"
       (POLAR TOP 4.712389 (* Y 1.5))
       (polar TOP 0 Y)
       ""
       "c"
       c
       ang5
       "-360"
       "Y"
   )
)

(defun C:CL ()
    (grinfo)
    (setq stdots (getvar "blipmode"))
    (setq stech (getvar "cmdecho"))
    (setvar "blipmode" 0)
    (setvar "cmdecho" 0)
    (calgear)
    (drawgear)
    (setvar "blipmode" stdots)
    (setvar "cmdecho" stech))

论坛公民

怎么玩，能讲解一下吗？例如搬出一下例案。:handshake