块分解后获得块内图元选择集

王鹏_pBZlo

函数名称: ss-of-ent
调用格式: (ss-of-ent blk-entity)
blk-entity: 即为需要分解的图块
返回值: 块分解后的块内图元选择集

1. (defun ss-of-ent(ent / lastent nss)
   
2.         (entmake (list (cons 0 "POINT") (list 10 0 0 )))
   
3.         (setq lastent (entlast))
   
4.         (command "explode" ent)
   
5.         (if (= 1 (getvar "cmdactive")) (command ""))
   
6.         (command "undo" "M")
   
7.         (setq nss (ssadd))
   
8.         (while (not (equal (entlast) lastent))
   
9.                 (ssadd (entlast) nss)
   
10.                 (entdel (entlast))
    
11.         )
    
12.         (command "undo" "b")
    
13.         (entdel lastent)
    
14.         nss
    
15. )
    

(defun ss-of-ent(ent / lastent nss)<br />         (entmake (list (cons 0 "POINT") (list 10 0 0 )))<br />         (setq lastent (entlast))<br />         (command "explode" ent)<br />         (if (= 1 (getvar "cmdactive")) (command ""))<br />         (command "undo" "M")<br />         (setq nss (ssadd))<br />         (while (not (equal (entlast) lastent))<br />                 (ssadd (entlast) nss)<br />                 (entdel (entlast))<br />         )<br />         (command "undo" "b")<br />         (entdel lastent)<br />         nss<br /> )<br />

HLCAD

(command "explode" ent)
(setq nss (ssget "_p"))

王鹏_pBZlo

HLCAD 发表于 2020-4-26 10:15
(command "explode" ent)
(setq nss (ssget "_p"))

好像真的是这样啊,是我想的太多了