Modent 和setpropertyvalue 对于属性块操作疑问

brainstorm

Xdrx_modent 10和xdrx_setpropertyvalue insertionpoint 操作属性快，仅属性块图元插入点改变，而块内属性字位置不改变，为何？

newer

把你的代码完整的贴上来，是不是你只是对块实体进行了操作？

Lispboy

ARX操作对象，都是只操作指定的对象，这样最大的灵活组合函数的功能

对图块是这样，图块的函数只对图块起作用，要对属性起作用，额外加代码处理属性。见下面代码

1. (defun c:tt ()
   
2.   (if (and (setq e (car        (xdrx_entsel
   
3.                           "\n拾取属性图块<退出>:"
   
4.                           '((0 . "INSERT") (66 . 1))
   
5.                         )
   
6.                    )
   
7.            )
   
8.            (setq p1 (getpoint "\n图块插入点<退出>:"))
   
9.       )
   
10.     (progn
    
11.       (mapcar 'set
    
12.               '(base atts)
    
13.               (xdrx_getpropertyvalue e "position" "attributeEntities")
    
14.       )
    
15.       (xdrx_setpropertyvalue e "position" p1)
    
16.       (mapcar '(lambda (x)
    
17.                 (xdrx_entity_move x base p1)
    
18.               )
    
19.              atts
    
20.       )
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    
25. 
    

(defun c:tt ()<br />   (if (and (setq e (car        (xdrx_entsel<br />                           "\n拾取属性图块<退出>:"<br />                           '((0 . "INSERT") (66 . 1))<br />                         )<br />                    )<br />            )<br />            (setq p1 (getpoint "\n图块插入点<退出>:"))<br />       )<br />     (progn<br />       (mapcar 'set<br />               '(base atts)<br />               (xdrx_getpropertyvalue e "position" "attributeEntities")<br />       )<br />       (xdrx_setpropertyvalue e "position" p1)<br />       (mapcar '(lambda (x)<br />                 (xdrx_entity_move x base p1)<br />               )<br />              atts<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

Lispboy

newer 发表于 2017-8-15 08:50

如果想属性块和属性文字整体操作，别用 xdrx_setpropertyvalue设置插入点，用  平移矩阵作用到块实体，用 xdrx_entity_transform 或者 xdrx_entity_transformedcopy

1. (defun c:tt ()
   
2.   (if (and (setq e (car        (xdrx_entsel
   
3.                           "\n拾取属性图块<退出>:"
   
4.                           '((0 . "INSERT") (66 . 1))
   
5.                         )
   
6.                    )
   
7.            )
   
8.            (setq p1 (getpoint "\n插入点<退出>:"))
   
9.       )
   
10.     (progn (setq m (xdrx_matrix_identity 3)
    
11.                  m (xdrx_matrix_settranslation
    
12.                      mat
    
13.                      (mapcar '- p1 (xdrx_getpropertyvalue e "position"))
    
14.                    )
    
15.            )
    
16.            (xdrx_entity_transform e m)
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:tt ()<br />   (if (and (setq e (car        (xdrx_entsel<br />                           "\n拾取属性图块<退出>:"<br />                           '((0 . "INSERT") (66 . 1))<br />                         )<br />                    )<br />            )<br />            (setq p1 (getpoint "\n插入点<退出>:"))<br />       )<br />     (progn (setq m (xdrx_matrix_identity 3)<br />                  m (xdrx_matrix_settranslation<br />                      mat<br />                      (mapcar '- p1 (xdrx_getpropertyvalue e "position"))<br />                    )<br />            )<br />            (xdrx_entity_transform e m)<br />     )<br />   )<br />   (princ)<br /> )

或者高级封装矩阵操作的 xdrx_entity_move 或者 xdrx_entity_copy

1. (defun c:tt ()
   
2.   (if (and (setq e (car        (xdrx_entsel
   
3.                           "\n拾取属性图块<退出>:"
   
4.                           '((0 . "INSERT") (66 . 1))
   
5.                         )
   
6.                    )
   
7.            )
   
8.            (setq p1 (getpoint "\n插入点<退出>:"))
   
9.       )
   
10.     (progn (xdrx_getpropertyvalue e "position")
    
11.            (xdrx_entity_move e #position p1)
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    
16. 
    

(defun c:tt ()<br />   (if (and (setq e (car        (xdrx_entsel<br />                           "\n拾取属性图块<退出>:"<br />                           '((0 . "INSERT") (66 . 1))<br />                         )<br />                    )<br />            )<br />            (setq p1 (getpoint "\n插入点<退出>:"))<br />       )<br />     (progn (xdrx_getpropertyvalue e "position")<br />            (xdrx_entity_move e #position p1)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

brainstorm

谢谢啦 矩阵我不明白 学习一下