【原创】Lisp语言的一个小问题。

只看该作者 · 发表于 2002-7-1 22:23:48

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

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

只看该作者 · 发表于 2002-7-2 10:52:55

(defun c:r4 ()
  (setq rl(entsel "Select a line:"))
      (command "rotate" rl"" '(0.0 0.0 0.0) (* -1 45) "")
(prin1)
)

只看该作者 · 发表于 2002-7-2 20:28:41

谢谢啦！

只看该作者 · 发表于 2002-7-2 20:47:52

我是这样改的，ACAD2002下通过，不知合适吗？

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