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

weppzhangyu

各位大侠,在使用旋转命令时,如何只将图形旋转,而文字不转呢?
谢了先!!!

zxdcad

直接命令没有

旋转后可用特性对话框把文字角度改回来就可以，若嫌麻烦的话，只有编程了！

ET下的TORIENT工具也挺方便的!

weppzhangyu

不好意思,能再说一下ET下的TORIENT工具在哪,怎么用吗?

ywdywd

把文字建层,关上再旋转

maplesu

关掉文字层估计不能达到楼主的要求，估计楼主是想让文字跟着对象旋转但是角度保持不变！！
这样我编写了一个lisp看能不能帮你！

[PHP]
;旋转文字保持原角度（适用于2002～2005）
(defun c:rr()
  (setvar "cmdecho" 1)
  (setq ss (ssget))   
  (command "rotate" ss "" (getpoint) (setq a (getreal)))
  (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 180) pi))))
    (setq en_data (subst a_new a_old en_data))
    (entmod en_data)
    );progn
      );if
    (setq i (+ i 1))
    );repeat
  )



[/PHP]

GOFLYING

斑竹大人，这个代码怎么用呀？不懂。。。

maplesu

最初由 GOFLYING 发布
[B]斑竹大人，这个代码怎么用呀？不懂。。。 [/B]

lisp保存为lsp后缀的文件
然后在cad中加载
在命令行输入rr命令，接下来就和rotate命令一样使用了

hcheli

最初由 maplesu 发布
[B]

lisp保存为lsp后缀的文件
然后在cad中加载
在命令行输入rr命令，接下来就和rotate命令一样使用了 [/B]

我用了maplesu斑竹的lisp，可是怎么达不到楼主所说的效果？

maplesu

最初由 hcheli 发布
[B]

我用了maplesu斑竹的lisp，可是怎么达不到楼主所说的... [/B]

怎么会，难道不是下面的效果，在图形中的文字在图形旋转的时候位置相对于图形不变，但是角度保持原来的角度！
难道我理解楼主的意思错了？

weppzhangyu

maplesu真是善解人意,那正是我想要的效果.非常感谢.
不过我刚试了一下,和你的效果完全不一样啊,图转字也转.

星期八

还是不行，不知哪里出错了？

maplesu

对了，你们是不是都是在14下面作图呀！！
我刚才在2005下面可以，14下面是不行，等等我看看修改一下了！

l19811102

不行啊！选择物体以后，命令行没有提示。这时左键单击以后拉出一条橡皮线，然后就什么也干不了啦，按“Esc”中断，就跟rotate一样了！还辛苦斑竹maplesu再修改一下。

maplesu

我现在这个已经在R14中适用过了，可以的！

关于楼上的情况是我写漏了个系统变量的赋值，其实主要是没有显示出来提示，你在选择完对象以后就是要你输入基点，然后有弹簧线的时候就是要角度。现在上面那个已经修改好了，可以显示出提示，经过测试可以用于2002～2005。而下面这个可以适用于14到2005的。[/COLOR]

[PHP]
;旋转角度不转（适用R14～2005）。
(defun c:rr()
  (setq ss (ssget))
  (setq pt (getpoint "基点:")
        a (getreal "<旋转角度>/参照(R):"))
  (command "rotate" ss "" pt a)
  (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 180) pi))))
    (setq en_data (subst a_new a_old en_data))
    (entmod en_data)
    );progn
      );if
    (setq i (+ i 1))
    );repeat
  )

[/PHP]

xiaotang

加载这个后，若想绘图时达到文字旋转或不旋转同时存在，还需要什么切换命令吗？另外我用的是2002中文版，可以直接用吗？