请问如何取得用多线裁剪视口后和视口完全重合并总是一起选中的那条多段线

清风明月10

请问如何取得用多线裁剪视口后和视口完全重合并总是一起选中的那条多段线。因为视口我是不打印的，所以伴随它的那条多线我也要用LISP代码将它转入不打印的图层中。

请点击此处下载

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

您的用户组是：游客

文件名称:调试LISP代码用.rar 
下载次数:4  文件大小:58.07 KB 
下载权限: 不限 以上  [免费赚D豆]

st788796

1. (defun c:tt (/ ss i vp el)
   
2.   (if (setq ss (ssget "x" '((0 . "viewport"))))
   
3.     (progn
   
4.       (setq i -1)
   
5.       (repeat (sslength ss)
   
6.         (setq vp (ssname ss (setq i (1+ i)))
   
7.               el (entget vp)
   
8.         )
   
9.         (if (= (logand (cdr (assoc 90 el)) 65536) 65536)
   
10.           (vla-put-layer
    
11.             (vlax-ename->vla-object (cdr (assoc 340 el)))
    
12.             "$temp" ;_自己修改为非打印图层名
    
13.           )
    
14.         )
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    

(defun c:tt (/ ss i vp el)<br />   (if (setq ss (ssget "x" '((0 . "viewport"))))<br />     (progn<br />       (setq i -1)<br />       (repeat (sslength ss)<br />         (setq vp (ssname ss (setq i (1+ i)))<br />               el (entget vp)<br />         )<br />         (if (= (logand (cdr (assoc 90 el)) 65536) 65536)<br />           (vla-put-layer<br />             (vlax-ename->vla-object (cdr (assoc 340 el)))<br />             "$temp" ;_自己修改为非打印图层名<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />