有没有好办法对动态图块块名用ssget选择过滤？
动态图块的插入实例，每个一实例用Entget得到的都匿名块。不能直接取得块名。如果用遍历选择集后处理的办法效率比较低，有没有好一点的高效的办法？
;取得块名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))
新手请教，这代码怎么变成可编译的lsp文件呀？
新手请教下，这代码怎么变成可编译的lsp文件？ 动态图块的出现，是在CAD2006以后的事情了，相信楼主也知道CAD2000以后的visualLISP 函数就一直没有增强。
ssget 函数也一样。
用遍历选择集后处理的办法，效率应该不会低到哪里去。
(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)
)
对于编程来说，无名块其实也是一个有名块，只不过他们的名字是系统管理的而已。动态块的选择和选择无名块不一样吗？
(setq tmpp(ssget "x" (list (cons 0 "INSERT")(cons 2 (strcat "`" (vla-get-name (vlax-ename->vla-object(car(entsel "\n选择无名块:")))))))))
命令: (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"这一类的无名块
命令: (ssget "x" (list '(0 . "INSERT")'(2 . "*U340")))
nil 呵呵，楼上的看完整了吗？(ssget "x" (list '(0 . "INSERT")'(2 . "`*U340"))) 先谢谢二楼提供思路的实现。虽然就是原来的思路。
三楼可能没有明白我的意思。选择是一样的，只是有一点特殊。我和问题不是匿名块和普通块的区别，而是动态块和普通块的区别。
动态块的块名不反映在第一级的dxf表中，在第一级的dxf表中只有一个匿名，这意味着已知动态块的块名，不能高效地通过SSGET的DXF过滤出来，必须选择块后遍历选择集才知道有没有选中，选中几个。
页:
[1]
2