再谈 Vlisp方法中的 SetMark 和 GetSS

eachy

以下方法仅适用 ModelSpace
设置标记

2. 
   
3. (defun setmark (/ e)
   
4.   (if (setq e (entlast));_存在 实体 时才标记
   
5.     (setq #mark (vlax-ename->vla-object e))
   
6.   )
   
7. )
   

<br /> (defun setmark (/ e)<br />   (if (setq e (entlast));_存在 实体 时才标记<br />     (setq #mark (vlax-ename->vla-object e))<br />   )<br /> )<br />

获取标记后Object列表，注意标记实体是否存在和是否删除

2. 
   
3. (defun getss (/ ms n obj olst)
   
4.   (setq        ms (vla-get-modelspace
   
5.              (vla-get-activedocument (vlax-get-acad-object))
   
6.            )
   
7.   )
   
8.   (if #mark;_是否存在标记Object
   
9.     (if        (not (vlax-erased-p #mark));_标记Object是否删除
   
10.       (progn
    
11.         (setq n (vla-get-count ms))
    
12.         (while (not (equal (setq obj (vla-item ms (setq n (1- n)))) #mark));_往前数数
    
13.           (setq olst (cons obj olst))
    
14.         )
    
15.         (setq #mark nil);_获取后将标记Object清空
    
16.         olst
    
17.       )
    
18.     )
    
19.     (prong;_不存在标记就是全选即
    
20.       (vlax-for        obj ms
    
21.         (setq olst (cons obj olst))
    
22.       )
    
23.       (reverse olst)
    
24.     )
    
25.   )
    
26. )

<br /> (defun getss (/ ms n obj olst)<br />   (setq        ms (vla-get-modelspace<br />              (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />   )<br />   (if #mark;_是否存在标记Object<br />     (if        (not (vlax-erased-p #mark));_标记Object是否删除<br />       (progn<br />         (setq n (vla-get-count ms))<br />         (while (not (equal (setq obj (vla-item ms (setq n (1- n)))) #mark));_往前数数<br />           (setq olst (cons obj olst))<br />         )<br />         (setq #mark nil);_获取后将标记Object清空<br />         olst<br />       )<br />     )<br />     (prong;_不存在标记就是全选即<br />       (vlax-for        obj ms<br />         (setq olst (cons obj olst))<br />       )<br />       (reverse olst)<br />     )<br />   )<br /> )