根据所选块的名字，自动选择框选范围内的同名块
根据所选块的名字，自动选择框选范围内的同名块并高亮，暂时只能实现普通块，哪位大师能不能把动态块也加进去，希望达到的效果就是选一个块（不管它是普通块还是动态块）都可以自动选择框选范围内的同名块。[*](defun c:bs()
[*](setq blk (entsel "请选择一个图块以获取块名"))
[*](setq blken(car blk))
[*](setq blklist(entget blken))
[*](setq blkname (assoc 2 blklist))
[*](setq SS (SSGET ":N" (LIST '(0 . "INSERT")blkname )))
[*](sssetfirst nil ss)
[*])
(setq blkname(vla-get-EffectiveName(vlax-ename->vla-object (car (entsel))))) 找找吧，小菜选择易，有
页:
[1]