Видео

Добрый день! Спасибо за обратную связь! По вашему вопросу: к сожалению, правило ilogic нельзя вынести в панель отдельной кнопкой (возможно в будущих версиях такое появится) Наиболее близкое к вас - добавление кнопок из макросов VBA. Возможно по этой теме, запишу меленькое видео-руководство А так, по хорошему, кнопки добавляются написанием своих аддинов для инентора

@@dxf-autohelpdesk , покопал нарыл код для макросов для решения моей задачи, одна проблема - СДЕЛАТЬ ТАК ЧТОБЫ НОВЫЕ ФАЙЛЫ DXF и PDF СОХРАНИЛИСЬ ПО ТОМУ ЖЕ ПУТИ ЧТО И ФАЙЛЫ inventor????... ниже код для VBA редактора, на оба макроса сразу.... в последний строчках что-то нужно писать, а что.... помогите плиз))) -------------------------------------------------------------------------------------- Public Sub PublishDXF() ' Get the DXF translator Add-In. Dim DXFAddIn As TranslatorAddIn Set DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}") 'Set a reference to the active document (the document to be published). Dim oDocument As Document Set oDocument = ThisApplication.ActiveDocument Dim oContext As TranslationContext Set oContext = ThisApplication.TransientObjects.CreateTranslationContext oContext.Type = kFileBrowseIOMechanism ' Create a NameValueMap object Dim oOptions As NameValueMap Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap ' Create a DataMedium object Dim oDataMedium As DataMedium Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium ' Check whether the translator has 'SaveCopyAs' options If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then Dim strIniFile As String strIniFile = "C:\tempDXFOut.ini" ' Create the name-value that specifies the ini file to use. oOptions.Value("Export_Acad_IniFile") = strIniFile End If 'Set the destination file name oDataMedium.FileName = "d:\testDXF.dxf" 'Publish document. Call DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) End Sub -------------------------------------------------------------------------------------- Public Sub PublishPDF() ' Get the PDF translator Add-In. Dim PDFAddIn As TranslatorAddIn Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}") 'Set a reference to the active document (the document to be published). Dim oDocument As Document Set oDocument = ThisApplication.ActiveDocument Dim oContext As TranslationContext Set oContext = ThisApplication.TransientObjects.CreateTranslationContext oContext.Type = kFileBrowseIOMechanism ' Create a NameValueMap object Dim oOptions As NameValueMap Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap ' Create a DataMedium object Dim oDataMedium As DataMedium Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium ' Check whether the translator has 'SaveCopyAs' options If PDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then ' Options for drawings... oOptions.Value("All_Color_AS_Black") = 0 'oOptions.Value("Remove_Line_Weights") = 0 'oOptions.Value("Vector_Resolution") = 400 'oOptions.Value("Sheet_Range") = kPrintAllSheets 'oOptions.Value("Custom_Begin_Sheet") = 1 'oOptions.Value("Custom_End_Sheet") = 4 End If 'Set the destination file name oDataMedium.FileName = "d:\testPDF.pdf" 'Publish document. Call PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) End Sub

Если я вас правильно понимаю, вы хотите сделать примерно такое авто сохранение как в автокаде/Ворде В рамках ilogic такое будет сложно сделать

Добрый день! Программа для автоматического сохранения разверток из модели в DXF. В описании к видео - ссылка на скачивание. Можете самостоятельно познакоиться с программой

@@dxf-autohelpdesk она бесплатная?

Добрый день! По вопросам приобретения напишите, пожалуйста, на почту: dxfautohelp@gmail.com

Добрый день! Скорее всего у вас в Параметрах сохранения PDF выставлен диапозон печати: текущий листа Измените это значение на Все листы Таким образом, в дальнейшем, после отработки правила, будут экспортированы все листы чертежа подробнее тут: recordit.co/rPkpAnzIvH

@@dxf-autohelpdesk Огромное Спасибо! Действительно все заработало! Спасибо за оперативный ответ!

@@dxf-autohelpdesk Подскажите пожалуйста, как дописать код в правило, чтобы выскакивало диалоговое окно с вопросом сохранить копию пдф или нет. не совсем удобно чтобы всегда перезаписывался файл.

Всё верно По ценам и условиям тут: dxfautohelp.wixsite.com/dxfauto/%D1%86%D0%B5%D0%BD%D1%8B

@@dxf-autohelpdesk ясно. спс

Напишите мне про ваш "век интернета и комфортную удалёнку", когда дома будут несколько маленьких детей)

Ещё то проклятье сидеть дома и работать, то пожрать, то полежать. А если серьёзно, привет из т.н. Украины, где лишний раз страшно высунуть нос на улицу, ибо принудительно можешь быть отправлен на уничтожение себе подобных славян

Думаю проблема в орфографической ошибке! не "MagBox", а "MsgBox" и соответсвенно не "MagBoxStyle", а "MsgBoxStyle"

@@dxf-autohelpdesk Получилось. Хотя у меня и через Mag работало, криво но работало. Спасибо большое

Напишите на почту: dxfautohelp@gmail.com

Добрый день! Программа адаптирована для Invenor и Компас

Скатертью по ж*пе

Инвентор конечно более продуман, в большинстве вопросов. Но в целом, через 100 часов работы и Компас кажется родным и знакомым. А все чего не хватает, можно решить с помощью API!;)

@@dxf-autohelpdesk Я работал в компасе с 2003 года. В этом году начал усиленно работать в инвенторе. Компас вообще ни в какое сравнение не идет с инвентором. Просто глючный непродуманный продукт. Я просто в шоке от возможностей инвентора.

Это первый шорт на канале! В будущем учтем! Спасибо за обратную связь!;)

На данном этапе, программа доступна только на русском языке! С ценами и другими вопросами, можно ознакоиться тут: dxfautohelp.wixsite.com/dxfauto/%D1%86%D0%B5%D0%BD%D1%8B

Добрый день! Адаптация для Компас, пока на этапе разработки

@@dxf-autohelpdesk Добрый день. Для КОМПАС 3D не появилась программка?? Спасибо.

@@dxf-autohelpdesk Не появилась?? Ждем с нетерпением.

@@sergey4672 Добрый день! Ссылка для скачивания: cloud.mail.ru/public/DZCd/JwsbnfkTV

В ссылке доступны отдельно, программа для Компас и отдельно для Inventor. Скачайте и установите DXF Auto для Inventor. Интерфейс программы и основные функции идентичны вне зависимости от версии программы

Добрый день! Ссылка актуальна! Все открывается и скачивается без проблем!

Для информации! Функционал преобразования в листовое тело доступен и более удобно реализован в составе DXF-Auto Inventor Подробнее с программой можно ознакомиться тут: ruclips.net/video/tVJ-AkALW_o/видео.html Ссылка для скачивания DXF-Auto: cloud.mail.ru/public/SYLT/EmW6DNSP8

Для нестинга есть куча специализированных программ

Программа, в процессе создания разверток использует "движок" компаса Соответственно, если ваша задача, решается "в ручном"режиме компаса - DXF Auto его решить очень быстро и правильно(на сколько это может Компас) Если такое компаса решить не смог - не сможет и DXF Auto

Можно За подробностями напишите на почту: dxfautohelp@gmail.com

Решений в данном случае 3: 1. Готовое универсальное решение, в которой заполняются все параметры штампа DevTools ruclips.net/video/W5gtfM-drj0/видео.html 2. Разработка скрипта, которой меняет организацию 3. Настройка шаблонов (для новых чертежей)

Да! После сканирования состава, в столбце Раздел СП, с помощью Фильтра, включите соответствующие разделы(Детали, Стандартные и др)

Добрый день! Вы можете имя файла и директорию самостоятельно указать в переменной PDFFileName. Например: PDFFileName = "c:\pdffile.pdf" После отработки правила, в корне диска С, будет создан PDF file с названием "pdffile.pdf".

@@dxf-autohelpdesk А чтобы сохранялось в папку проект/чертежи/pdf и с именем файла чертежа?

Напишите на почту: dxfautohelp@gmail.com

по вопросам сотрудничества, напишите на почту: dxfautohelp@gmail.com

Добрый день! На сколько мне известно, по умолчанию, при экспорте файла в PDF, автоматически сохраняются все листы данного чертежа, в один файл

@@dxf-autohelpdesk , а наоборот. Многолистовой файл чертежа сохранить как несколько файлов pdf возможно?

@@alexey0290 Да! Но это уже совсем другая история!:)

@@dxf-autohelpdesk, решается ли эта задача средствами ilogic?

@@alexey0290 Да, но это не тривиально!

cloud.mail.ru/public/qhtS/c3YavnoXn

