点监视器XDRX_PointMonitor应用（2）动态拖动旋转填充实体保持填充的角度不变

newer

动态拖动旋转填充实体保持填充的角度不变

1. (defun c:tt ()
   
2.   (defun _callback (dynpt)
   
3.     (setq mat (xdrx_matrix_identity 3)
   
4.           m (xdrx_matrix_setrotation mat (angle pt dynpt) '(0 0 1) pt);;旋转变换矩阵，基点PT
   
5.     )
   
6.     (if (not (equal dynpt lastpnt 1e-3));;如果点变化了执行
   
7.       (progn
   
8.         (xdrx_entity_delete e1);;删除临时的旋转块
   
9.         (xdrx_entity_transformedcopy e m);;原块旋转矩阵作用生成新的临时块
   
10.         (setq e1 (entlast))
    
11.         (xdrx_setpropertyvalue e1 "patternangle" ang)
    
12. 
    
13.       )
    
14.     )
    
15.     (setq lastpnt dynpt);;保存上次鼠标的位置
    
16.   )
    
17.   (if (and
    
18.         (setq e (car (xdrx_entsel "\n拾取填充<退出>:" '((0 . "hatch")
    
19.                                   )
    
20.                      )
    
21.                 )
    
22.         )
    
23.         (setq pt (getpoint "\n旋转基点<退出>:"))
    
24.       )
    
25.     (progn
    
26.       (xdrx_begin)
    
27.       (setq e1 (xdrx_object_clone e))
    
28.       (setq ang (xdrx_getpropertyvalue e "patternangle"))
    
29.       (xdrx_pointmonitor "_callback") ;;点监视器，回调函数_callback
    
30.       (if (getpoint pt)
    
31.         (progn
    
32.           (xdrx_entity_delete e)  ;;删除原对象
    
33.           (xdrx_object_swapid e1 e);;旋转的块ID变成原块的ID
    
34.         )
    
35.       )
    
36.       (xdrx_pointmonitor);;结束点监视器
    
37.       (xdrx_end)
    
38.     )
    
39.   )
    
40. )
    
41. 
    

(defun c:tt ()<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 />         (xdrx_setpropertyvalue e1 "patternangle" ang)<br /> <br />       )<br />     )<br />     (setq lastpnt dynpt);;保存上次鼠标的位置<br />   )<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n拾取填充<退出>:" '((0 . "hatch")<br />                                   )<br />                      )<br />                 )<br />         )<br />         (setq pt (getpoint "\n旋转基点<退出>:"))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (setq e1 (xdrx_object_clone e))<br />       (setq ang (xdrx_getpropertyvalue e "patternangle"))<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 /> <br />

ko05050

学习 学习