[求助]请教高手,如何判断所框选的图块中哪些是匿名图块或多重图块。 并对这些图块转换成普通图块? 我这有一个,但只能点选: ;;匿名图块转一般图块 (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) ) |