所有文字自身旋转180度,怎么写各位大佬

357785513

所有文字自身旋转180度,怎么写各位大佬.

llsheng_73

把50组加180度
(setq ss(ssget'((0 . "TEXT"))))
(if ss(progn
       (setq m(sslength ss)n 0)
       (while(< n m)
           (entmod(setq en(entget(ssname ss n))
   n(1+ n)
   en(subst(cons 50(+(cdr(assoc 50 en))pi))(assoc 50 en)en))))))

wuqiu1986

二楼的方法也可以，但是那样做有一个坏处，就是旋转180之后，文字的位置就变了。你这可以试试这个，不光文字，其他的也行，原地翻转180.

2. (defun c:gfz (/  cmn osn  ss i n ssn ssndata ssnsty pt ptmin ptmax cenpt
   
3.         *error* msg)
   
4.   (defun *error* (msg)
   
5.     (if
   
6.       (wcmatch msg "; 错误:,函数被取消")
   
7.        (progn
   
8.    (setvar 'cmdecho cmn)
   
9.    (setvar 'osmode osn)
   
10.    (princ)
    
11.        )
    
12.        (princ msg)
    
13.     )
    
14.   )
    
15.   (setq cmn (getvar 'cmdecho))
    
16.   (setq osn (getvar 'osmode))
    
17.   (setvar 'cmdecho 0)
    
18.   (setvar 'osmode 0)
    
19.   (princ"\n选择要原地反转的对象：")
    
20.   (setq ss (ssget ))
    
21.   (setq i 0)
    
22.   (setq n (sslength ss))
    
23.   (repeat n
    
24.     (setq ssn (vlax-ename->vla-object (ssname ss i)))
    
25.     (vla-GetBoundingBox ssn 'ptmax 'ptmin)
    
26.     (setq pt (mapcar '(lambda (a b) (/ (+ a b) 2))
    
27.          (vlax-safearray->list ptmax)
    
28.          (vlax-safearray->list ptmin)
    
29.        )
    
30.     )
    
31.     (vlax-invoke-method
    
32.       ssn
    
33.       'rotate
    
34.       (vlax-3d-point pt)
    
35.       pi
    
36.     )
    
37.     (setq i (1+ i))
    
38.   )
    
39.   (command "ucs" "")
    
40.   (setvar 'cmdecho cmn)
    
41.   (setvar 'osmode osn)
    
42.   (princ "\n命令：GFZ，BY gruel: 稀粥。")
    
43.   (princ)
    
44. )

(defun c:gfz (/  cmn osn  ss i n ssn ssndata ssnsty pt ptmin ptmax cenpt<br />         *error* msg)<br />   (defun *error* (msg)<br />     (if<br />       (wcmatch msg "; 错误:,函数被取消")<br />        (progn<br />    (setvar 'cmdecho cmn)<br />    (setvar 'osmode osn)<br />    (princ)<br />        )<br />        (princ msg)<br />     )<br />   )<br />   (setq cmn (getvar 'cmdecho))<br />   (setq osn (getvar 'osmode))<br />   (setvar 'cmdecho 0)<br />   (setvar 'osmode 0)<br />   (princ"\n选择要原地反转的对象：")<br />   (setq ss (ssget ))<br />   (setq i 0)<br />   (setq n (sslength ss))<br />   (repeat n<br />     (setq ssn (vlax-ename->vla-object (ssname ss i)))<br />     (vla-GetBoundingBox ssn 'ptmax 'ptmin)<br />     (setq pt (mapcar '(lambda (a b) (/ (+ a b) 2))<br />          (vlax-safearray->list ptmax)<br />          (vlax-safearray->list ptmin)<br />        )<br />     )<br />     (vlax-invoke-method<br />       ssn<br />       'rotate<br />       (vlax-3d-point pt)<br />       pi<br />     )<br />     (setq i (1+ i))<br />   )<br />   (command "ucs" "")<br />   (setvar 'cmdecho cmn)<br />   (setvar 'osmode osn)<br />   (princ "\n命令：GFZ，BY gruel: 稀粥。")<br />   (princ)<br /> )

357785513

哥太服你了,真棒,谢谢哥,
程序非常给力

yoyoho

感谢 wuqiu1986  分享程序!

香田里浪人

程序非常给力

564837358@qq.co

这个函数是不是还要加上一个判断函数？判断对象能不能GetBoundingBox？其实我想如果该对象没有这个GetBoundingBox 原地反转就无所谓了

海盗曹

学习一下好程序

tianyi1230

海盗曹 发表于 2014-1-24 16:51
学习一下好程序

看来你又开始研究LSP了啊

海盗曹

tianyi1230 发表于 2014-1-24 17:11
看来你又开始研究LSP了啊

木，只是看看。。。