[求助]：旋转命令中如何保持文字不转

maplesu

对呀！我怎么忘了这个拖动！
修改好了！

用于14～2005
[PHP]
;旋转文字角度不转（适用与14～2005）。
(defun c:rr()
  (setq ss (ssget))
  (setq pt (getpoint "基点:")
        a (getangle pt "<旋转角度>/参照(R):"))
  (command "rotate" ss "" pt (angtos a 0 3))
  (setq i 0)
  (repeat (sslength ss)
    (setq en_data (entget (ssname ss i)))
    (if (or (= (cdr (assoc 0 en_data)) "TEXT") (= (cdr (assoc 0 en_data)) "MTEXT"))
      (progn
    (setq a_old (assoc 50 en_data))
    (setq a_new (cons 50 (- (cdr a_old) a)))
    (setq en_data (subst a_new a_old en_data))
    (entmod en_data)
    );progn
      );if
    (setq i (+ i 1))
    );repeat
  )



[/PHP]



适用于2002～2005
[PHP]
旋转文字保持原角度（适用于2002～2005）
(defun c:rr()
  (setvar "cmdecho" 1)
  (setq ss (ssget))   
  (command "rotate" ss "" (setq pt (getpoint)) (angtos (setq a (getangle pt)) 0 3))
  (setvar "cmdecho" 0)
  (setq i 0)
  (repeat (sslength ss)
    (setq en_data (entget (ssname ss i)))
    (if (or (= (cdr (assoc 0 en_data)) "TEXT") (= (cdr (assoc 0 en_data)) "MTEXT"))
      (progn
    (setq a_old (assoc 50 en_data))
    (setq a_new (cons 50 (- (cdr a_old) a)))
    (setq en_data (subst a_new a_old en_data))
    (entmod en_data)
    );progn
      );if
    (setq i (+ i 1))
    );repeat
  )
[/PHP]

雪山飞狐(lzh)

你的拖动和我的不一样哟

maplesu

哈哈！！
可以显示对象，实在是比较麻烦，我再想想看用lisp怎么实现！

弄了一个下午，看来只有笨办法了！看看现在这个怎么样！



[PHP]
;旋转文字保持原角度（适用于14～2005）
(defun c:rr()
  (setvar "cmdecho" 1)
  (setq ss (ssget))
  (setq pt (getpoint "基点： "))
  (setq pt1 (cdr (assoc 10 (entget (ssname ss 0)))))
  (command "rotate" ss "" pt pause)
  (setq pt2 (cdr (assoc 10 (entget (ssname ss 0)))))
  (setq a (- (angle pt pt2) (angle pt pt1)))
  (setvar "cmdecho" 0)
  (setq i 0)
  (repeat (sslength ss)
    (setq en_data (entget (ssname ss i)))
    (if (or (= (cdr (assoc 0 en_data)) "TEXT") (= (cdr (assoc 0 en_data)) "MTEXT"))
      (progn
    (setq a_old (assoc 50 en_data))
    (setq a_new (cons 50 (- (cdr a_old) a)))
    (setq en_data (subst a_new a_old en_data))
    (entmod en_data)
    );progn
      );if
    (setq i (+ i 1))
    );repeat
  )

[/PHP]