旋轉但最終文字的角度不會因為旋轉而解變.

BDYCAD

關於這個問題的程序我做的差不多了請大家來看看. 是這樣的我的程序在 ROTATE中意思是說在旋轉但最終文字的角度不會因為旋轉而解變.現在還有MTEXT的還沒有做成功. 大俠你們幫手攻下MTEXT的好嗎?

vladimirputin

非常不错的代码，谢谢楼主分享錒

阳春白雪

我是一个菜鸟，放到哪个文件里呀？
谢谢了

BDYCAD

用 APPLOAD 命令進行加載, 以后就能自動加載了.

阳春白雪

不行呀？是怎么回事没加载好吗？

meflying

程序中运行前取出每个文字的角度，旋转后，修改这些文字的角度为原来的角度。
用entmod，组码50

BDYCAD

樓上應全面考慮,用戶在旋轉時可能選的是有很多個中文字. 那程序要增加一系列的變量來存下這麼多文字的角度等旋轉后再去更新那些文字. 思路我也這麼想過. 但我目前的功力還沒有達到啊.

kaixinmao

旋转？
这种程序不要用(command "rotate")
你要作的是计算文本基点在旋转后的坐标，把这个文本移动到那里就行了。
这不是功力问题了，是选择模型问题。
伪码：
pt0<---旋转中心
th<----旋转角度
for i=0 to 选择集元素数-1
pt1<---第i个元素基点
pt2<---pt1相对于pt0旋转th后
把第i个元素从pt1移动到pt2
next i
看看，多省事，什么多文本、多变量。

BDYCAD

樓上說了這麼多還是不如放個程序上來看看的好. 呵呵. 我真的覺得有些麻煩. 我想參考參考你的做法. 謝謝

cqnj023

根据kaixinmao的思路，结合BDYCAD 的程序，编了一个，能解决独立的文字实体旋转后保持角度不变，但对块中的文字需用其他办法。

