iCAx开思网

标题: 【原创】Lisp语言的一个小问题。 [打印本页]

作者: redbird 时间: 2002-7-1 22:23
标题: 【原创】Lisp语言的一个小问题。
我想要建个r4的命令，该命令可以顺时针旋转所选的线。但我不会用Lisp语言，所以没办法实现，请大家来帮我一下，不胜感激。
(defun c:r4 ()
   ("rotate" " " "-45"
             ^^^\这里我不知道怎样写，（内容应该为：用鼠标选择所要旋转的线）请指教
)

作者: haha 时间: 2002-7-2 10:52
(defun c:r4 ()
  (setq rl(entsel "Select a line:"))
      (command "rotate" rl"" '(0.0 0.0 0.0) (* -1 45) "")
(prin1)
)

作者: redbird 时间: 2002-7-2 20:28
谢谢啦！

作者: redbird 时间: 2002-7-2 20:47
我是这样改的，ACAD2002下通过，不知合适吗？

(defun C:r4 ()
  (setq e1 (ssget))
  (setq e2 (getpoint "\指定基点"))
  (command "rotate" e1 "" e2 "-45")
)

欢迎光临 iCAx开思网 (https://www.icax.org/)