【布局】删除模型空间视口外的所有实体

newer

拾取视口，视口内的实体保留，模型空间其他实体全部删除。

1. (defun c:tt ()
   
2.   (if (setq e (car (xdrx_entsel
   
3.                      "\n拾取视口<退出>:"
   
4.                      '((0 . "viewport"))
   
5.                    )
   
6.               )
   
7.       )
   
8.     (progn
   
9.       (setq verts (xdrx_getpropertyvalue e "vertices")) ;视口4个角点
   
10.       (setq mat-ps2ms (xdrx_matrix_ps2ms e));图纸空间视口到模型空间的变换矩阵
    
11.       (vl-cmdf "mspace");进入视口的模型空间
    
12.       (setq verts (xdrx_points_transform verts mat-ps2ms));矩阵作用，得到模型空间对应窗口的四个角点
    
13.       (if (and (setq ss (ssget "cp" verts));;CP选择集（窗口内）
    
14.                (setq ss1 (ssget "x" '((410 . "Model"))));模型空间所有实体选择集
    
15.                (setq ss (xdrx_pickset_subtract ss1 ss)));选择集差，得到窗口外的实体选择集
    
16.         (progn
    
17.           (xdrx_entity_delete ss);删除
    
18.         )
    
19.       )
    
20.       (vl-cmdf "pspace");回到视口外
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    

(defun c:tt ()<br />   (if (setq e (car (xdrx_entsel<br />                      "\n拾取视口<退出>:"<br />                      '((0 . "viewport"))<br />                    )<br />               )<br />       )<br />     (progn<br />       (setq verts (xdrx_getpropertyvalue e "vertices")) ;视口4个角点<br />       (setq mat-ps2ms (xdrx_matrix_ps2ms e));图纸空间视口到模型空间的变换矩阵<br />       (vl-cmdf "mspace");进入视口的模型空间<br />       (setq verts (xdrx_points_transform verts mat-ps2ms));矩阵作用，得到模型空间对应窗口的四个角点<br />       (if (and (setq ss (ssget "cp" verts));;CP选择集（窗口内）<br />                (setq ss1 (ssget "x" '((410 . "Model"))));模型空间所有实体选择集<br />                (setq ss (xdrx_pickset_subtract ss1 ss)));选择集差，得到窗口外的实体选择集<br />         (progn<br />           (xdrx_entity_delete ss);删除<br />         )<br />       )<br />       (vl-cmdf "pspace");回到视口外<br />     )<br />   )<br />   (princ)<br /> )<br />

上面代码改改，就是 布局生成单独的DWG。

2767836360

版主，可以帮忙改改就是 布局生成单独的DWG么谢谢。