[Jonas]

Как автоматом проставлять размеры, штриховать, писать тексты в нужном слое вроде разобрались. Но есть другая беда, это импорт в чертеж объектов из "чужих" файлов. Не знаю как кому а для нашей конторы просто беда. Слои плодяться как грибы. Причем много однотипных (оси, осевые, ось и пр.).
Может кто предложит что нибудь, подходящее?
Понимаю, что не просто.
Например такой вариант:
- опознаваемые объекты (текст, размер, штриховка) в соответстуюшие слои не зависимо от того где они находились. Всё остальное в некий общий слой, например в слой "импорт".

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

А внешние ссылки что, сильно не катят? Да и dws, например, тоже иногда помогает.

[Victor]

Сделать шаблончик со всеми слоями и начинать работь с него.

[Jonas]

Сообщение от Кулик Алексей aka kpblc А внешние ссылки что, сильно не катят? Да и dws, например, тоже иногда помогает.

Не совсем понял. Причем внешние ссылки если нужно вставлять не весь фаил а только фрагменты. А ссылка разве приходит не со своими слоями?

Сообщение от Victor Сделать шаблончик со всеми слоями и начинать работь с него.

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

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

Сообщение от Jonas если нужно вставлять не весь фаил а только фрагменты.

А что, подрезка уже исключена из рассмотрения?

[Vova]

Кто такие "Чужие" для "своих"? Если другие люди из своей конторы, то внутреннее СТП+ репрессивный аппарат, или хороший программист. Если другая контора, то... ручками разве трудно перевести все чужие "осевые линии" в свои "оси"? Команда Layiso и далее Ctrl+1. Или кровавая борьба за единый общероссийский СТП. Или оставить как есть, не беря на себя чужие ошибки.

[Jonas]

Сообщение от Vova Кто такие "Чужие" для "своих"?

Это документация поступающая из структурных подразделений, это документация из архива с тех времен когда никто не задумывался об СТП потому, что нужно было осваивать компьютерное проектирование и т.д.

Сообщение от Vova то внутреннее СТП+ репрессивный аппарат, или хороший программист.

Голубая мечта.

Сообщение от Vova Или оставить как есть, не беря на себя чужие ошибки.

К сожжалению в корпорации так сложилось, что приходиться именно исправлять чужие ошибки. Присылают документауцию (прости господи) с визой ген.директора "подработайте под ЕСКД для размещения заказа на заводе".
Чтобы не быть голословным прилагаю примерчик.

[wetr]

например, так что-то можно сделать

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

Я попытался разобраться с файлом. Пока ничего кроме как задавать соответствия "нормального" имени слоя и всех его вариантов написания - не вижу. Потом (либо командой, либо программно) перенести все объекты на "нормальный" слой.
Кроме того, советую разобраться с текстовыми и размерными стилями - там кавардак тот еще.
<...> Удалено. Попытался реализовать - фигня-с получается...
---
Добавлено: хотя... Посмотри, я частично проверку стандартов сделал...

[Jonas]

Сообщение от wetr например, так что-то можно сделать

ОООчень интересно!

Откройте тайну, где это лежит и сколько стоит.

[wetr]

Jonas, никакой тайны нет. Vetcad в местном даунлоаде уже года 3 болтается на 1 месте. Работа со слоями доступна в бесплатной версии. Можно писать пожелания - разработчиком они почти всегда учитываются и реализовываются в новых версиях. Почитать и оставить пожелания можно на форуме веткада

[Jonas]

Сообщение от wetr Jonas, никакой тайны нет. Vetcad в местном даунлоаде уже года 3 болтается на 1 месте. Работа со слоями доступна в бесплатной версии. Можно писать пожелания - разработчиком они почти всегда учитываются и реализовываются в новых версиях. Почитать и оставить пожелания можно на форуме веткада

Прошу прощения, оказывается я давно смотрел эти инструменты и признаюсь не впечатлился. Первое что не понравилось - нет аннотативности (2007-2009). Да и не для машиностроителя. А вот про утилиту для работы со слоями просто забыл.

[E-degtyarev]

В апреле мучался c чертежами из Германии. Проблемы те же, что в теме.
Вот фрагмент Lispa, переносящий все размеры на слой RAZM.

Код:

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

(setq nabor (ssget "X" '((0 . "dimension"))))
(if (/= nabor nil)
  (progn
    (setq dlina (sslength nabor))
    (setq nomer 0)
    (repeat dlina
      (setq imja (entget (ssname nabor nomer)))
      (entmod (subst (cons 8 "RAZM") (assoc 8 imja) imja))
      (setq nomer (+ 1 nomer))
    ) ;_ конец repeat
  ) ;_ конец progn
) ;_ конец if

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

И опять - не учитывается ни локализация, ни вариант расположения размеров внутри блоков

[wetr]

Сообщение от Jonas А вот про утилиту для работы со слоями просто забыл.

не было ее раньше. Она появилась меньше месяца назад

[E-degtyarev]

Кулик Алексей,можно вопрос? (к посту 14)
Насчет локализации - это понятно.
А во нельзя ли подробнее относительно "вариант расположения размеров внутри блоков".

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

Например: создать окружность, на нее проставить диаметр. Размер - на слой "1234". Окружность - на слой "0". Окружность и диаметр объединить в блок.
Запустить свой лисп и попытаться удалить слой "1234"
А еще можно сделать дополнительный размер, поместив его на заблокированный или замороженный слой. Тоже весело будет
Для получения всех примитивов определенного типа я обычно использую конструкцию наподобие:

Код:

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

(vl-load-com)

(defun test (obj-name / adoc res)
  ;; _$ (test "*DIM*")
  (setq obj-name (strcase obj-name))
  (vlax-for blk_def (vla-get-blocks (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
    (if (equal (vla-get-isxref blk_def) :vlax-false)
      (vlax-for subent blk_def
        (if (wcmatch (strcase (vla-get-objectname subent)) obj-name)
          (setq res (cons subent res))
          ) ;_ end of if
        ) ;_ end of vlax-for
      ) ;_ end of if
    ) ;_ end of vlax-for
  res
  ) ;_ end of defun

Достаточно быстро и просто.

[E-degtyarev]

Понял, спасибо.