2. (defun zd (jidian zdian jiaodu / dx mbzd) ;求文字旋转后的基点
   
3.   (command "line" jidian zdian "")
   
4.   (setq dx (entlast))
   
5.   (command "_rotate" dx "" jidian jiaodu)
   
6.   (setq end (entget dx))
   
7.   (setq mbzd (cdr (assoc '11 end)))
   
8.   (command "_erase" dx "")
   
9.   (setq mbzd mbzd)
   
10. )                                        ;求文字旋转后的基点
    
11. 
    
12. (defun c:test (/ ss pt rang textss n sslen wt text lentextss jd mbd)
    
13.   (setq ss (ssget))
    
14.   (setq pt (getpoint "\n选择基点："))
    
15.   (setq rang (getreal "\n输入旋转角度："))
    
16.   (setq textss (ssadd)) ;构造文字文字集合以及非文字实体集合
    
17.   (setq n 0)
    
18.   (if ss
    
19.     (progn
    
20.       (setq sslen (sslength ss))
    
21.       (while (< n sslen)
    
22.         (setq wt (ssname ss n))
    
23.         (setq text (cdr (assoc 0 (entget wt))))
    
24.         (if (or        (= text "TEXT")
    
25.                 (= text "MTEXT")
    
26.             )
    
27.           (progn
    
28.             (ssadd wt textss)
    
29.             (ssdel wt ss)
    
30.             (setq sslen (- sslen 1))
    
31.           )
    
32.           (setq n (1+ n))
    
33.         )
    
34.       ) ;构造文字文字集合以及非文字实体集合
    
35. 
    
36. 
    
37.       (command "rotate" ss "" pt rang) ;旋转非文字实体
    
38. 
    
39.       (setq n 0);旋转文字实体
    
40.       (setq lentextss (sslength textss))
    
41.       (while (< n lentextss)
    
42.         (setq wt (ssname textss n))
    
43.         (setq jd (cdr (assoc 10 (entget wt))))
    
44.         (setq mbd (zd pt jd rang))
    
45.         (command "move" wt "" jd mbd)
    
46.         (setq n (1+ n))
    
47. 
    
48.       );旋转文字实体
    
49.     )
    
50.   )
    
51. )
    
52. 
    
53. 
    

(defun zd (jidian zdian jiaodu / dx mbzd) ;求文字旋转后的基点<br />   (command "line" jidian zdian "")<br />   (setq dx (entlast))<br />   (command "_rotate" dx "" jidian jiaodu)<br />   (setq end (entget dx))<br />   (setq mbzd (cdr (assoc '11 end)))<br />   (command "_erase" dx "")<br />   (setq mbzd mbzd)<br /> )                                        ;求文字旋转后的基点<br /> <br /> (defun c:test (/ ss pt rang textss n sslen wt text lentextss jd mbd)<br />   (setq ss (ssget))<br />   (setq pt (getpoint "\n选择基点："))<br />   (setq rang (getreal "\n输入旋转角度："))<br />   (setq textss (ssadd)) ;构造文字文字集合以及非文字实体集合<br />   (setq n 0)<br />   (if ss<br />     (progn<br />       (setq sslen (sslength ss))<br />       (while (< n sslen)<br />         (setq wt (ssname ss n))<br />         (setq text (cdr (assoc 0 (entget wt))))<br />         (if (or        (= text "TEXT")<br />                 (= text "MTEXT")<br />             )<br />           (progn<br />             (ssadd wt textss)<br />             (ssdel wt ss)<br />             (setq sslen (- sslen 1))<br />           )<br />           (setq n (1+ n))<br />         )<br />       ) ;构造文字文字集合以及非文字实体集合<br /> <br /> <br />       (command "rotate" ss "" pt rang) ;旋转非文字实体<br /> <br />       (setq n 0);旋转文字实体<br />       (setq lentextss (sslength textss))<br />       (while (< n lentextss)<br />         (setq wt (ssname textss n))<br />         (setq jd (cdr (assoc 10 (entget wt))))<br />         (setq mbd (zd pt jd rang))<br />         (command "move" wt "" jd mbd)<br />         (setq n (1+ n))<br /> <br />       );旋转文字实体<br />     )<br />   )<br /> )<br /> <br /> <br />

无痕

何须这么麻烦！先写个初级版本

;|旋转选集，保留文字角度v1.0－－－－－－－－－－－－－无痕.2004.1.1
  v0.1 未考虑坐标系转换.对"TEXT" "MTEXT"有效.
|;

2. 
   
3. (defun c:rt-txt ()
   
4.   (vl-cmdf ".undo" "be")
   
5.   (princ "\n 选择实体:")
   
6.   (setq ss (ssget)
   
7.              pt (getpoint "\n基点:")
   
8.              ang (getangle "\n旋转角度:")
   
9.              i 0)
   
10.   (repeat (sslength ss)
    
11.     (setq e (ssname ss i)
    
12.              i (1+ i)
    
13.              el (entget e)
    
14.              en (cdr(assoc 0 el))
    
15.              txtang (if (member en '("TEXT" "MTEXT")) (assoc 50 el) nil))
    
16.     (vl-cmdf ".rotate" e "" pt (angtos ang 0 4))
    
17.     (if txtang
    
18.       (progn (setq el2 (entget e))
    
19.                 (entmod (subst txtang (assoc 50 el2) el2))
    
20.   )))
    
21.   (vl-cmdf ".undo" "e")(princ)
    
22. )
    

<br /> (defun c:rt-txt ()<br />   (vl-cmdf ".undo" "be")<br />   (princ "\n 选择实体:")<br />   (setq ss (ssget)<br />              pt (getpoint "\n基点:")<br />              ang (getangle "\n旋转角度:")<br />              i 0)<br />   (repeat (sslength ss)<br />     (setq e (ssname ss i)<br />              i (1+ i)<br />              el (entget e)<br />              en (cdr(assoc 0 el))<br />              txtang (if (member en '("TEXT" "MTEXT")) (assoc 50 el) nil))<br />     (vl-cmdf ".rotate" e "" pt (angtos ang 0 4))<br />     (if txtang<br />       (progn (setq el2 (entget e))<br />                 (entmod (subst txtang (assoc 50 el2) el2))<br />   )))<br />   (vl-cmdf ".undo" "e")(princ)<br /> )<br />