用lisp怎么样修改属性块中文字的角度？

nono

要修改的图

nono

meflying

9楼的程序 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=28291

nono

能不能就是把图旋转90度后，让程序自动把文字的角度旋转过来 ，但那样就用不成nentsel命令了，请指教！

meflying

传一个有块的图(DWG),然后说明一下哪几种情况下,要旋转角度,要怎么转...

nono

meflying

直接用这个程序来旋转...不过你的属性块有问题,一移动,位置就会跑

2. (defun c:test( / ent ents ss i)
3.    (command "_.rotate" (ssget) "")
4.    (while (= (getvar "cmdactive") 1)
5.        (command pause)
6.    )
7.    (setq ss (ssget "p" '((0 . "INSERT") (2 . "CABLEEND_DOWN"))))
8.    (setq i 0)
9.    (repeat (sslength ss)
10.        (setq ent (ssname ss i))
11.        (setq m t)
12.        (while m
13.            (setq ent (entnext ent))
14.            (setq ents (entget ent))
15.            (if (= (cdr (assoc 0 ents)) "ATTRIB")
16.   (progn
17.      (setq ents (subst (cons 50 0.0) (assoc 50 ents) ents))
18.      (entmod ents)
19.      (entupd ent)
20.   )
21.            )
22.            (if (= (cdr (assoc 0 ents)) "SEQEND")
23.   (setq m nil)
24.            )
25.        )
26.        (setq i (1+ i))
27.    )
28.    (princ)
29. )

(defun c:test( / ent ents ss i)    (command "_.rotate" (ssget) "")    (while (= (getvar "cmdactive") 1)        (command pause)    )    (setq ss (ssget "p" '((0 . "INSERT") (2 . "CABLEEND_DOWN"))))    (setq i 0)    (repeat (sslength ss)        (setq ent (ssname ss i))        (setq m t)        (while m            (setq ent (entnext ent))            (setq ents (entget ent))            (if (= (cdr (assoc 0 ents)) "ATTRIB")   (progn      (setq ents (subst (cons 50 0.0) (assoc 50 ents) ents))      (entmod ents)      (entupd ent)   )            )            (if (= (cdr (assoc 0 ents)) "SEQEND")   (setq m nil)            )        )        (setq i (1+ i))    )    (princ) )