你知道怎样做吗？

huang.j.2002 · 发表于 2002-11-7 21:28:00

有这样两段程序：
(defun c:test2()
(setq k (getint "\n段数K:"))
(command "divide" )
(command pause )
(command K)

)

(defun C:js()
  (setq angtu (getreal "\n请输入推程角度值:"))
  (setq H(getdist "\n输入最大行程H:"))
  (setq angle (* (/ angtu 180 ) 3.1415926))
  (setq angle 0)
  (setq a (/ angtu 4))

  (setq angle1 (+ 0 a))
  (setq m (* pi angle1 (/ 1 angtu)))
  (setq t (cos m))
  (setq s1 (* H 0.5 (- 1 t)))
  (setq angle2 (+ angle1 a))
  (setq m (* pi angle2 (/ 1 angtu)))
  (setq t (cos m))
  (setq s2 (* H 0.5 (- 1 t)))
  (setq angle3 (+ angle2 a))
  (setq m (* pi angle3 (/ 1 angtu)))
  (setq t (cos m))
  (setq s3 (* H 0.5 (- 1 t)))
  (setq angle4 (+ angle3 a))
  (setq m (* pi angle4 (/ 1 angtu)))
  (setq t (cos m))
  (setq s4 (* H 0.5 (- 1 t)))
)
怎样把它们和二为一，连贯的执行，一气呵成。就是在执行第二个程序前，不用输入命令：js ？（将defun C:js()去掉）不知我说清楚没有？请各位高手回复于此，不胜感激！

huang.j.2002 · 发表于 2002-11-7 21:47:00

你知道怎样做吗？
有这样两段程序（从一大程序中截取）：
(defun c:test2()
(setq k (getint "\n段数K:"))
(command "divide" )
(command pause )
(command K)
   )
  (command "arc" pause"")
(defun C:js()
  (setq angtu (getreal "\n请输入推程角度值:"))
  (setq H(getdist "\n输入最大行程H:"))
  (setq angle (* (/ angtu 180 ) 3.1415926))
  (setq angle 0)
  (setq a (/ angtu 4))

  (setq angle1 (+ 0 a))
  (setq m (* pi angle1 (/ 1 angtu)))
  (setq t (cos m))
  (setq s1 (* H 0.5 (- 1 t)))
  (setq angle2 (+ angle1 a))
  (setq m (* pi angle2 (/ 1 angtu)))
  (setq t (cos m))
  (setq s2 (* H 0.5 (- 1 t)))
  (setq angle3 (+ angle2 a))
  (setq m (* pi angle3 (/ 1 angtu)))
  (setq t (cos m))
  (setq s3 (* H 0.5 (- 1 t)))
  (setq angle4 (+ angle3 a))
  (setq m (* pi angle4 (/ 1 angtu)))
  (setq t (cos m))
  (setq s4 (* H 0.5 (- 1 t)))
)
在执行第二个程序前总会出现“未知命令“JS””怎样把它们和二为一，连贯的执行，一气呵成。（将defun C:js()去掉，中间有个(command "arc" pause"")干扰。可恶！）不知我说清楚没有？请各位高手回复于此，不胜感激！

alin · 发表于 2002-11-7 23:16:00

我加多两个pause，就能连贯起来。
(defun c:test2()
(setq k (getint "\n段数K:"))
(command "divide" )
(command pause )
(command K)
(command "arc" pause pause pause)
  (setq angtu (getreal "\n请输入推程角度值:"))
  (setq H(getdist "\n输入最大行程H:"))
  (setq angle0 (* (/ angtu 180 ) 3.1415926))
  (setq angle0 0)
  (setq a (/ angtu 4))

  (setq angle1 (+ 0 a))
  (setq m (* pi angle1 (/ 1 angtu)))
  (setq tt (cos m))
  (setq s1 (* H 0.5 (- 1 tt)))
  (setq angle2 (+ angle1 a))
  (setq m (* pi angle2 (/ 1 angtu)))
  (setq tt (cos m))
  (setq s2 (* H 0.5 (- 1 tt)))
  (setq angle3 (+ angle2 a))
  (setq m (* pi angle3 (/ 1 angtu)))
  (setq tt (cos m))
  (setq s3 (* H 0.5 (- 1 tt)))
  (setq angle4 (+ angle3 a))
  (setq m (* pi angle4 (/ 1 angtu)))
  (setq tt (cos m))
  (setq s4 (* H 0.5 (- 1 tt)))
)