（属性鸡头）旋转属性块而属性文字角度不变

newer

我们知道，使用ACAD的传统方法旋转一个块，属性文字角度是随之改变的。下面代码证实

1. (defun c:tt2 ()
   
2.   (if (and (setq curve (car (xdrx_entsel
   
3.                               "\n拾取个曲线<退出>:"
   
4.                               '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))
   
5.                             )
   
6.                        )
   
7.            )
   
8.            (setq e (car        (xdrx_entsel
   
9.                           "\n拾取属性图块<退出>:"
   
10.                           '((0 . "INSERT") (66 . 1))
    
11.                         )
    
12.                    )
    
13.            )
    
14.       )
    
15.     (progn (setq pts (xdrx_getsamplept curve 1.0))
    
16.            (xdrx_getpropertyvalue e "position")
    
17.            (setq atts (xdrx_getpropertyvalue e "attributeEntities"))
    
18.            (setq mat (xdrx_matrix_identity 3))
    
19.            (setq an 0.0)
    
20.            (setq lastpoint #position)
    
21.            (mapcar '(lambda (x)
    
22.                       (command ".move" e "" lastpoint x)
    
23.                       (xdrx_getpropertyvalue e "position")
    
24.                       (setq lastpoint #position)
    
25.                       (command "rotate" e "" #position 10.0)
    
26.                       (xdrx_sleep 80)
    
27.                       (princ)
    
28.                     )
    
29.                    pts
    
30.            )
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )
    
35. 
    

(defun c:tt2 ()<br />   (if (and (setq curve (car (xdrx_entsel<br />                               "\n拾取个曲线<退出>:"<br />                               '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))<br />                             )<br />                        )<br />            )<br />            (setq e (car        (xdrx_entsel<br />                           "\n拾取属性图块<退出>:"<br />                           '((0 . "INSERT") (66 . 1))<br />                         )<br />                    )<br />            )<br />       )<br />     (progn (setq pts (xdrx_getsamplept curve 1.0))<br />            (xdrx_getpropertyvalue e "position")<br />            (setq atts (xdrx_getpropertyvalue e "attributeEntities"))<br />            (setq mat (xdrx_matrix_identity 3))<br />            (setq an 0.0)<br />            (setq lastpoint #position)<br />            (mapcar '(lambda (x)<br />                       (command ".move" e "" lastpoint x)<br />                       (xdrx_getpropertyvalue e "position")<br />                       (setq lastpoint #position)<br />                       (command "rotate" e "" #position 10.0)<br />                       (xdrx_sleep 80)<br />                       (princ)<br />                     )<br />                    pts<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

下面使用XDRX API，旋转图块，属性文字角度保持不变。



其实很简单，xdrx_setpropertyvalue 函数修改属性块角度的时候，对文字自动保持原来的角度不变。不用额外的处理。

1. (defun c:tt ()
   
2.   (if (and (setq curve (car (xdrx_entsel
   
3.                               "\n拾取个曲线<退出>:"
   
4.                               '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))
   
5.                             )
   
6.                        )
   
7.            )
   
8.            (setq e (car        (xdrx_entsel
   
9.                           "\n拾取属性图块<退出>:"
   
10.                           '((0 . "INSERT") (66 . 1))
    
11.                         )
    
12.                    )
    
13.            )
    
14.       )
    
15.     (progn (setq pts (xdrx_getsamplept curve 1.0))
    
16.            (xdrx_getpropertyvalue e "position")
    
17.            (setq atts (xdrx_getpropertyvalue e "attributeEntities"))
    
18.            (setq mat (xdrx_matrix_identity 3))
    
19.            (setq an 0.0)
    
20.            (mapcar '(lambda (x)
    
21.                       (xdrx_getpropertyvalue e "position")
    
22.                       (setq m
    
23.                              (xdrx_matrix_settranslation mat (mapcar '- x #position))
    
24.                       )
    
25.                       (xdrx_entity_transform e m)
    
26.                       (xdrx_setpropertyvalue
    
27.                         e
    
28.                         "rotation"
    
29.                         (setq an (+ an (/ pi 18)))
    
30.                       )
    
31.                       (xdrx_sleep 80)
    
32.                       (princ)
    
33.                     )
    
34.                    pts
    
35.            )
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )
    
40. 
    

(defun c:tt ()<br />   (if (and (setq curve (car (xdrx_entsel<br />                               "\n拾取个曲线<退出>:"<br />                               '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))<br />                             )<br />                        )<br />            )<br />            (setq e (car        (xdrx_entsel<br />                           "\n拾取属性图块<退出>:"<br />                           '((0 . "INSERT") (66 . 1))<br />                         )<br />                    )<br />            )<br />       )<br />     (progn (setq pts (xdrx_getsamplept curve 1.0))<br />            (xdrx_getpropertyvalue e "position")<br />            (setq atts (xdrx_getpropertyvalue e "attributeEntities"))<br />            (setq mat (xdrx_matrix_identity 3))<br />            (setq an 0.0)<br />            (mapcar '(lambda (x)<br />                       (xdrx_getpropertyvalue e "position")<br />                       (setq m<br />                              (xdrx_matrix_settranslation mat (mapcar '- x #position))<br />                       )<br />                       (xdrx_entity_transform e m)<br />                       (xdrx_setpropertyvalue<br />                         e<br />                         "rotation"<br />                         (setq an (+ an (/ pi 18)))<br />                       )<br />                       (xdrx_sleep 80)<br />                       (princ)<br />                     )<br />                    pts<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

sh_h

这个功能不错，学习了，谢谢大师分享！！！

brainstorm

明白了 各有各的用法 不同条件而定