[Unfamous]

Пытаюсь написать первый свой лисп. Идея такова: есть на чертеже вхождения блоков, требуется их заменить (redefine) блоками, которые находяться в файлах, из определенной папки (с подпапками). Имя вхождения = имя блока из файла.

Первое, что получилось сделать после прочтения хелпа и форума, это замена одного конкретного блока:

Код:

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

 
(defun rpblock ( / blk_name path)
(setq blk_name "01-01.521")
(setq path "D:\\lisp_training\\01-01.521.dwg")
(command "INSERT" (strcat blk_name "=" path) \e)
)

Далее решил попробовать вывести весь список блоков в чертеже:

Код:

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

 (setq blk (tblnext "block" 0))
(while blk
(setq name_blk (cdr (assoc 2 blk)))
(setq lst (append (list lst) (list name_blk)))
(setq blk (tblnext "block"))
  (princ)
  )

Код вышел ужасным. Не могу никак добиться того, что хочу. Как загнать "куда-то" список вхождений блока для дальнейшей обработки? Натолкните на мысль, плиз...

З.Ы. Для поиска нужного файла в папке нашел на форуме этот скрипт.

[Кулик Алексей aka kpblc]

Если надо перечень описаний блоков, то можно и так, как у тебя, и этак:

Код:

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

 (vl-load-com)

(defun get-block-definitions (/ res name)
  (vlax-for blk_def (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (if (not
          (member (setq name (cond
                               ((vlax-property-available-p blk_def 'effectivename) (vla-get-effectivename blk_def))
                               (t (vla-get-name blk_def))
                               ) ;_ end of cond
                        ) ;_ end of setq
                  res
                  ) ;_ end of member
          ) ;_ end of not

      (setq res (cons name res))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vl-sort res '<)
  ) ;_ end of defun

Или надо список именно вхождений блоков?
---
Добавлено: для получения вхождений всех блоков, включая их вхождения внутрь других блоков (я не обрабатывал внешние ссылки) можно использовать нечто типа

Код:

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

 (vl-load-com)

(defun get-block-references (/ res name)
  (vlax-for space (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
    (vlax-for ent space
      (if (wcmatch (strcase (vla-get-objectname ent)) "*BLOCK*")
        (setq
          res (cons (list (cons "obj" ent)
                          (cons "name"
                                (cond
                                  ((vlax-property-available-p blk_def 'effectivename) (vla-get-effectivename blk_def))
                                  (t (vla-get-name blk_def))
                                  ) ;_ end of cond
                                ) ;_ end of cons
                          (cons "layer" (vla-get-layer ent))
                          (cons "ins" (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent))))
                          (cons "ang" (vla-get-rotation ent))
                          ) ;_ end of list
                    res
                    ) ;_ end of cons
          ) ;_ end of setq
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of vlax-for
  (vl-sort res (function (lambda (a b) (< (cdr (assoc "name" a)) (cdr (assoc "name" b))))))
  ) ;_ end of defun

[Unfamous]

Эх, ни строчки непонятно Буду разбираться, спасибо! Я как понимаю, без ActiceX функций не обойтись?

[Кулик Алексей aka kpblc]

Это просто мне проще с ActiveX работать...

[VVA]

Код:

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

;;;================================================================================
;;;Written By Michael Puckett. 
;;;Список элементов символьных таблиц АвтоКАДа 
;;; - s- имя таблицы
;;;Пример - список всех слоев - (setq all_layers (tablelist "LAYER"))
;;;(setq all_layers (tablelist "LAYER"))
;;;
;;;AutoLisp should return something like this :
;;;Start Coding Here 
    (defun tablelist (s / d r)
      (while (setq d (tblnext s (null d)))
        (setq r (cons (cdr (assoc 2 d)) r))
      );_ while
    );_ defun
;;;End Coding Here

Сообщение от Unfamous Как загнать "куда-то" список вхождений блока для дальнейшей обработки?

То есть если у тебя есть 2 вхождения блока "A", то ты дважды собираешься его переопределять?
Правильнее формировать список имен всех блоков из описания блоков (tablelist "BLOCK"), вызывать команду Insert как ты и делаешь. Для вызова ESC достаточно сделать так: (command)

Код:

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

(command "INSERT" (strcat blk_name "=" path))(command)

[Unfamous]

Оу еееее!

VVA, спасибо! Пару строчек и готово) Я приблизительно что-то подобное и имел ввиду)

Раскурю ваш код и буду его дополнять: надо исключить вложенные (nested) и не вставленные блоки.

[VVA]

Сообщение от Unfamous надо исключить вложенные (nested) и не вставленные блоки

Nested Blocks AUGI
nested blocks Autodesk Discussion Groups
Extract Nested Block Lee Mac
Учти, что в таблице блоков описываются так же и внешние ссылки. Плюс динамические блоки имеют эффективное имя. Оно отличается от того, что находится в поле 2. До эффективного имени можно докопаться и без vla-методов
Имена динамических блоков