[eugen81]

Доброго времени суток! Возник такой вопрос: можно ли подгружать в чертеж блоки без их отображения?
Заранее прошу прощения, если эта тема поднималась ранее - юзал поиск и ничего не нашел

[sasha_lif]

так ты когда вставляешь блок в чертеж (например через буфер и даже если ты тут же удалишь erase этот блок на экране, то он все равно остается в блоках.) Т.е его на чертеже не видно (он у тебя ни разу не вставлен), но в описаниях блоках он лежит (до тех пор пока ты не почистишь файл purge)

[Александр Бауск]

Можно. О чем идет речь - о программном решении или ручном?
Для предохранения от PURGE можно вставлять нужные блоки на служебный невидимый слой.

[eugen81]

Мне как раз не хотелось бы вставлять, а затем удалять. хочу программно забить его в таблицу блоков, чтобы затем оттуда вставлять в чертеж. тоже программно.

[wetr]

eugen81, недавно в теме про мультилинии мне Krieger подсказал один макрос:

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

Например так:

Код:

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

^C^C_-insert;"Mline.dwg";^C_-purge;_Blocks;Mline;_n;(setvar "CMLSTYLE" "PROBA");_mline

Сохраняем нашу мультилинию в файл Mline.dwg, по адресу добавленному в пути поиска када. Макрос вставляет блок, он импортируется весь, но при указке точки вставки мы обрываем команду. Потом очищаем чертеж от теперь уже лишнего блок пургеном, делаем заведомо известный стиль proba текущим и вызываем команду черчения млиний.

[Клетчатый]

необходимые блоки можно поместить в "tool pallete"

[eugen81]

wetr, Спасибо) то, что нужно!
Как то я не додумался, что нужно просто insert оборвать

[Елпанов Евгений]

можно добавить блок и напрямую из лиспа

Код:

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

(vla-add (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
         (vlax-3d-point InsertionPoint)
         "New-Name"
)

потом, будет необходимо заполнить новый блок примитивами. Все как обычно, только вместо указания пространства модели или листа, указываем при создании примитива созданный блок. Или как вариант, копируем объекты из чертежа внутрь блока...

[ShaggyDoc]

Если необходимо программно внедрить блок из внешнего файла проще всего делать так

Код:

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

....
(vl-cmdf "_.INSERT" full_block_file_name)
(vl-cmdf)
....

Здесь второй вызов vl-cmdf без аргументов как раз прерывает вставку, но описание блока оказывается внедренным в чертеж.

Этот кусочек кода надо оборачивать в функцию, которая вычисляет полное имя файла, проверяет, нет ли уже такого описания блока, внедряет блок, а потом проверяет, внедрился ли.

Полный код наподобие

Код:

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

(defun ru-block-file-embed (block_name block_dir / block_file_name)
;;; Внедрение без вставки
  (setq block_name
         (ru-file-set-ext
           block_name
           ""
         ) ;_ end of ru-file-set-ext
  ) ;_ end of setq
  (if (tblsearch "block" block_name)
    t
    (progn
      (setq block_file_name
             (ru-string-replace
               (ru-file-set-ext
                 (strcat block_dir block_name)
                 ".dwg"
               ) ;_ end of ru-file-set-ext
               "/"
               "\\"
             ) ;_ end of ru-string-replace
      ) ;_ end of setq
      (if (findfile block_file_name)
        (progn
          (setvar "CMDECHO" 0)
          (vl-cmdf "_.INSERT" block_file_name)
          (vl-cmdf)
          (if (tblsearch "block" block_name)
            ;;Проверим блок после внедрения
            t
            (progn
              (ru-msg-alert
                (strcat "ОШИБКА!\n Блок\n"
                        block_name
                        "\nне внедрен в чертеж\n"
                        "!\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_file_name
                    " не установлен в составе версии \n'"
                    (ru-rucad-version)
            ) ;_ end of strcat
          ) ;_ end of ru-msg-alert
          NIL
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

[eugen81]

Да-да-да) именно так я и сделал Спасибо!

[doctorraz]

тупо так делаю...
_________________________
открываю файл с блоками
ctrl+A
ctrl+C
иду в файл куда надо описания вставить
ctrl+V
Esc

[Хмурый]

тупо ...