[讨论]：复制旋转程序求助

haibinpro · 发表于 2006-9-21 22:25:28

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

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

×

(defun C:test()
(setq pt (getpoint "point"))
(setq num (getreal "number"))
(Command "select" pause "" "copy" "p" "" "0,0" "" "rotate" "p" "" pt num)
(princ)
)

能否修改成程序执行后（已复制旋转一次）按回车可不用旋转pt，用num角度继续选择最后复制出来的图元进行旋转复制，每回车一次执行一次。

phoenixdjq · 发表于 2006-9-22 12:50:55

我想你要用到grread这个函数
你可以去研究一下

haibinpro · 发表于 2006-9-22 19:17:30

谢谢回复，我看下资料。如果有相关程序，希望能贴出拉参考下。

雨箭风刀 · 发表于 2006-9-22 22:37:09

不如临时改变极轴角度。。。。一次到位

haibinpro · 发表于 2006-9-30 17:31:28

一个笨办法：
(defun C:aa()
(setq pt (getpoint "point"))
(setq num (getreal "number"))
(Command "select" pause "" "copy" "p" "" "0,0" "" "rotate" "p" "" pt num)
  (setq ggg (getreal "cf"))
  (if null ggg)
  (Command "copy" "p" "" "0,0" "" "rotate" "p" "" pt num)
(setq ggg (getreal "cf"))
  (if null ggg)
  (Command "copy" "p" "" "0,0" "" "rotate" "p" "" pt num)
(setq ggg (getreal "cf"))
  (if null ggg)
  (Command "copy" "p" "" "0,0" "" "rotate" "p" "" pt num)
(princ)
)

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

[求助] [讨论]：复制旋转程序求助

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

相关帖子