วีดีโอ

По вопросам приобретения: DXFAutoHelp@gmail.com

Добрый день! Спасибо за обратную связь! По вашему вопросу: к сожалению, правило 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 Подробнее с программой можно ознакомиться тут: th-cam.com/video/tVJ-AkALW_o/w-d-xo.html Ссылка для скачивания DXF-Auto: cloud.mail.ru/public/SYLT/EmW6DNSP8

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

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

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

Решений в данном случае 3: 1. Готовое универсальное решение, в которой заполняются все параметры штампа DevTools th-cam.com/video/W5gtfM-drj0/w-d-xo.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 и моего экспортируемого параметра. Как убрать название части от чертежа? Спасибо

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

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

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

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