[原创]怎样用lisp编程实现直线像钟表指针那样绕getpoint点旋转

qypxlh

怎样用lisp编程实现直线像钟表指针那样绕getpoint点旋转

danxingpen

(defun test( / rp obj path n)
  (setq rp(getpoint "\n选择旋转点:")
    obj(car(entsel "\n选择旋转对象:")))
  (setq path (* (/ 0.01 pi)180) n 0.01)
  (while (< (setq n(+ n 0.01))(* 2 pi))
    (command "rotate" obj "" rp path)
  )
)

qypxlh

想让他自动旋转,我怎么运行不了,,我是学生,刚学,想编个程序

谢谢啊!!