求大神指点！有角度就没发用。参照旋转

新不由己 · 发表于 2018-1-25 14:21:48

(defun c:RR()
   (setvar "cmdecho" 0)
   (princ "\n选择对象 :")
   (SETQ OBJ ( SSGET))
   (setq a(getpoint "\n确定基点: "))
   (command "rotate" OBJ "" a "r" pause "")
   (princ)
   )

Andyhon · 发表于 2018-1-25 15:26:40

(defun c:RR ()
  (setvar "cmdecho" 0)
  (princ "\n选择对象 :")
  (SETQ OBJ (SSGET))
  (setq a (getpoint "\n确定基点: "))
  (command "rotate" OBJ "" a "r")
  (while (= (logand (getvar "CmdActive") 1) 1)
(command pause)
  )
  (princ)
)

新不由己 · 发表于 2018-1-26 11:46:49

Andyhon 发表于 2018-1-25 15:26
(defun c:RR ()
(setvar "cmdecho" 0)
(princ "\n选择对象 :")

要重复按两两次起点！可以搞成按一次起点吗？

Andyhon · 发表于 2018-1-26 11:59:11

试试合不合用===>
(command "rotate" OBJ "" a "r" a)

新不由己 · 发表于 2018-1-26 12:15:56

Andyhon 发表于 2018-1-26 11:59
试试合不合用===>
(command "rotate" OBJ "" a "r" a)

可以了！谢谢！！

liunian0524 · 发表于 2018-1-26 16:46:11

(defun c:AF(/ ss p1 ang1 ang2 ang)
(setq ss(ssget))
(setq p1(getpoint "指定基点:"))
(setq ang1(getangle p1"源点:"))
(setq ang2(getangle p1"目标点:"))
(setq ang(/(* 180.0(- ang2 ang1))pi))
(command "rotate" ss "" p1 ang)
(princ)
)

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

[资源] 求大神指点！有角度就没发用。参照旋转