Ниже код, который позволяет экспортировать выделенную грань в формат DXF: Dim DXFAddIn As TranslatorAddIn DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}") 'Set a reference to the active document (the document to be published). Dim oDocument As Document oDocument = ThisApplication.ActiveDocument Dim oContext As TranslationContext oContext = ThisApplication.TransientObjects.CreateTranslationContext oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism ' Create a NameValueMap object Dim oOptions As NameValueMap oOptions = ThisApplication.TransientObjects.CreateNameValueMap ' Create a DataMedium object Dim oDataMedium As DataMedium oDataMedium = ThisApplication.TransientObjects.CreateDataMedium ' Check whether the translator has 'SaveCopyAs' options If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then Dim strIniFile As String strIniFile = "C:\temp\DXF_R12.ini" 'this is a pre-configed ini file ' Create the name-value that specifies the ini file to use. oOptions.Value("Export_Acad_IniFile") = strIniFile End If 'Set the destination file name oDXFFullFileName = ThisDoc.PathAndFileName(False) & ".dxf" oDataMedium.FileName = ThisDoc.PathAndFileName(False) & "_ThrowAway.dxf" 'Publish throw away document. DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) 'delete file If System.IO.File.Exists( oDataMedium.FileName ) = True Then System.IO.File.Delete( oDataMedium.FileName ) End If Dim oCtrlDef As ButtonDefinition oCtrlDef = ThisApplication.CommandManager.ControlDefinitions.Item("GeomToDXFCommand") ThisApplication.CommandManager.PostPrivateEvent(PrivateEventTypeEnum.kFileNameEvent, oDXFFullFileName) oCtrlDef.Execute

@@dxf-autohelpdesk это чё такое? О_О

а сам DXF авто откуда взялся?

@user-vo9kn3pp6p ссылка для скачивания в описании к видео

@@dxf-autohelpdesk а как у нее с лицензией?

По вопросам стоимости и приобретения, можете обратиться по после: dxfautohelp@gmail.com

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

По вервому вопросу: нет. Если у вас есть модели, то DXF-Auto будет проще сгенерировать из модели новый DXF-файлы. Тогда незачем обрабатывать чертеж в попытке фильтра развертки от всех остальных видов и объектов на чертеже. По сохранению экспортированных разверток в картинки, функционал DXF-Auto, позволяет сохранять картинки вместе с DXF-файлом(подробнее: DXF-Auto - Настройки - Линии развертки - Сохранять в растровый формат)

По второму вопросу: по умолчанию, DXF-Auto при сканировании состава собирает информацию по основным параметрам модели(Имя файла, Обозначение, Наименование), при этом, в случае, если у модели одинаковое имя файла, но разное обозначение(исполнения в параметрической модели), то это будут разные позиции, в составе и конечно, при выгрузке DXF, для каждого исполнения будет создан отдельный файл

@@dxf-autohelpdesk По первому вопросу понял. А вот по второму, если в 1 сборке 1 деталь будет иметь обозначение ПЛАСТИНА, а в другой сборке ЛИСТ, по факту одна и та же деталь, с такими же размерами, толщиной и тд. Сможет ли программа определить их сходство и выдать какое-нибудь предупреждение?

самостоятельно ознакомиться с функционалом программы вы можете скачав демонстрационную версию DXF-Auto Ссылка на скачивание - в описании к видео

@@dxf-autohelpdesk Понял, спасибо! Обязательно попробую, сейчас смотрю ваши ролики по программе ВОМ, тоже очень нужная программа. Сильно поможет мне для изучения модели которую создавал другой конструктор

Объясняю: если вещи *что делаюТ?* - то они кажуТСя. А если вещи *что хотят делаТЬ?* - то они хотят казаТЬся. Не сложно, да?

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

Добрый день! если вы пытаетесь эскортировать файл в другое расширение(например, файл ipt в step) - то нужно пользоваться транслятоми при этом, имя экспортируемого файла, можно выбрать какое угодно, в том числе, имя файла сборки

@@dxf-autohelpdesk Dim DXFFileName = ThisDoc.PathAndFileName(False) & Parameter("P.БСК.iam.БСК") & ".DXF" - вот так прописываю. При сохранение в dxf имя файла состоит из название чертежа .dwg и моего экспортируемого параметра. Как убрать название части от чертежа? Спасибо

@@user-tl3jq6xp2y Если я вас правильно понял, то нужно делать так: ThisDoc.Path & "\" & Parameter("P.БСК.iam.БСК") & ".DXF"

@@dxf-autohelpdesk, помогло, спасибо

Доброго времени суток! Напишите пожалуйста на почту: dxfautohelp@gmail.com В письме укажите версию DXF-Auto, и скриншоты ошибки

Обновил. Попробуйте еще раз cloud.mail.ru/public/5hAo/2TA1Q4oH7

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