[求助]请教高手,如何判断所框选的图块中哪些是匿名图块或多重图块。

userzhl

[求助]请教高手,如何判断所框选的图块中哪些是匿名图块或多重图块。

并对这些图块转换成普通图块?

我这有一个,但只能点选:

;;匿名图块转一般图块
(defun C:NM (/ A BLK OBJ)
(zhl_registry)(setq OBJ (vlax-ename->vla-object (car (entsel))))
  (setq
    BLK (vla-item (vla-get-blocks
      (vla-get-activedocument (vlax-get-acad-object))
    )
    (vla-get-name OBJ)
 )
  )
  (vla-put-name BLK (setq A (rtos (* (getvar "CDATE") 1E8))))
  (vla-auditinfo
    (vla-get-activedocument (vlax-get-acad-object))
    :vlax-true
  )
  (vla-put-name BLK A)
  (princ)
)

caoyin

匿名块只要判断块名是不是“*”开头就知道了

对于多重块用 vla-get-objectname 判断

userzhl

高手,caoyin,能否出招?

可不可以把上面这个程序改一下,做成:

可以框选炸开多重无名块的?

caoyin

提示：

多重块不是炸开的，

——》获取块名，

——》(entmake '((0 . "insert") (... 重新创建insert对象

——》EXPLODE