[原创]怎样用lisp编程实现直线像钟表指针那样绕getpoint点旋转
<h1><font color="#ff0000">怎样用lisp编程实现直线像钟表指针那样绕getpoint点旋转</font><cq></cq></h1> (defun test( / rp obj path n)<br/> (setq rp(getpoint "\n选择旋转点:")<br/> obj(car(entsel "\n选择旋转对象:")))<br/> (setq path (* (/ 0.01 pi)180) n 0.01)<br/> (while (< (setq n(+ n 0.01))(* 2 pi))<br/> (command "rotate" obj "" rp path)<br/> )<br/>) <p>想让他自动旋转,我怎么运行不了,,我是学生,刚学,想编个程序</p><p>谢谢啊!!</p>
页:
[1]