[Red Nova]

Доброго.

Пришла пора мне вернуться к Автокаду.
Компания с которой я работаю производит особые панели перекрытия.
Требуется упростить/автоматизировать процесс построения и маркировки этих панелей.
Немного подумав решил что удобнее всего будет иметь динамический блок как для панели так и для маркера.
В прикрепленном файле примеры такой панели и соответствующего маркера. В правой части показано как они будут окончательно показаны на чертеже.
Для начала хотелось бы иметь возможность скопировать данные из свойств блока панели в соответствующие атрибуты блока маркера.
В приведенном файле из блока требуется извлечь значения все Custom Properties и атрибутов, затем записать совпадающие по наименованию в атрибуты маркера. К слову в маркере может быть и такой атрибут для которого нет свойства или атрибута в блоке плиты, их не трогаем.
Предполагаемый алгоритм работы - выбор блока панели - enter - выбор блока маркера - enter.
У кого ни будь есть подобные наработки?
Есть мысли и на счет более глубокой автоматизации, но это потом.

Заранее спасибо за ответы.

[Red Nova]

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

[Boxa]

Раздел программирование... и на каком языке пишем?

[Red Nova]

А поиск утилит тут запрещен?
Не думаю что я первый человек который заинтересовался в передаче данных из одного динамического блока в другой.

[baksconstructor]

Честно сказать - я вообще не понял цель сего действа...
Зачем ? Для Чего ?
Может проще всё атрибутами сделать и их считывать и получать данные...

[kp+]

Вот, на коленке написано, без проверок и других атрибутов высокого штиля:

Код:

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

 (DEFUN c:ATT_transf (/ ATTS1 ATTS2 B1 B2)
(setq b1 (vlax-ename->vla-object (car (entsel "откуда "))))
(setq b2 (vlax-ename->vla-object (car (entsel "куда "))))
(setq atts1 (vlax-invoke b1 'Getattributes))
(setq atts2 (vlax-invoke b2 'Getattributes))
    (foreach att2 atts2
      (foreach att1 atts1
	(if (= (vla-get-tagstring att2)  (vla-get-tagstring att1))
	  (vla-put-textstring att2 (vla-get-textstring att1))
	 ) 
      )
    )  
)

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

Привет всем нашим в Канаде!

[Red Nova]

baksconstructor Согласен. Если закатать все Custom Properties в скрытые аттрибуты (поле со ссылкой на сам блок), то будет проще.

kp+, Спасибо, после того как все перевел в аттрибуты - работает

[Boxa]

Сообщение от Red Nova Предполагаемый алгоритм работы - выбор блока панели - enter - выбор блока маркера - enter. У кого ни будь есть подобные наработки? Есть мысли и на счет более глубокой автоматизации, но это потом.

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

ЗЫ.
А можно посмотреть более полный чертеж, любопытно как у "них" это выглядит?

[Red Nova]

Сообщение от Boxa Если бы делал для себя, то алгоритм работы должен был быть следующим, выбрал блоки панелей, указал точку вывода спецификации по панелям. Остальное - лишние движения, программа сама должна проставить маркеры, выявить и попытаться устранить коллизии, связать свойства ссылками и выдать результат.

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

Сообщение от Boxa ЗЫ. А можно посмотреть более полный чертеж, любопытно как у "них" это выглядит?

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

[baksconstructor]

Сообщение от Red Nova Сейчас спецификация работает через dataextraction, все учитываемые профили представляют из себя динамические блоки.

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

[Red Nova]

Сообщение от baksconstructor Ну тогда Вам прямая дорога к связке этого и вот этого. Мы трубопроводы и арматуру на них делаем, и базу наработали и визуально понятно. Кстати если "задолбать" в хорошем смысле разработчика, то может под вас сделает перевод.

Глянул сайт. В общем радует что сейчас хватает подобной продукции позволяющей автоматизировать процесс проектирования в Аутокаде. Хотя глядя на итненсивную экспансию Ревита в Канаде понимаю что автокад будет со временем уступать свое место более целевым программам.
Но именно для моей теперешней работы адаптация подобной программы не имеет смысла. Затрата времени не оправдает себя. К тому же динамические блоки и датаэкстракшн позволят все сделать без программирования. Кончено заточенная программа всегда будет иметь свои плюсы по сравнению с инструментами голого акада, но для данной работы я подобной нужды не вижу.

Сообщение от baksconstructor Offtop: Ну как там за бугром ?

Offtop: Пока не фонтан. Но все со временем наладится!

[Владимир_М]

Offtop:

Сообщение от Red Nova Хотя глядя на итненсивную экспансию Ревита в Канаде понимаю что автокад будет со временем уступать свое место более целевым программам.

Не знаю как там у вас в Канаде, я не бывал... (думал там уже сплошь только Ревит, Текла и прочее...) А у нас, глядя на итненсивную экспансию Ревита в России: на этом же форуме близится к завершению (надеюсь) интенсивная полемика по этой теме см. http://forum.dwg.ru/showthread.php?t=133933
Может вдруг чего и пригодится. Пока, вроде бы, все очень неоднозначно...

[kp+]

Сообщение от Red Nova Но именно для моей теперешней работы адаптация подобной программы не имеет смысла. Затрата времени не оправдает себя. К тому же динамические блоки и датаэкстракшн позволят все сделать без программирования. Кончено заточенная программа всегда будет иметь свои плюсы по сравнению с инструментами голого акада, но для данной работы я подобной нужды не вижу.

Автор прог, указанных в #10, на данный момент охотно адаптирует свой софт по заявкам пользователей.
По-моему, здесь больше имеет место страх попасть в зависимость от не слишком крупного стороннего разраба, который в любой момент может прекратить поддержку своих прог.

[Boxa]

Сообщение от kp+ По-моему, здесь больше имеет место страх попасть в зависимость от не слишком крупного стороннего разраба, который в любой момент может прекратить поддержку своих прог.

Ну т.е. то, что автодеск поддерживает только 3 последние версии эт нормально, а сторонний разраб должен поддерживать всегда и прекращать поддержку не должен.?
ИМХО, покупается рабочее место, автокад + надстройка и работается до того момента, пока эта связка не перестанет удовлетворять производственным требованиям. Дальше обновляется рабочее место или ищется новый комплект программ.
Исходя из этого, я думаю, что описанного Вами страха нет, там что то другое.

[Сергей812]

Сообщение от Boxa а сторонний разраб должен поддерживать всегда и прекращать поддержку не должен.

это где то законодательно прописано?

Может, там в Канаде проблемы с закупкой нашего софта? Запрещено, сдерживающие пошлины и т.п.

[Boxa]

Сообщение от Сергей812 это где то законодательно прописано?

Это не прописано, это стереотип. И я ошибся, там в конце предложения не точка должна быть а "?"...

[kp+]

Сообщение от Сергей812 это где то законодательно прописано?

Законодательно, скорее всего, нигде. Только в договоре, если разраб захочет заключить индивидуальный.

Пост #13 написал на основе своего опыта - у нас начальство в свое время настороженно относилось к написанию собственных и внедрению покупных прог, помимо голого Акада. Типа, палочками в голом Акаде умеют чертить все, а с внедрением своих и чужих доп. прог кто-то может стать труднозаменимым, что нежелательно

Может, там в Канаде проблемы с закупкой нашего софта? Запрещено, сдерживающие пошлины и т.п.

KDMSOFT вроде бы еще не оборонное предприятие...или я что-то пропустил?

[Сергей812]

Offtop: имел "счастье" некоторое время поработать в частной производственной небольшой фирме (несколько десятков человек). Вспомнился оттуда пример - не было локальной сетки, все бегали с флэшками. Начальство - да, надо бы сделать сетку. Через недели 3 кто-то из сотрудников не выдержал постоянный разговоров начальства, о том что надо сделать сетку-притащил откуда то б/у D-link свитч. Потом откуда свистнули еще кабель, на наконечники с большим скрипом выделило начальство деньги. Дошло дело до прокладки - нужно кабель-каналы. Руководство - да зачем, вот в кладовке валяются обрезки кабель-каналов - разрежьте на кусочки в несколько см и подвесите кабель на них. Это в главном коридоре, где ходят заказчики к генеральному, в бухгалтерию. И все это было во время диких цен на нефть еще до первого кризиса.

----- добавлено через ~1 мин. -----

Сообщение от kp+ KDMSOFT вроде бы еще не оборонное предприятие

а тот же аутодекс-оборонка?) У нас же запретили закупать его ПО в ряд отраслей с их стороны

[Red Nova]

Сообщение от kp+ Автор прог, указанных в #10, на данный момент охотно адаптирует свой софт по заявкам пользователей. По-моему, здесь больше имеет место страх попасть в зависимость от не слишком крупного стороннего разраба, который в любой момент может прекратить поддержку своих прог.

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

[Владимир_М]

Offtop:

Сообщение от kp+ Пост #13 написал на основе своего опыта - у нас начальство в свое время настороженно относилось к написанию собственных и внедрению покупных прог, помимо голого Акада. Типа, палочками в голом Акаде умеют чертить все, а с внедрением своих и чужих доп. прог кто-то может стать труднозаменимым, что нежелательно

Походу, как ни печально, это так...