block:ssget 选择满足指定属性标记及对应值的块

vitalgg

选择满足指定属性标记及对应值的块。
参数：sel-method 参照ssget。当为x时选择全部，无需交互。如需相应的点参数时，需以列表的形式给出如'(\"c\" pt1 pt2)，需手动选择时设为nil。
参数: blknames 块名(支持通配符)，或块名列表,或nil
参数: lst-attr 属性名与值的点对表或nil

1. ;; 用法示例
   
2. (block:ssget nil "块名" nil)  ;; 选择块真实名为  ”块名“ 的块，需手动框选
   
3. (block:ssget "x" "块名" nil)  ;; 选择所有块真实名为  ”块名“ 的块.
   
4. (block:ssget (list "c" (getpoint) (getpoint))  "块名" nil)  ;; 叉选给定两点的矩形框内的块真实名为 ”块名“ 的块.
   
5. (block:ssget (list "w" (getpoint) (getpoint))  "块名" nil)  ;; 窗选给定两点的矩形框内的块真实名为 ”块名“ 的块.
   
6. (block:ssget nil "块名" '(("属性1" . "A")))  ;; 选择块真实名为  ”块名“ 的且属性1的值为A块，需手动框选
   
7. (block:ssget nil "块名" '(("属性1" . "A")))  ;; 选择所有块真实名为  ”块名“ 的且属性1的值为A块.

;; 用法示例<br /> (block:ssget nil "块名" nil)  ;; 选择块真实名为  ”块名“ 的块，需手动框选<br /> (block:ssget "x" "块名" nil)  ;; 选择所有块真实名为  ”块名“ 的块.<br /> (block:ssget (list "c" (getpoint) (getpoint))  "块名" nil)  ;; 叉选给定两点的矩形框内的块真实名为 ”块名“ 的块.<br /> (block:ssget (list "w" (getpoint) (getpoint))  "块名" nil)  ;; 窗选给定两点的矩形框内的块真实名为 ”块名“ 的块.<br /> (block:ssget nil "块名" '(("属性1" . "A")))  ;; 选择块真实名为  ”块名“ 的且属性1的值为A块，需手动框选<br /> (block:ssget nil "块名" '(("属性1" . "A")))  ;; 选择所有块真实名为  ”块名“ 的且属性1的值为A块.

使用以下代码加载@lisp函数库，即可直接调用block:ssget 函数。（可放到lsp文件头部）

1. (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))))
   

(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 />

函数源码只供研究。因调用了其它自定义函数，不能直接复制使用，如需调用请按上面的方法加载@lisp函数库。

1. (defun block:ssget (sel-method blknames lst-attr / ss ss-res ss0)
   
2.   "选择满足指定属性标记及对应值的块。
   
3. 参数：sel-method 参照ssget。当为x时选择全部，无需交互。如需相应的点参数时，需以列表的形式给出如'(\"c\" pt1 pt2)，需手动选择时设为nil。
   
4. 参数: blknames 块名(支持通配符)，或块名列表,或nil
   
5. 参数: lst-attr 属性名与值的点对表或nil"
   
6.   "满足条件的选择集"
   
7.   "(block:ssget \"x\" '(\"块1\" \"块2\")'((\"属性1\" . \"值1\")(\"属性2\" . \"值2\")))"
   
8.   (cond
   
9.     ((= (quote str)(type blknames))
   
10.      (setq blknames (list blknames)))
    
11.     )     
    
12.   (setq ss-res (ssadd))
    
13.   (cond
    
14.     ((null sel-method)
    
15.      (setq ss0 (ssget '((0 . "insert")))))
    
16.     ((p:stringp sel-method)
    
17.      (setq ss0 (ssget sel-method '((0 . "insert")))))
    
18.     ((and sel-method (listp sel-method))
    
19.      (setq ss0 (apply 'ssget (append sel-method (list '((0 . "insert"))))))
    
20.      )
    
21.     (t (setq ss0 (ssget "x" '((0 . "insert"))))
    
22.        ))
    
23.   (if (setq lst-ent (pickset:to-list ss0))
    
24.       (foreach
    
25.        ent% lst-ent
    
26.        (if (and (or
    
27.      (null blknames)
    
28.      (member (block:get-effectivename ent%)
    
29.        blknames)
    
30.      (apply 'or
    
31.       (mapcar '(lambda(x)(wcmatch (block:get-effectivename ent%) x))
    
32.         blknames)))
    
33.     (or (null lst-attr)
    
34.         (apply (quote and)
    
35.          (mapcar (quote (lambda (x)
    
36.               (member x (block:get-attributes ent%))))
    
37.            lst-attr))))
    
38.      (ssadd ent% ss-res))))
    
39.   (sssetfirst nil ss-res)
    
40.   ss-res)

(defun block:ssget (sel-method blknames lst-attr / ss ss-res ss0)<br />   "选择满足指定属性标记及对应值的块。<br /> 参数：sel-method 参照ssget。当为x时选择全部，无需交互。如需相应的点参数时，需以列表的形式给出如'(\"c\" pt1 pt2)，需手动选择时设为nil。<br /> 参数: blknames 块名(支持通配符)，或块名列表,或nil<br /> 参数: lst-attr 属性名与值的点对表或nil"<br />   "满足条件的选择集"<br />   "(block:ssget \"x\" '(\"块1\" \"块2\")'((\"属性1\" . \"值1\")(\"属性2\" . \"值2\")))"<br />   (cond<br />     ((= (quote str)(type blknames))<br />      (setq blknames (list blknames)))<br />     )     <br />   (setq ss-res (ssadd))<br />   (cond<br />     ((null sel-method)<br />      (setq ss0 (ssget '((0 . "insert")))))<br />     ((p:stringp sel-method)<br />      (setq ss0 (ssget sel-method '((0 . "insert")))))<br />     ((and sel-method (listp sel-method))<br />      (setq ss0 (apply 'ssget (append sel-method (list '((0 . "insert"))))))<br />      )<br />     (t (setq ss0 (ssget "x" '((0 . "insert"))))<br />        ))<br />   (if (setq lst-ent (pickset:to-list ss0))<br />       (foreach<br />        ent% lst-ent<br />        (if (and (or<br />      (null blknames)<br />      (member (block:get-effectivename ent%)<br />        blknames)<br />      (apply 'or<br />       (mapcar '(lambda(x)(wcmatch (block:get-effectivename ent%) x))<br />         blknames)))<br />     (or (null lst-attr)<br />         (apply (quote and)<br />          (mapcar (quote (lambda (x)<br />               (member x (block:get-attributes ent%))))<br />            lst-attr))))<br />      (ssadd ent% ss-res))))<br />   (sssetfirst nil ss-res)<br />   ss-res)

在微信公众号中查询函数用法：


在vscode中的函数提示：