[Kirill_Ja]

Добрый день. Точно была такая тема, но не могу ее найти.
Как мне загрузить описания всех блоков из dwg-файла библиотеки блоков.
При этом изначально не известно блоки с какими именами есть в библиотеке.
Надо закинуть все.
Я знаю, что если прервать команду _insert после того как она найдет блок, описание блока добавится к файлу.
А вот как вставлять блок не из отдельного файла, а из библиотеки я что-то не ссображу)

[Do$]

Сообщение от Kirill_Ja Точно была такая тема, но не могу ее найти.

http://forum.dwg.ru/showthread.php?t...EE%F2%E5%EA%E8

[ShaggyDoc]

Сообщение от Do$ http://forum.dwg.ru/showthread.php?t...EE%F2%E5%EA%E8

Там не о том. Вот как делаю внедрение библиотеки блоков:

Код:

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

 
(defun ru-block-lib-insert (block_lib_name block_name / block_lib_file_name)
;;; Внедрение библиотечного блока block_lib_name в котором живет блок  block_name
;;; (ru-block-lib-insert "R2000_00000000" "НОМЕР_УЗЛА") > T
;;; (ru-block-lib-insert "Sanitary\\R2000_00000000" "НОМЕР_УЗЛА") 
;;; (ru-block-lib-insert "archit\\ru-lib-wood" "ru_wood_beam_unit") 
;;; (vl-filename-base "archit\\ru-lib-wood")
  (if (tblsearch "block" block_name)
    t
    (progn
      (setq block_lib_file_name (ru-string-replace (ru-file-block-lib block_lib_name) "/" "\\"))
      (if (findfile (strcat block_lib_file_name ".DWG"))
        (progn
          (princ "\nПодождите...")
          (setvar "CMDECHO" 0)
;;====================================================
          (vl-cmdf "_.INSERT" block_lib_file_name)
          (vl-cmdf)                                                     ; прерываем вставку, блок невидимый
;;====================================================
          ;; И надо удалить блок библиотеки. Если библиотека
          ;; пополняется, вставка библиотеки не производится
          ;;Однако выдает мусорное сообщение
          ;;(command "-PURGE" "_BLOCKS" block_lib_name "_N")
          (ru-block-purge (ru-obj-get-active-document) (vl-filename-base block_lib_name) )
          (if (tblsearch "block" block_name)
            ;;Проверим блок после внедрения
            t
            (progn
              (ru-msg-alert
                (strcat "ОШИБКА!\n Блок\n"                    block_name
                        "\nотсутствует в библиотеке\n"        block_lib_file_name
                        "!\nОбратитесь к администратору системы!"
                       ) ;_ end of strcat
              ) ;_ end of ru-msg-alert
              NIL
            ) ;_ end of progn
          ) ;_ end of if
        ) ;_ end of progn
        (progn
          (ru-msg-alert
            (strcat "Библиотека блоков\n"
                    block_lib_file_name
                    " не установлена в составе версии \n'"
                    (ru-rucad-version)

                    "'\n"
                    "Комплект, в который она должна входить '"
                    (ru-packs-get-note-by-file block_lib_file_name)
                    "'\n"

            ) ;_ end of strcat
          ) ;_ end of ru-msg-alert
          NIL
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

Это функция, которая при необходимости вставляет билиотеку блоков, в которой есть блок с заданным именем.
Функции с именами ru-* библиотечные, что делают понятно из названия. Внедрение именно библиотеки выделено.

(vl-cmdf "_.INSERT" block_lib_file_name) - начинаем вставку библиотеки
(vl-cmdf) - и сразу прерываем пустой командой.

Теперь все определения блоков из библиотечного файла внедрены в текщий файл, но невидимы, т.к. у них нет вставок.

[hwd]

@Kirill_Ja
Ты бы хоть язык программирования указал, на котором пишешь...

[Do$]

Offtop:

Сообщение от ShaggyDoc Там не о том.

Если внимательно почитать эту тему, то ответ на вопрос найти можно.
В целом, конечно, тема не о том.

[Kirill_Ja]

Спасибо! Все получилось. Даже не мог представить, что так просто)))