你知道怎样做吗？

huang.j.2002

有这样两段程序：
(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

你知道怎样做吗？
有这样两段程序（从一大程序中截取）：
(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

我加多两个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)))
)

wjp_01

把(command "arc" pause"")后面的""去掉写成

(command "arc" pause)也许会行

ll_j

程序中应尽量不用Pause输入，应该先将条件用getxxx输入，实体用ssget或entsel输入，然后再调用command，一气呵成。