有没有好办法对动态图块块名用ssget选择过滤？

秋枫

动态图块的插入实例，每个一实例用Entget得到的都匿名块。不能直接取得块名。

 

如果用遍历选择集后处理的办法效率比较低，有没有好一点的高效的办法？

ucuc2003

  ;取得块名name
(setq en (car (entsel "\n选择块：")))
   (or
      (eq "TCH_BLOCK_INSERT" (cdr (assoc 0 (entget en))))
      (eq "INSERT" (cdr (assoc 0 (entget en))))
      (alert "没有选择块!")
    )
   (setq xobj (vlax-ename->vla-object en))
   (setq name (vlax-get-property xobj 'EffectiveName))

jzh56088

snddd2000 发表于 2013-12-21 13:48

新手请教，这代码怎么变成可编译的lsp文件呀？

jzh56088

新手请教下，这代码怎么变成可编译的lsp文件？

carrot1983

秋枫发表于2010-11-13 14:19:00动态图块的插入实例，每个一实例用Entget得到的都匿名块。不能直接取得块名。 如果用遍历选择集后处理的办法效率比较低，有没有好一点的高效的办法？站内搜索更多有关  的信息

动态图块的出现，是在CAD2006以后的事情了，相信楼主也知道CAD2000以后的visualLISP 函数就一直没有增强。
ssget 函数也一样。

用遍历选择集后处理的办法，效率应该不会低到哪里去。

(-1 . <图元名: 7eb585b0>)
(0 . "INSERT")
(5 . "E7E")
(102 . "{ACAD_XDICTIONARY")
(360 . <图元名: 7eb585b8>)
(102 . "}")
(330 . <图元名: 7ef68cf8>)
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "0")
(100 . "AcDbBlockReference")
(2 . "*U14")
(10 1501.85 633.74 0.0)
(41 . 25.4)
(42 . 25.4)
(43 . 25.4)
(50 . 0.0)
(70 . 0)
(71 . 0)
(44 . 0.0)
(45 . 0.0)
(210 0.0 0.0 1.0)

3. (defun SSGET-DYNBLK->ENTS (SS NAME / E ENTS N)
4.   ;; By carrot1983 11/13/10
5.   (repeat (setq N (sslength SS))
6.     (and (setq E (ssname SS (setq N (1- N))))
7.   (setq O (vlax-ename->vla-object E))
8.   (= (vla-get-isdynamicblock O) :vlax-true)
9.   (= (vla-get-effectivename O) NAME)
10.   (setq ENTS (cons E ENTS))
11.     )
12.   )
13.   ENTS
14. )

(defun SSGET-DYNBLK->ENTS (SS NAME / E ENTS N)   ;; By carrot1983 11/13/10   (repeat (setq N (sslength SS))     (and (setq E (ssname SS (setq N (1- N))))   (setq O (vlax-ename->vla-object E))   (= (vla-get-isdynamicblock O) :vlax-true)   (= (vla-get-effectivename O) NAME)   (setq ENTS (cons E ENTS))     )   )   ENTS )

(defun C:TT ()
  (setq SS (ssget '((0 . "INSERT"))))
  (setq ENTS (SSGET-DYNBLK->ENTS SS "树 - 英制"))
  (print ENTS)
  (princ)
)

danxingpen

对于编程来说，无名块其实也是一个有名块，只不过他们的名字是系统管理的而已。动态块的选择和选择无名块不一样吗？

(setq tmpp(ssget "x" (list (cons 0 "INSERT")(cons 2 (strcat "`" (vla-get-name (vlax-ename->vla-object(car(entsel "\n选择无名块:")))))))))

zhongys

danxingpen发表于2010-11-13 15:32:00对于编程来说，无名块其实也是一个有名块，只不过他们的名字是系统管理的而已。动态块的选择和选择无名块不一样吗？ (setq tmpp(ssget \"x\" (list (cons 0 \"INSERT\")(cons 2 (strcat \"`\"

命令: (cons 2 (strcat "`"((_> (vla-get-name (vlax-ename->vla-object(car(entsel "\n选择无名块:"))))))

 

选择无名块2 . "`*U340")

 

命令: (ssget "x" (list (cons 0 "INSERT")(2 . "`*U340")))

; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "osmode" nil

 

不行的,SSGET要如何处理才能选择"*U"这一类的无名块

 

zhongys

命令: (ssget "x" (list '(0 . "INSERT")'(2 . "*U340")))
nil

danxingpen

呵呵，楼上的看完整了吗？(ssget "x" (list '(0 . "INSERT")'(2 . "`*U340")))

秋枫

先谢谢二楼提供思路的实现。虽然就是原来的思路。

三楼可能没有明白我的意思。选择是一样的，只是有一点特殊。我和问题不是匿名块和普通块的区别，而是动态块和普通块的区别。

动态块的块名不反映在第一级的dxf表中，在第一级的dxf表中只有一个匿名，这意味着已知动态块的块名，不能高效地通过SSGET的DXF过滤出来，必须选择块后遍历选择集才知道有没有选中，选中几个。

snddd2000

可以试试
(setq ss1 (ssget '((0 . "INSERT") (2 . "`*U*") )))
但是没法分辨出不同的动态块

redcat

在萝卜的基础上改了一下(效率低主要是在enamel转换为object上)，代码如下：

1. (defun ssget-dynblk->ents (ss name / ents)
   
2.   (if ss
   
3.     (vlax-for n        (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
   
4.       (if (and (= (vla-get-isdynamicblock n) :vlax-true) (= (vla-get-effectivename n) name))
   
5.         (setq ents (cons n ents))
   
6.       ) ;_ 结束if
   
7.     ) ;_ 结束vlax-for
   
8.   ) ;_ 结束if
   
9.   ents
   
10. ) ;_ 结束defun
    
11. 
    
12. 
    
13. (defun C:TT (/ ss ents)
    
14.   (vla-eval (vlax-get-acad-object) "Thisdrawing.Activeselectionset.Delete")
    
15.   (if (setq ss (ssget '((0 . "INSERT"))))
    
16.     (progn (setq ents (ssget-dynblk->ents ss "树 - 英制"))
    
17.            (print ents)
    
18.     ) ;_ 结束progn
    
19.   ) ;_ 结束if
    
20.   (princ)
    
21. ) ;_ 结束defun

(defun ssget-dynblk->ents (ss name / ents)<br />   (if ss<br />     (vlax-for n        (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))<br />       (if (and (= (vla-get-isdynamicblock n) :vlax-true) (= (vla-get-effectivename n) name))<br />         (setq ents (cons n ents))<br />       ) ;_ 结束if<br />     ) ;_ 结束vlax-for<br />   ) ;_ 结束if<br />   ents<br /> ) ;_ 结束defun<br /> <br /> <br /> (defun C:TT (/ ss ents)<br />   (vla-eval (vlax-get-acad-object) "Thisdrawing.Activeselectionset.Delete")<br />   (if (setq ss (ssget '((0 . "INSERT"))))<br />     (progn (setq ents (ssget-dynblk->ents ss "树 - 英制"))<br />            (print ents)<br />     ) ;_ 结束progn<br />   ) ;_ 结束if<br />   (princ)<br /> ) ;_ 结束defun

snddd2000

我这里也有别人的代码分享下，是用两个函数完成的

2. 
   
3. (defun test ( block )
   
4.   (ssget
   
5.     (list
   
6.       (cons 0 "INSERT")
   
7.       (cons 2
   
8.         (
   
9.           (lambda ( s )
   
10.             (foreach anon (LM:AnonymousInstancesof block)
    
11.               (setq s (strcat s ",`" anon))
    
12.             )
    
13.             s
    
14.           )
    
15.           block
    
16.         )
    
17.       )
    
18.     )
    
19.   )
    
20. )
    
21. 
    
22. (defun LM:AnonymousInstancesof ( block / def rec nme ref lst )
    
23.   (while (setq def (tblnext "BLOCK" (null def)))
    
24.     (if (= 1 (logand 1 (cdr (assoc 70 def))))
    
25.       (progn
    
26.         (setq rec
    
27.           (entget
    
28.             (cdr
    
29.               (assoc 330
    
30.                 (entget
    
31.                   (tblobjname "BLOCK" (setq nme (cdr (assoc 2 def))))
    
32.                 )
    
33.               )
    
34.             )
    
35.           )
    
36.         )
    
37.         (while (setq ref (assoc 331 rec))
    
38.           (if
    
39.             (and
    
40.               (eq block (vla-get-effectivename (vlax-ename->vla-object (cdr ref))))
    
41.               (not (member nme lst))
    
42.             )
    
43.             (setq lst (cons nme lst))
    
44.           )
    
45.           (setq rec (cdr (member (assoc 331 rec) rec)))
    
46.         )
    
47.       )
    
48.     )
    
49.   )
    
50.   (reverse lst)
    
51. )

<br /> (defun test ( block )<br />   (ssget<br />     (list<br />       (cons 0 "INSERT")<br />       (cons 2<br />         (<br />           (lambda ( s )<br />             (foreach anon (LM:AnonymousInstancesof block)<br />               (setq s (strcat s ",`" anon))<br />             )<br />             s<br />           )<br />           block<br />         )<br />       )<br />     )<br />   )<br /> )<br /> <br /> (defun LM:AnonymousInstancesof ( block / def rec nme ref lst )<br />   (while (setq def (tblnext "BLOCK" (null def)))<br />     (if (= 1 (logand 1 (cdr (assoc 70 def))))<br />       (progn<br />         (setq rec<br />           (entget<br />             (cdr<br />               (assoc 330<br />                 (entget<br />                   (tblobjname "BLOCK" (setq nme (cdr (assoc 2 def))))<br />                 )<br />               )<br />             )<br />           )<br />         )<br />         (while (setq ref (assoc 331 rec))<br />           (if<br />             (and<br />               (eq block (vla-get-effectivename (vlax-ename->vla-object (cdr ref))))<br />               (not (member nme lst))<br />             )<br />             (setq lst (cons nme lst))<br />           )<br />           (setq rec (cdr (member (assoc 331 rec) rec)))<br />         )<br />       )<br />     )<br />   )<br />   (reverse lst)<br /> )

最后调用(test "动态块块名")，返回选择集 这是leemac的，但是在图中有表格的时候会没有反应，我自己又重写了一个。