[求助]lsp问题

wllove

请问一下这个程序里面的pi代表的是什么啊~~~

(DEFUN C:PUN (/ pt1 a l d)
   (SETQ PT1 (GETPOINT "请指定一点:"))
   (SETQ A (GETDIST "输入小直径:"))
   (setq D (getdist "输入大直径:"))
   (setq L (getdist "输入高度:"))
   (SETQ Q (- (* D 0.5) (* A 0.5)))
   (SETQ Q1 (- 15 Q))
   (SETQ R1 (* Q Q1))
   (SETQ R (SQRT R1))
   (setq B (- L 20 R))
   (setq z (* pi 1.5))
   (setq pt2 (polar pt1 0.0 (* (+ d 2.0) 0.5)))
   (setq pt3 (polar pt2 z 5))
   (setq pt4 (polar pt3 pi (+ d 2.0)))
   (setq pt5 (polar pt4 (* pi 0.5) 5))
   (setq pt14 (polar pt1 z 5))
   (setq pt6 (polar pt14 0.0 (* d 0.5)))
   (setq pt7 (polar pt6 z b))
   (setq pt15 (polar pt1 z l))
   (setq pt9 (polar pt15 0.0 (* a 0.5)))
   (setq pt8 (polar pt9 (* pi 0.5) 15))
   (setq pt10 (polar pt15 pi (* a 0.5)))
   (setq pt11 (polar pt8 pi a))
   (setq pt13 (polar pt14 pi (* d 0.5)))
   (setq pt12 (polar pt13 z b))
   (setq pt16 (polar pt1 (* pi 0.5) 2))
   (setq pt17 (polar pt15 z 2))
   (setq pt18 (polar pt8 0.0 10)) 
   (setq pt19 (polar pt3 0.0 3))
   (setq pt20 (polar pt9 z -1))
   (setq pt21 (polar pt7 z -1))
   (setq pt22 (polar pt5 z -3))
   (command "osnap" "none")  
   (command "layer""s""1""""")
   (command "line"pt2 pt3 pt4 pt5 "c")
   (command "line"pt6 pt7"")
   (command "line" pt8 pt9 pt10 pt11 "")
   (command "line" pt12 pt13 "")
   (command "line" pt7 pt12 "")
   (command "line" pt8 pt11 "")
   (COMMAND "ARc" pt7 "e" pt8 "R"10)
;;;(command "arc" pt11 "e" pt12"r" 10)
   (command "mirror""l""" pt16 pt17"n")
   (command "line" pt16 pt17"")
   (command "change" "l""""P""la""1""""")
   (command "layer""s""1""""")
   (command "dim1""ver" pt2 pt9 pt18 "<>""")
   (command "dim1""ver" pt2 pt3 pt19 "<>""")
   (command "dim1""hor" pt9 pt10 pt20 "%%C<>""")
   (command "dim1""hor" pt7 pt12 pt21 "%%C<>""")
   (command "dim1""hor" pt2 pt5 pt22 "%%C<>""") 
   (command "osnap" "end,mid,cen,int,per,nea")  
   )

zml84

pi就是圆周率啊

jxh2003zfr

圆周率,pi=3.14159..........