Autolisp 帮解决下难题 (defun c:yzluow(/)(setq b1(getpoint"指定基点:"))(setq r1(getreal"\n指定初始半径:"))(setq disp(getreal"\n指定节距:"))(setq angtg(getreal"\n输入圆形角:"))(setq m(getreal"\n输入圈数:"))(setq n(getreal"\
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/26 23:12:47
![Autolisp 帮解决下难题 (defun c:yzluow(/)(setq b1(getpoint](/uploads/image/z/14379772-4-2.jpg?t=Autolisp+%E5%B8%AE%E8%A7%A3%E5%86%B3%E4%B8%8B%E9%9A%BE%E9%A2%98+%28defun+c%3Ayzluow%28%2F%29%28setq+b1%28getpoint%22%E6%8C%87%E5%AE%9A%E5%9F%BA%E7%82%B9%3A%22%29%29%28setq+r1%28getreal%22%5Cn%E6%8C%87%E5%AE%9A%E5%88%9D%E5%A7%8B%E5%8D%8A%E5%BE%84%3A%22%29%29%28setq+disp%28getreal%22%5Cn%E6%8C%87%E5%AE%9A%E8%8A%82%E8%B7%9D%3A%22%29%29%28setq+angtg%28getreal%22%5Cn%E8%BE%93%E5%85%A5%E5%9C%86%E5%BD%A2%E8%A7%92%3A%22%29%29%28setq+m%28getreal%22%5Cn%E8%BE%93%E5%85%A5%E5%9C%88%E6%95%B0%3A%22%29%29%28setq+n%28getreal%22%5C)
xU[OQ+}:h[L6$G_B]m>UTnmib5&BEn^ۥʃ49ߙwb@VJ%ӉϪoV@"Ygl)$@GbQIL
tJהamDD|y$ؐUZ=~Fӧ̸u⅘s]GzmLv MiBh!Mi,D8`]@C/Y8`)[Bdph;_ڎSB,!5hB≇@q1vC!#4ǚ{Q=^N/3J&yLɆ30)ںS16^