如何从选择集中过滤块对象？

fengyu6913

如何从选择集中过滤块对象？


(setq ss1 (ssget))
(setq ss2 ( 从ss1中过滤块对象？))

飞雪神光

1. (setq ss1 (ssget))
   
2. (setq ss2 (ssget "p" '((0 . "INSERT"))))

(setq ss1 (ssget))<br /> (setq ss2 (ssget "p" '((0 . "INSERT"))))

vitalgg

2. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
3. 
   
4. (pickset:from-list
   
5.   (vl-remove-if-not
   
6.     '(lambda (x) (string-equal "insert" (entity:getdxf x 0)))
   
7.     (pickset:to-list ss1)))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> <br /> (pickset:from-list <br />   (vl-remove-if-not <br />     '(lambda (x) (string-equal "insert" (entity:getdxf x 0)))<br />     (pickset:to-list ss1)))

如果无法播放，请点击此处在新窗口打开

fengyu6913

感谢各位大佬的帮助与分享！