API应用 矩阵应用之块内实体窗选复制

st788796

代码仅为WCS下的等比块,对非等比块可以用 vla-copyobjects 制作一个新的匿名块, vla-insertblock 后 Transform

1. (defun c:tt (/ e p1 p2 mat box box1 el nel)
   
2.   (if (and (setq e (car (xdrx_entsel "\nPick Insert: " '((0 . "insert")))))
   
3.            (setq p1 (getpoint "\nFirst Corner: "))
   
4.            (setq p2 (getcorner p1 "\nSecond Corner: "))
   
5.       )
   
6.     (progn
   
7.       (setq mat         (xdrx_getpropertyvalue e "BlockTransForm")
   
8.             box         (xdrx_points_box p1 p2)
   
9.             box1 (xdrx_points_transform box (xdrx_matrix_inverse mat))
   
10.             el         (xdrx_getpropertyvalue
    
11.                    (xdrx_getpropertyvalue e "Owner")
    
12.                    "AllEntities"
    
13.                  )
    
14.       )
    
15.       (if (setq        nel
    
16.                  (vl-remove-if-not
    
17.                    '(lambda (x)
    
18.                       (XD::Pnts:IsInPolyWithPnts (xdrx_entity_box x) box1)
    
19.                     )
    
20.                    el
    
21.                  )
    
22.           )
    
23.         (progn
    
24.           (xdrx_setmark)
    
25.           (mapcar '(lambda (x)
    
26.                      (xdrx_entity_transformedcopy x mat)
    
27.                    )
    
28.                   nel
    
29.           )
    
30.           (if (setq ss (xdrx_getss))
    
31.             (vl-cmdf ".move" ss "" p1)
    
32.           )
    
33.         )
    
34.       )
    
35.     )
    
36.   )
    
37.   (princ)
    
38. )

(defun c:tt (/ e p1 p2 mat box box1 el nel)<br />   (if (and (setq e (car (xdrx_entsel "\nPick Insert: " '((0 . "insert")))))<br />            (setq p1 (getpoint "\nFirst Corner: "))<br />            (setq p2 (getcorner p1 "\nSecond Corner: "))<br />       )<br />     (progn<br />       (setq mat         (xdrx_getpropertyvalue e "BlockTransForm")<br />             box         (xdrx_points_box p1 p2)<br />             box1 (xdrx_points_transform box (xdrx_matrix_inverse mat))<br />             el         (xdrx_getpropertyvalue<br />                    (xdrx_getpropertyvalue e "Owner")<br />                    "AllEntities"<br />                  )<br />       )<br />       (if (setq        nel<br />                  (vl-remove-if-not<br />                    '(lambda (x)<br />                       (XD::Pnts:IsInPolyWithPnts (xdrx_entity_box x) box1)<br />                     )<br />                    el<br />                  )<br />           )<br />         (progn<br />           (xdrx_setmark)<br />           (mapcar '(lambda (x)<br />                      (xdrx_entity_transformedcopy x mat)<br />                    )<br />                   nel<br />           )<br />           (if (setq ss (xdrx_getss))<br />             (vl-cmdf ".move" ss "" p1)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

lianghui2018

收藏，予待学习