Перейти к публикации

Проецирование изображений


Aleks.Id

Рекомендованные сообщения

Появилась такая задача. Есть рисунок фрмата *.jpeg и *.tiff это рисунок нужно расположить на поверхности изделия, возможно ли такое сделать в UG и каким образом?

Ссылка на сообщение
Поделиться на других сайтах


Скорее всего Вам надо в UG\Photo возможности посмотреть, там такое обязательно должно быть. Раньше это называлось High Quality Image.

Ссылка на сообщение
Поделиться на других сайтах

Для наложения текстур на грани тел нужно использовать функциональность диалога Materials Editor. Для NX 3 нужно выполнить следующие действия.

1. View -> Visualization -> Materials/Textures.

Активизируется инструментальная панель содержащая средства для работы с материалами и добавляются закладки System Materials и Materials in Part (там, где находится Model Navigator, Assembly Navigator и т.д.)

2. Раскрываем навигатор System Materials, выбираем в нём какой-либо материал из числа доступных, и указываем тело или его отдельные грани для присвоения им свойств текущего материала (выбор тела или его граней регулируется с помощью общего фильтра селекции), после чего жмём зелёную галку в инструментальной панели.

3. Раскрываем навигатор Materials in Part. Выбираем тело или его отдельные грани на которые нужно будет наложить картинку и в инструментальной панели жмём кнопку Launch Material Editor.

3. В диалоге Material Editor идём на закладку Pattern и выбраем режим Wrapped Image после чего жмём кнопку Image для выбора файла картинки в формате TIFF, которая будет использоваться в качестве текстуры.

4. Идём на закладку Texture Space м устанавливаем параметр Type, влияющий на ориентацию картинки на гранях, например, в положение UV, после чего регулируем масштабные коэффициенты U Scale и V Scale , влияющие на размер картинки, вдоль линий изопараметрической сетки.

5. Жмём OK.

Для наглядности, режим отображения модели нужно установить в Studio.

Удачи.

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




  • Сообщения

    • Chuvak
      @malvi.dp Согласен @nahaus Попробуйте данный код: Option Explicit Sub main() Dim swApp                       As SldWorks.SldWorks Dim swModel                     As SldWorks.ModelDoc2 Dim swDrawing                   As SldWorks.DrawingDoc Dim swSheet                     As SldWorks.Sheet Dim fullPathFile                As String Dim nameFileExtension           As String Dim nameFileWithoutExtension    As String Dim propM()                     As Double Dim propN                       As String Dim n                           As Byte     Set swApp = Application.SldWorks     Set swModel = swApp.ActiveDoc     Set swDrawing = swModel          fullPathFile = swModel.GetPathName     ' swApp.SendMsgToUser2 fullPathFile, swMbWarning, swMbOk     nameFileExtension = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1)     ' swApp.SendMsgToUser2 nameFileExtension, swMbWarning, swMbOk     nameFileWithoutExtension = Left(nameFileExtension, InStrRev(nameFileExtension, ".") - 1)     ' swApp.SendMsgToUser2 nameFileWithoutExtension, swMbWarning, swMbOk          Set swSheet = swDrawing.GetCurrentSheet     propN = ""     propM = swSheet.GetProperties2     For n = LBound(propM) To UBound(propM)         propN = propN & propM(n) & Chr(10) '        Debug.Print propN     Next n     ' swApp.SendMsgToUser2 swSheet.GetName, swMbWarning, swMbOk     swApp.SendMsgToUser2 propN, swMbInformation, swMbOk      End Sub
    • malvi.dp
      Дело в том, что"swSheet.GetProperties2" это массив св-в и прежде чем их отобразить, нужно его записать, допустим, в текстовую переменную через цикл как-то так   
    • realasd
      Здравствуйте. Нужен документ LR34-040-R2 " osp-p3000s/p300l руководство к обслуживанию". Поможете?  
    • Chuvak
      @nahaus Ок, сейчас проверю у себя  У Вас не объявлены переменные  fullPathFile и nameFileExtension Переменная  sheetProperties вообще лишняя, не используется, а тип данных имеет самый жористый) Извините конечно за прямоту, но ваш код - полное УГ ) Может я могу вам помочь, только Вы объясните, что Вы хотите с помощью этого кода получить в результате ?
    • clavr
      у вас для 3 и 4 мм указаны
    • nahaus
      Выскакивает ошибка  Она же выскакивает и без параметра в скобках.
    • Chuvak
      @nahaus  Потому что метод GetProperties2 возвращает массив свойств листа, состоящий из 8 переменных типа double: [ paperSize, templateIn, scale1, scale2, firstAngle, width, height, sameCustomProp ] Вам какие именно переменные из данного массива нужны:  paperSize, width или height ? Или все сразу. Тогда переделайте строку:   swApp.SendMsgToUser2 swSheet.GetProperties2, swMbWarning, swMbOk   на swApp.SendMsgToUser2 swSheet.GetProperties2(0), swMbWarning, swMbOk или   swApp.SendMsgToUser2 swSheet.GetProperties2(5), swMbWarning, swMbOk дальше примеры приводить не  буду, думаю поняли логику
    • hlibhlib
      Он на Гоблинском в Исходнике.
    • Kelny
      Модельку забыли положить.   И не указали версию программы и сервиспака.
    • nahaus
      Подскажите пожалуйста как получить размеры листа с помощью метода GetProperties2? Пытаюсь получить сообщение. Что не так в строке swApp.SendMsgToUser2 swSheet.GetProperties2, swMbWarning, swMbOk Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim lErrors As Long Dim lWarnings As Long Dim swSheet As SldWorks.Sheet Dim swDrawing As SldWorks.DrawingDoc Dim sheetProperties As Variant Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc fullPathFile = swModel.GetPathName ' swApp.SendMsgToUser2 fullPathFile, swMbWarning, swMbOk nameFileExtension = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1) ' swApp.SendMsgToUser2 nameFileExtension, swMbWarning, swMbOk nameFileWithoutExtension = Left(nameFileExtension, InStrRev(nameFileExtension, ".") - 1) ' swApp.SendMsgToUser2 nameFileWithoutExtension, swMbWarning, swMbOk Set swSheet = swModel.GetCurrentSheet ' swApp.SendMsgToUser2 swSheet.GetName, swMbWarning, swMbOk swApp.SendMsgToUser2 swSheet.GetProperties2, swMbWarning, swMbOk End Sub  
×
×
  • Создать...