复制旋转1次的

9合彩 · 发表于 2019-3-19 16:58:07

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

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

×

(defun C:HJ (/ LAST_PT SS)
  (while (and (princ "\n★选择对象复制旋转")
            (setq SS (ssget))
      )
(command "_.COPY" SS "" "_none" "0,0,0" "@")
(command "_.move" ss "")
(while (= (getvar "CMDNAMES") "MOVE")
   (command PAUSE)
)
(if       (setq LAST_PT (getvar "LASTPOINT"))
   (progn
      (command "_.ROTATE" ss "" "_NON" LAST_pT)
      (while (= (getvar "CMDNAMES") "ROTATE")
      (command PAUSE)
      )
   )
)
  )
  (princ)
)

tzfcn · 发表于 2019-3-19 20:34:39

这个代码有点意思。

ketxu · 发表于 2019-3-27 00:22:18

Thanks for sharing ^^

9合彩 · 发表于 2019-4-8 10:42:05

帮忙改下赛！

xdcad9819 · 发表于 2020-5-5 08:05:12

资料收藏谢谢

yinchuan99001 · 发表于 2020-5-5 16:13:34

(defun C:HJ (/ LAST_PT SS)
  (while (and (princ "\n★选择对象复制旋转")
      (setq SS (ssget))
   )
(setq p0 (getpoint "\选择复制旋转原点："))
(command "_.COPY" SS "" "_none" p0 "@")
(while (= (getvar "CMDNAMES") "MOVE")
   (command PAUSE)
)
(if (setq LAST_PT (getvar "LASTPOINT"))
   (progn
(command "_.ROTATE" ss "" "_NON" LAST_pT)
(while (= (getvar "CMDNAMES") "ROTATE")
   (command PAUSE)
)
   )
)
  )
  (princ)
)

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

[求助] 复制旋转1次的

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