动态块如何选择用块名去选择块呢？

轻尘

动态块回用一个类似`*U763的值替代块名，如何选择实际的块名呢？(setq ss (ssget "_X" '((0 . "INSERT")(2 . "*gps*"))))这种就没法把gps*的块加入变量。求大神解惑？

xiaocainiao

(setq obj (vlax-ename->vla-object EntNam))
(setq b_name (vla-get-EffectiveName obj))
这个函数可以获取动态块的块名

轻尘

xiaocainiao 发表于 2023-8-9 18:22
(setq obj (vlax-ename->vla-object EntNam))
(setq b_name (vla-get-EffectiveName obj))
这个函数可以 ...

谢谢，非常感谢，获取到块名怎么筛选呢，比如说我要筛选带块名带gps的块，该怎么写呢？小白求教

vitalgg

1. 令: (fun:usage 'block:ssget)
   
2. *** 函数名:  block:ssget
   
3. ---------------
   
4. 说明: 选择满足指定属性标记及对应值的块  参数: blknames 块名，或块名列表  参数: lst-attr 属性名与值的点对表
   
5. 用法: (block:ssget blknames lst-attr)
   
6. 参数: 1 blknames  : 块名称;2 lst-attr  : 列表;
   
7. 返回值: 满足条件的选择集
   
8. 示例: (block:ssget '("块1" "块2") '(("属性1" . "值1")("属性2" . "值2")))
   
9. 
   
10. 
    
11. 命令: (fun:src 'block:ssget)
    
12. (defun block:ssget (blknames lst-attr / ss ss-res)
    
13.   "选择满足指定属性标记及对应值的块\n参数: blknames 块名，或块名列表\n参数: lst-attr 属性名与值的点对表"
    
14.   "满足条件的选择集"
    
15.   "(block:ssget '(\"块1\"
    
16.       \"块2\")
    
17.     '((\"属性1\"
    
18.         . \"值1\")(\"属性2\"
    
19.         . \"值2\")))"
    
20.   (if (= (quote str)
    
21.       (type blknames))
    
22.     (setq blknames (list blknames)))
    
23.   (setq ss-res (ssadd))
    
24.   (if (setq lst-ent (pickset:to-list (ssget "x"
    
25.           (quote ((0 . "insert"))))))
    
26.     (foreach ent% lst-ent (if (and (member (block:get-effectivename ent%)
    
27.             blknames)
    
28.           (apply (quote and)
    
29.             (mapcar (quote (lambda (x)
    
30.                   (member x (block:get-attributes ent%))))
    
31.               lst-attr)))
    
32.         (ssadd ent% ss-res))))
    
33.   (sssetfirst nil ss-res)
    
34.   ss-res)

令: (fun:usage 'block:ssget)<br /> *** 函数名:  block:ssget<br /> ---------------<br /> 说明: 选择满足指定属性标记及对应值的块  参数: blknames 块名，或块名列表  参数: lst-attr 属性名与值的点对表<br /> 用法: (block:ssget blknames lst-attr)<br /> 参数: 1 blknames  : 块名称;2 lst-attr  : 列表;<br /> 返回值: 满足条件的选择集<br /> 示例: (block:ssget '("块1" "块2") '(("属性1" . "值1")("属性2" . "值2")))<br /> <br /> <br /> 命令: (fun:src 'block:ssget)<br /> (defun block:ssget (blknames lst-attr / ss ss-res)<br />   "选择满足指定属性标记及对应值的块\n参数: blknames 块名，或块名列表\n参数: lst-attr 属性名与值的点对表"<br />   "满足条件的选择集"<br />   "(block:ssget '(\"块1\"<br />       \"块2\")<br />     '((\"属性1\"<br />         . \"值1\")(\"属性2\"<br />         . \"值2\")))"<br />   (if (= (quote str)<br />       (type blknames))<br />     (setq blknames (list blknames)))<br />   (setq ss-res (ssadd))<br />   (if (setq lst-ent (pickset:to-list (ssget "x"<br />           (quote ((0 . "insert"))))))<br />     (foreach ent% lst-ent (if (and (member (block:get-effectivename ent%)<br />             blknames)<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)

liuhe

没办法 根据dxf码直接筛选，只能选取很多动态块后，在程序内部进行筛选

kozmosovia

论坛有代码，提前预选过滤所有符合要求的*U，再作为DXF2来给SSGET过滤选择

dcl1214

(DEFUN $ssget-km$ (KMS LST / ents filter km obj ss ss-n tmp)
                                        ;高速搜索块名
  (IF KMS
    (PROGN
      (setq ss-n "SSGET")
      (SETQ filter (list (cons 0 "INSERT") (cons 66 1)))
      (vl-Catch-All-Apply
        'vla-delete
        (LIST
          (vl-Catch-All-Apply
            'vla-item
            (list (vla-get-SelectionSets
                    (vla-get-ActiveDocument (vlax-get-acad-object))
                  )
                  ss-n
            )
          )
        )
      )
      (setq
        ss (vl-Catch-All-Apply
             'vla-add
             (list (vla-get-selectionsets
                     (vla-get-activedocument (vlax-get-acad-object))
                   )
                   ss-n
             )
           )
      )
      (setq
        tmp (mapcar
              (function
                (lambda        (x y)
                  (vl-catch-all-apply
                    'vlax-make-variant
                    (list (vl-catch-all-apply
                            'vlax-safearray-fill
                            (list (vl-Catch-All-Apply
                                    'vlax-make-safearray
                                    (list y (cons 0 (1- (length x))))
                                  )
                                  x
                            )
                          )
                    )
                  )
                )
              )
              (list (mapcar 'car filter) (mapcar 'cdr filter))
              (list vlax-vbInteger vlax-vbVariant)
            )
      )
      (vl-catch-all-apply
        'vla-select
        (list
          ss
          acSelectionSetAll
          nil
          nil
          (car TMP)
          (cadr TMP)
        )
      )
      (if ss
        (vlax-for obj ss
          (setq km nil)
          (setq        km (vl-catch-all-apply
                     'vla-get-effectivename
                     (list obj)
                   )
          )
          (AND (vl-catch-all-error-p KM)
               (setq KM (vl-catch-all-apply 'vla-get-name (list obj)))
          )
          (and km (setq km (strcase km)))
          (if (and km (member km KMS))
            (SETQ ENTS (CONS (VLAX-VLA-OBJECT->ENAME OBJ) ENTS))
          )
        )
      )
      (vl-Catch-All-Apply
        'vla-delete
        (LIST
          (vl-Catch-All-Apply
            'vla-item
            (list (vla-get-SelectionSets
                    (vla-get-ActiveDocument (vlax-get-acad-object))
                  )
                  ss-n
            )
          )
        )
      )
    )
  )
  ENTS
)

轻尘

感谢各位大佬的回复，结合这篇文章大概弄出来了https://www.cnblogs.com/edata/p/6797362.html。感谢

1028695446

http://bbs.mjtd.com/forum.php?mo ... =%B6%AF%CC%AC%BF%E9