[求助]：旋转命令为什么不对呀

lei_na521 · 发表于 2005-7-18 09:42:31

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

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

×

我的旋转命令不执行,请各位给看看
部分代码如下
(setq tyname (entget (entlast)))
(initget "y n")
  (setq pand (getkword "是否需要旋转[是(y) 否(n)]\n:"))
  (if (= pand "y")
(progn
(setq jiaod (getint "请输入旋转角度\n"))
(setq tuyuan (nth 0 tyname))
(command "rotate" tuyuan "" xuanz jiaod)
   )
)

舟自横 · 发表于 2005-7-18 11:13:31

(defun c:lll()
(setq tuyuan (car (entsel)))
(initget "y n")
(setq pand (getkword "是否需要旋转[是(y) 否(n)]\n:"))
(if (= pand "y")
(progn
(setq jiaod (getint "\n请输入旋转角度"))
(command "rotate" tuyuan "" pause jiaod )
)
)
)

lei_na521 · 发表于 2005-7-18 14:36:07

我想达到的效果是系统自动判断,也就是说我的图元是已经绘好的,并已定义为块

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

[求助] [求助]：旋转命令为什么不对呀

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

相关帖子