旋转属性块同时确保属性文字角度始终保持水平

newer

旋转属性块同时确保属性文字角度始终保持水平

下面代码实现上面图片的演示效果，做了详细的注释。

1. (defun c:tt ()
   
2.   (defun _attrib (e)
   
3.     (setq attribs (xdrx_getpropertyvalue e "AttributeEntities"))
   
4.     (mapcar
   
5.       '(lambda (x)
   
6.          (setq box (xdrx_text_box x);;属性实体的文字包围框
   
7.                cen (xd::geom:get9pt x 5);;中心点
   
8.          )
   
9.          (xdrx_entity_align x cen (polar cen (angle (car box)(cadr box)) 10.0) cen (polar cen 0.0 10.0));;对齐变换矩阵，文字角度始终0度
   
10.       )
    
11.       attribs
    
12.     )
    
13.   )
    
14.   (defun _callback (dynpt)
    
15.     (setq mat (xdrx_matrix_identity 3)
    
16.           m (xdrx_matrix_setrotation mat (angle pt dynpt) '(0 0 1) pt);;旋转变换矩阵，基点PT
    
17.     )
    
18.     (if (not (equal dynpt lastpnt 1e-3));;如果点变化了执行
    
19.       (progn
    
20.         (xdrx_entity_delete e1);;删除临时的旋转块
    
21.         (xdrx_entity_transformedcopy e m);;原块旋转矩阵作用生成新的临时块
    
22.         (setq e1 (entlast))
    
23.         (_attrib e1) ;;处理块中所有的属性实体角度始终0度
    
24.       )
    
25.     )
    
26.     (setq lastpnt dynpt);;保存上次鼠标的位置
    
27.   )
    
28.   (if (and
    
29.         (setq e (car (xdrx_entsel "\n拾取属性块<退出>:" '((0 . "insert")
    
30.                                    (66 . 1)
    
31.                                   )
    
32.                      )
    
33.                 )
    
34.         )
    
35.         (setq pt (getpoint "\n旋转基点<退出>:"))
    
36.       )
    
37.     (progn
    
38.       (xdrx_begin)
    
39.       (setq e1 (xdrx_object_clone e))
    
40.       (xdrx_pointmonitor "_callback") ;;点监视器，回调函数_callback
    
41.       (if (getpoint pt)
    
42.         (progn
    
43.           (xdrx_entity_delete e)  ;;删除原对象
    
44.           (xdrx_object_swapid e1 e);;旋转的块ID变成原块的ID
    
45.         )
    
46.       )
    
47.       (xdrx_pointmonitor);;结束点监视器
    
48.       (xdrx_end)
    
49.     )
    
50.   )
    
51. )
    

(defun c:tt ()<br />   (defun _attrib (e)<br />     (setq attribs (xdrx_getpropertyvalue e "AttributeEntities"))<br />     (mapcar<br />       '(lambda (x)<br />          (setq box (xdrx_text_box x);;属性实体的文字包围框<br />                cen (xd::geom:get9pt x 5);;中心点<br />          )<br />          (xdrx_entity_align x cen (polar cen (angle (car box)(cadr box)) 10.0) cen (polar cen 0.0 10.0));;对齐变换矩阵，文字角度始终0度<br />       )<br />       attribs<br />     )<br />   )<br />   (defun _callback (dynpt)<br />     (setq mat (xdrx_matrix_identity 3)<br />           m (xdrx_matrix_setrotation mat (angle pt dynpt) '(0 0 1) pt);;旋转变换矩阵，基点PT<br />     )<br />     (if (not (equal dynpt lastpnt 1e-3));;如果点变化了执行<br />       (progn<br />         (xdrx_entity_delete e1);;删除临时的旋转块<br />         (xdrx_entity_transformedcopy e m);;原块旋转矩阵作用生成新的临时块<br />         (setq e1 (entlast))<br />         (_attrib e1) ;;处理块中所有的属性实体角度始终0度<br />       )<br />     )<br />     (setq lastpnt dynpt);;保存上次鼠标的位置<br />   )<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n拾取属性块<退出>:" '((0 . "insert")<br />                                    (66 . 1)<br />                                   )<br />                      )<br />                 )<br />         )<br />         (setq pt (getpoint "\n旋转基点<退出>:"))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (setq e1 (xdrx_object_clone e))<br />       (xdrx_pointmonitor "_callback") ;;点监视器，回调函数_callback<br />       (if (getpoint pt)<br />         (progn<br />           (xdrx_entity_delete e)  ;;删除原对象<br />           (xdrx_object_swapid e1 e);;旋转的块ID变成原块的ID<br />         )<br />       )<br />       (xdrx_pointmonitor);;结束点监视器<br />       (xdrx_end)<br />     )<br />   )<br /> )<br />

q3_2006

(defun c:tt ( / ang att n obj pa pb pc ss)
  (setq ang (angle '(0 0 0) (getvar 'ucsxdir)))
  (if (setq ss (ssget '((0 . "insert") (66 . 1))))
    (repeat (setq n (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
      (foreach att (vlax-invoke obj 'GetAttributes)
       (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list att 'pa 'pb))))
      (progn
       (setq pa (vlax-safearray->list pa)
        pb (vlax-safearray->list pb)
        pc (mapcar '* '(0.5 0.5 0.5) (mapcar '+ pa pb))
       )
       (vla-rotate att (vlax-3d-point pc) (- ang (vla-get-Rotation att)))
   )  
       )
        )
      )
    )
  (princ)
  )

newer

q3_2006 发表于 2016-9-10 17:23
(defun c:tt ( / ang att n obj ss)
  (setq ang (angle '(0 0 0) (getvar 'ucsxdir)))
  (if (setq ss ( ...

再完善下代码吧，测试可以旋转属性到水平，但是位置变了，应该是围绕着文字的中心点旋转，看下图：
你的代码结果是右上边的图形。

q3_2006

newer 发表于 2016-9-10 17:41
再完善下代码吧，测试可以旋转属性到水平，但是位置变了，应该是围绕着文字的中心点旋转，看下图：
你的 ...

加上了.....

Lisphk

q3_2006 发表于 2016-9-10 18:17
加上了.....

用你的代码测试了下，结果对了，看两位高手论剑受益匪浅。要是再加上LISP的GRREAD完成动态拖动显示效果，就更造福了。

q3_2006

Lisphk 发表于 2016-9-10 18:29
用你的代码测试了下，结果对了，看两位高手论剑受益匪浅。要是再加上LISP的GRREAD完成动态拖动显示效果， ...

矩阵我是一点不懂的...比不了...

newer

q3_2006 发表于 2016-9-10 18:33
矩阵我是一点不懂的...比不了...

开车不一定要会修车，知道怎么用函数就够了。

q3_2006

抄点矩阵函数用还是可以的...代码加了个判断...属性可能是空值...没有外包框的...