[Sanmart]

Уважаемые форумчане! Задача вроде-как простая, но самому решить не получается, т.к. умею программировать только на VBA и только под Excel.
Нужно сделать перебор всех вставленных блоков в пространстве модели (с известным именем) и на каждом блоке сделать надпись с именем слоя.
Попытался сделать следующее:

Sub BlockName01() Dim bl As AcadBlock, blR As AcadBlockReference Set bl = Blocks("rec") For Each blR In bl Next End Sub

Но оно не работает До надписи с именем слоя я пока ещё не добрался. Помогите чайнику, пожалуйста!

[VVA]

Сообщение от Sanmart и на каждом блоке сделать надпись с именем слоя

Гиперссылка подойдет? Вместо MyBlock вбей имя своего блока

Код:

[Выделить все]

(defun C:TEST ( / item ss)
  (vl-load-com)
  (and
    (setq ss (ssget "_X" '((0 . "INSERT")(2 . "MyBlock")(410 . "Model"))))
    (repeat (setq item (sslength ss)) ;_ end setq
         (setq obj (vlax-ename->vla-object (ssname ss (setq item (1- item)))))
         (if (vlax-write-enabled-p obj)
           (mip-put-hyperlink obj (vla-get-layer obj))
           )
         ) ;_ end repeat
    )
  (princ)
  )
; Ф-ция mip-put-hyperlink
; Возвращает nil.
; Arguments [Type]:
;   Ename = Object [ENAME]
;  URLDescription = Строка [STR]
; Если строка "", то ссылка удаляется
(defun mip-put-hyperlink (ENAME URLDescription)
  (if (eq (type ENAME) 'ENAME)
    (setq ENAME (vlax-ename->vla-object ENAME))
  ) ;_ end of if
  (vlax-for hyp (vla-get-hyperlinks ENAME) (vla-delete hyp))
  (if (/= URLDescription "")
  (vla-add (vla-get-hyperlinks ENAME)
           "about:blank"
           URLDescription
  ) ;_ end of vla-add
    )
) ;_ end of DEFUN

[Sanmart]

VVA, спасибо!
В другой теме подсказали, как это сделать с помощью ATTDEF. Проблема решена.