[LISP程序]：将选择的物体转为0度

baolanjun · 发表于 2006-4-22 20:45:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

(defun c:r0(/ A0 P0 S)
  (prompt "\n选择要转为0度的物体:")
  (setq s(ssget)
      p0(getpoint "\n选择旋转点:")
a0(getangle p0 "\n参照角度:"))
  (command "rotate" s "" p0 "r" (* 0pi a0) 0)
)
这里的参照角度是什么？
在CAD2002好像不能用？

nyzzy · 发表于 2006-11-11 21:18:05

cad2000以上版本，在属性里面，不就能改

livy316 · 发表于 2006-11-26 21:07:55

路过，学习中

394326635 · 发表于 2006-12-13 19:27:20

学习中

yinzhun22 · 发表于 2007-11-15 14:12:48

学习中

lyq2004 · 发表于 2007-11-18 23:17:06

p0 的值应该求出

曲籁 · 发表于 2007-12-15 13:53:42

sdfsdfssssssssssssssadfsdf

ljh19991220 · 发表于 2009-7-4 23:08:01

不好用，还要手动输入角度才能实现

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：将选择的物体转为0度

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子