属性跟着图块旋转但文字方向固定实现代码

newer

正常的带属性图块的旋转，属性会和图块一起旋转的，

如下图：



上面实现的代码如下，使用了点监视器和矩阵变换

1. (defun c:tt ()
   
2.   (defun _callback (dypnt)
   
3.     (if        (not (equal dypnt lastpnt 1e-3))
   
4.       (progn (setq rot (angle ori dypnt))
   
5.              (setq mat (xdrx_matrix_setrotation (setq rot (rem (- rot lastang) (* 2 pi))) '(0 0 1) ori))
   
6.              (xdrx_entity_transform e mat)
   
7.              (redraw)
   
8.              (xdrx_grdraw 1 1 ori dypnt)
   
9.       )
   
10.     )
    
11.     (setq lastpnt dypnt lastang (angle ori dypnt))
    
12.   )
    
13.   (if (setq e (xdrx_entsel "\n拾取块<退出>:" '((0 . "insert"))))
    
14.     (progn (setq pt        (cadr e)
    
15.                  e        (car e)
    
16.                  ori        (xdrx_getpropertyvalue e "position")
    
17.                  refvec        (angle ori pt)
    
18.                  ang        (xdrx_getpropertyvalue e "rotation")
    
19.                  lastang (angle ori pt)
    
20.                  atts (xdrx_getpropertyvalue e "attributeentities")
    
21.            )
    
22.            (xdrx_pointmonitor "_callback")
    
23.            (getpoint)
    
24.            (xdrx_pointmonitor)
    
25.     )
    
26.   )
    
27.   (redraw)
    
28.   (princ)
    
29. )
    
30. 
    

(defun c:tt ()<br />   (defun _callback (dypnt)<br />     (if        (not (equal dypnt lastpnt 1e-3))<br />       (progn (setq rot (angle ori dypnt))<br />              (setq mat (xdrx_matrix_setrotation (setq rot (rem (- rot lastang) (* 2 pi))) '(0 0 1) ori))<br />              (xdrx_entity_transform e mat)<br />              (redraw)<br />              (xdrx_grdraw 1 1 ori dypnt)<br />       )<br />     )<br />     (setq lastpnt dypnt lastang (angle ori dypnt))<br />   )<br />   (if (setq e (xdrx_entsel "\n拾取块<退出>:" '((0 . "insert"))))<br />     (progn (setq pt        (cadr e)<br />                  e        (car e)<br />                  ori        (xdrx_getpropertyvalue e "position")<br />                  refvec        (angle ori pt)<br />                  ang        (xdrx_getpropertyvalue e "rotation")<br />                  lastang (angle ori pt)<br />                  atts (xdrx_getpropertyvalue e "attributeentities")<br />            )<br />            (xdrx_pointmonitor "_callback")<br />            (getpoint)<br />            (xdrx_pointmonitor)<br />     )<br />   )<br />   (redraw)<br />   (princ)<br /> )<br /> <br />

那么问题来了，如果属性随着图块旋转的过程中，如何让文字的方向始终固定呢？ 就如属性绕着块旋转，数字文字本身也自转回原来的方向，就如月亮始终保持一面面向地球一样。

上面的代码，随着鼠标，属性和图块一起旋转，每次旋转了rot角度， 如果同时，让属性文字绕着自身的中点逆旋转-rot角度，那么就能让属性文字方向始终固定了。

下面的代码，比上面的代码仅仅多了几行，在图块和属性作用旋转变换矩阵旋转后

1. (mapcar '(lambda(x)
   
2.                         (setq ori1 (xdrx_getpropertyvalue x "9pt" 5)
   
3.                               mat1(xdrx_matrix_setrotation (- rot) '(0 0 1) ori1));构建属性旋转变换矩阵,属性逆旋转-rot,回到原来的方向
   
4.                         (xdrx_entity_transform x mat1)) atts)
   
5. 
   

(mapcar '(lambda(x)<br />                         (setq ori1 (xdrx_getpropertyvalue x "9pt" 5)<br />                               mat1(xdrx_matrix_setrotation (- rot) '(0 0 1) ori1));构建属性旋转变换矩阵,属性逆旋转-rot,回到原来的方向<br />                         (xdrx_entity_transform x mat1)) atts)<br /> <br />

上面代码atts变量是所有的属性实体名表，mapcar循环处理每个属性，找出每个属性的中心点，然后构建一个绕着中心点旋转-rot的变换矩阵作用到属性实体上就可以了。

下面是结果的动图：



实现的完整代码：

1. (defun c:tt ()
   
2.   (defun _callback (dypnt)
   
3.     (if        (not (equal dypnt lastpnt 1e-3))
   
4.       (progn (setq rot (angle ori dypnt))
   
5.              (setq mat (xdrx_matrix_setrotation (setq rot (rem (- rot lastang) (* 2 pi))) '(0 0 1) ori));构建旋转变换矩阵
   
6.              (xdrx_entity_transform e mat);矩阵变换，块和属性都正常旋转角度rot
   
7.              (mapcar '(lambda(x)
   
8.                         (setq ori1 (xdrx_getpropertyvalue x "9pt" 5)
   
9.                               mat1(xdrx_matrix_setrotation (- rot) '(0 0 1) ori1));构建属性旋转变换矩阵,属性逆旋转-rot,回到原来的方向
   
10.                         (xdrx_entity_transform x mat1)) atts)
    
11.              (redraw)
    
12.              (xdrx_grdraw 1 1 ori dypnt)
    
13.       )
    
14.     )
    
15.     (setq lastpnt dypnt lastang (angle ori dypnt))
    
16.   )
    
17.   (if (setq e (xdrx_entsel "\n拾取块<退出>:" '((0 . "insert"))))
    
18.     (progn (setq pt        (cadr e)
    
19.                  e        (car e)
    
20.                  ori        (xdrx_getpropertyvalue e "position")
    
21.                  refvec        (angle ori pt)
    
22.                  ang        (xdrx_getpropertyvalue e "rotation")
    
23.                  lastang (angle ori pt)
    
24.                  atts (xdrx_getpropertyvalue e "attributeentities")
    
25.            )
    
26.            (xdrx_pointmonitor "_callback")
    
27.            (getpoint)
    
28.            (xdrx_pointmonitor)
    
29.     )
    
30.   )
    
31.   (redraw)
    
32.   (princ)
    
33. )

(defun c:tt ()<br />   (defun _callback (dypnt)<br />     (if        (not (equal dypnt lastpnt 1e-3))<br />       (progn (setq rot (angle ori dypnt))<br />              (setq mat (xdrx_matrix_setrotation (setq rot (rem (- rot lastang) (* 2 pi))) '(0 0 1) ori));构建旋转变换矩阵<br />              (xdrx_entity_transform e mat);矩阵变换，块和属性都正常旋转角度rot<br />              (mapcar '(lambda(x)<br />                         (setq ori1 (xdrx_getpropertyvalue x "9pt" 5)<br />                               mat1(xdrx_matrix_setrotation (- rot) '(0 0 1) ori1));构建属性旋转变换矩阵,属性逆旋转-rot,回到原来的方向<br />                         (xdrx_entity_transform x mat1)) atts)<br />              (redraw)<br />              (xdrx_grdraw 1 1 ori dypnt)<br />       )<br />     )<br />     (setq lastpnt dypnt lastang (angle ori dypnt))<br />   )<br />   (if (setq e (xdrx_entsel "\n拾取块<退出>:" '((0 . "insert"))))<br />     (progn (setq pt        (cadr e)<br />                  e        (car e)<br />                  ori        (xdrx_getpropertyvalue e "position")<br />                  refvec        (angle ori pt)<br />                  ang        (xdrx_getpropertyvalue e "rotation")<br />                  lastang (angle ori pt)<br />                  atts (xdrx_getpropertyvalue e "attributeentities")<br />            )<br />            (xdrx_pointmonitor "_callback")<br />            (getpoint)<br />            (xdrx_pointmonitor)<br />     )<br />   )<br />   (redraw)<br />   (princ)<br /> )

附加问题：如果只想让图块旋转，属性不动如何实现？

答案就是只设置图块的旋转角就行了。

1. (defun c:tt ()
   
2.   (defun _callback (dypnt)
   
3.     (if        (not (equal dypnt lastpnt 1e-3))
   
4.       (progn (setq rot (angle ori dypnt)
   
5.                    rot (- rot refvec))
   
6.              (xdrx_setpropertyvalue e "rotation" (rem (+ ang rot) (* 2 pi)))
   
7.              (redraw)
   
8.              (xdrx_grdraw 1 1 ori dypnt)
   
9.       )
   
10.     )
    
11.     (setq lastpnt dypnt)
    
12.   )
    
13.   (if (setq e (xdrx_entsel "\n拾取块<退出>:" '((0 . "insert"))))
    
14.     (progn (setq pt        (cadr e)
    
15.                  e        (car e)
    
16.                  ori        (xdrx_getpropertyvalue e "position")
    
17.                  refvec        (angle ori pt)
    
18.                  ang        (xdrx_getpropertyvalue e "rotation")
    
19.                  lastpnt '(0 0 0)
    
20.            )
    
21.            (xdrx_pointmonitor "_callback")
    
22.            (getpoint)
    
23.            (xdrx_pointmonitor)
    
24.     )
    
25.   )
    
26.   (redraw)
    
27.   (princ)
    
28. )
    
29. 
    

(defun c:tt ()<br />   (defun _callback (dypnt)<br />     (if        (not (equal dypnt lastpnt 1e-3))<br />       (progn (setq rot (angle ori dypnt)<br />                    rot (- rot refvec))<br />              (xdrx_setpropertyvalue e "rotation" (rem (+ ang rot) (* 2 pi)))<br />              (redraw)<br />              (xdrx_grdraw 1 1 ori dypnt)<br />       )<br />     )<br />     (setq lastpnt dypnt)<br />   )<br />   (if (setq e (xdrx_entsel "\n拾取块<退出>:" '((0 . "insert"))))<br />     (progn (setq pt        (cadr e)<br />                  e        (car e)<br />                  ori        (xdrx_getpropertyvalue e "position")<br />                  refvec        (angle ori pt)<br />                  ang        (xdrx_getpropertyvalue e "rotation")<br />                  lastpnt '(0 0 0)<br />            )<br />            (xdrx_pointmonitor "_callback")<br />            (getpoint)<br />            (xdrx_pointmonitor)<br />     )<br />   )<br />   (redraw)<br />   (princ)<br /> )<br /> <br />

sh_h

高，实在是高！！！

kswym88888`

谢谢楼主。这些真是好东西啊，让大家学习LISP!

137407536

测试反馈，修改了 公司指南针块为ATT属性块 进行测试
发现命令选择块的时候，鼠标点选处就是旋转角度参考点导致旋转后的角度有点难把握
以及旋转过程中按到ESC键。直接CAD崩溃
旋转成功后，Ctrl+1中把旋转数值调回0，图块恢复默认角度，att文字没有恢复
CAD是16版，代码是第二个代码

newer

137407536 发表于 2019-2-25 11:38
测试反馈，修改了 公司指南针块为ATT属性块 进行测试
发现命令选择块的时候，鼠标点选处就是旋转角度参考 ...

请把你的DWG传上来下，看看

137407536

137407536

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:Drawing1.rar 
下载次数:4  文件大小:40.92 KB 
下载权限: 不限 以上  [免费赚D豆]

newer

137407536 发表于 2019-2-25 14:15

用UCS坐标系控制

aisong220

marting

137407536 发表于 2019-2-25 14:13

通过选择基点，画一个临时的东的线， 然后你旋转，捕捉就行了