新不由己 发表于 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)
)
页: [1]
查看完整版本: 求大神指点！有角度就没发用。参照旋转