Question

autolisp提示输入列表有缺陷，如何解决啊！第一次运行的时候没有这个 ，后来就有了，求大神帮忙，急急急

程序是这样子的：(defun wcstoucs(xi yi zi);Subroutine of WCS to UCS (setq x1 (+(*(- xi xa) (cos Azm) (cos Zeni)) (*(- yi ya) (sin Azm) (cos Zeni)) (*(- za zi) (sin Zeni)))) (setq y1 (+(*(- xa xi) (sin Azm) (*(- yi ya) (cos Zeni)))) (setq z1 (+(*(- xi xa) (cos Azm) (sin Zeni)) (*(- yi ya) (sin Azm) (sin Zeni)) (*(- za zi) (cos Zeni)))));End wcstoucs
这个是三维坐标换算公式，打算做一个自定义函数，在主函数里引用





Answer 1

(defun wcstoucs(xi yi zi);Subroutine of WCS to UCS
  (setq x1 (+(*(- xi xa) (cos Azm) (cos Zeni))
	     (*(- yi ya) (sin Azm) (cos Zeni)) (*(- za zi) (sin Zeni))))
  (setq y1 (+(*(- xa xi) (sin Azm) (*(- yi ya) (cos Zeni)))))
  (setq z1 (+(*(- xi xa) (cos Azm) (sin Zeni))
	     (*(- yi ya) (sin Azm) (sin Zeni)) (*(- za zi) (cos Zeni))))
	 );