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

Макрос vba Solidworks ( использование параметров листового металла из материала)


Sergej0895

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

Добрый день.

Помогите пожалуйста сделать макрос на Solidworks. Нужно, чтобы в дереве построения листовой детали, в параметрах листового тела - проставлялась галочка "Использовать параметры материала для листового металла" (для активной 3D модели). 

Автоматическая запись макроса не распознает данную операцию, а в справке по API данного параметра не нашел (по крайней мере с моим знанием английского). Нашел только как данную галочку поставить в свойствах для новых деталей, но это немного не то (прилагаю код ниже).

 

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSheetMetalUseMaterial, 0, True)
End Sub

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


UnPinned posts

Возможно вам нужно смотреть в сторону методов листового металла ( насколько я помню это  sheet metal feature) 

Ссылка на сообщение
Поделиться на других сайтах
21.01.2022 в 15:39, Sergej0895 сказал:

а в справке по API данного параметра не нашел

Он там есть.

https://help.solidworks.com/2022/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.isweptflangefeaturedata~usematerialsheetmetalparameters.html

Ссылка на сообщение
Поделиться на других сайтах
21 час назад, Sturmann сказал:

Возможно вам нужно смотреть в сторону методов листового металла

Возможно ка кто добавить код в Geometrika или доп макрос, для постановки параметров листовой детали, масса, площадь, размеры основные.

Ну и главное что это листовая деталь. Вообще для анализа ка кто что это цилиндр, это лист, это профиль, это болванка? Возможно такое ? Анализ сделать?

Изменено пользователем Maik812
Ссылка на сообщение
Поделиться на других сайтах
2 часа назад, streamdown сказал:

Да, похоже это оно, но почему-то все равно не выходит. Команда не срабатывает, а попросту игнорируется... Видно что-то я все же делаю не так..

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

Смысл вообще в том, чтобы при запуске просто прожималась галочка "Использовать параметры материала для листового металла", а там уже подвязана соответствующая таблица сгибов (для каждого материала своя таблица). Далее, сохранять развертку в формате dxf и все это дело организовать в пакетную обработку.

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

@Sergej0895 Покажите код макроса, может совместными усилиями и получиться что-то сделать.

Ссылка на сообщение
Поделиться на других сайтах
21.01.2022 в 15:39, Sergej0895 сказал:

Добрый день.

Помогите пожалуйста сделать макрос на Solidworks. Нужно, чтобы в дереве построения листовой детали, в параметрах листового тела - проставлялась галочка "Использовать параметры материала для листового металла" (для активной 3D модели). 

Автоматическая запись макроса не распознает данную операцию, а в справке по API данного параметра не нашел (по крайней мере с моим знанием английского). Нашел только как данную галочку поставить в свойствах для новых деталей, но это немного не то (прилагаю код ниже).

 

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSheetMetalUseMaterial, 0, True)
End Sub

Что то у меня такое смутное сомнение что этот код подучился в результате записи макроса. Запись иной раз очень много пропускает или записывает для "здесь и сейчас".

 

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

Попробовал взять этот безумный код из примера справки API (с созданием листовой детали с нуля), добавил строчку применения материала, поставил значение "True" для параметра "UseMaterialSheetMetalParameters" (в конце кода), но увы, это тоже не приводит к нужному результату.

 

Dim swApp As SldWorks.SldWorks
Dim swFeat As SldWorks.Feature
Dim myFeature As SldWorks.Feature
Dim swFeatMgr As SldWorks.FeatureManager
Dim swFeatData As SldWorks.SweptFlangeFeatureData
Dim customBendAllowanceData As SldWorks.CustomBendAllowance
Dim swProfileSketch As SldWorks.Feature
Dim skSegment As SldWorks.SketchSegment
Dim Part As SldWorks.ModelDoc2
Dim swPart As PartDoc
Dim boolstatus As Boolean
Dim longstatus As Long

Option Explicit

Sub main()

    Set swApp = Application.SldWorks
      
    Dim swSheetWidth As Double
    swSheetWidth = 0
    Dim swSheetHeight As Double
    swSheetHeight = 0
    Set Part = swApp.NewDocument("C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\english\Tutorial\part.prtdot", 0, swSheetWidth, swSheetHeight)
   
    Set swPart = Part
    swApp.ActivateDoc2 "Part1", False, longstatus
    Set Part = swApp.ActiveDoc
   
    Part.SketchManager.InsertSketch True
    boolstatus = Part.Extension.SelectByID2("Front", "PLANE", -3.50345417518034E-02, 0.019677523162802, 5.11863136830445E-03, False, 0, Nothing, 0)
    Part.ClearSelection2 True
    boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
    boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
    Dim vSkLines As Variant
    vSkLines = Part.SketchManager.CreateCornerRectangle(-4.20403557341645E-02, 2.75066828701494E-02, 0, 4.75026757367474E-02, -2.20443628675665E-02, 0)
    Part.ClearSelection2 True

    Part.ShowNamedView2 "*Trimetric", 8
    Part.ViewZoomtofit2
   
    Set customBendAllowanceData = Part.FeatureManager.CreateCustomBendAllowance()
    customBendAllowanceData.KFactor = 0.5
   
    Set myFeature = Part.FeatureManager.InsertSheetMetalBaseFlange2(0.0007366, False, 0.0007366, 0.02, 0.01, False, 0, 0, 1, customBendAllowanceData, False, 0, 0.0001, 0.0001, 0.5, True, False, True, True)
   
    Part.ClearSelection2 True
    Part.SketchManager.InsertSketch True
    boolstatus = Part.Extension.SelectByID2("", "FACE", 4.41584745988735E-02, 2.75066828701256E-02, -2.52375262334681E-04, True, 0, Nothing, 0)
   
    Set skSegment = Part.SketchManager.CreateLine(0.047503, 0#, 0#, 0.047503, -0.015713, 0#)
    Part.ClearSelection2 True
    Part.SketchManager.InsertSketch True
   
    boolstatus = Part.Extension.SelectByID2("Sketch6", "SKETCH", 2.54585357375204E-02, -3.78791126417555E-03, -0.013876316631307, True, 0, Nothing, 0)
    boolstatus = Part.Extension.SelectByRay(4.72949686339916E-02, 1.33307046879168E-02, 2.07707102561017E-04, -0.499999999999997, -0.707106781186554, -0.499999999999995, 4.23592175091009E-04, 1, True, 0, 0)
    Part.ClearSelection2 True
   
    boolstatus = Part.Extension.SelectByID2("Sketch6", "SKETCH", 2.54585357375204E-02, -3.78791126417555E-03, -0.013876316631307, True, 0, Nothing, 0)
    Set swProfileSketch = Part.SelectionManager.GetSelectedObject6(1, -1)
    Part.ClearSelection2 True
   
    Dim swPathObj As Object
    Dim pathObjsArray(0) As Object
    boolstatus = Part.Extension.SelectByRay(4.72949686339916E-02, 1.33307046879168E-02, 2.07707102561017E-04, -0.499999999999997, -0.707106781186554, -0.499999999999995, 4.23592175091009E-04, 1, True, 0, 0)
    Set swPathObj = Part.SelectionManager.GetSelectedObject6(1, -1)
    Set pathObjsArray(0) = swPathObj
    Dim pathObjsVar As Variant
    pathObjsVar = pathObjsArray
    Part.ClearSelection2 True
  

Part.SetMaterialPropertyName2 "По умолчанию", "C:/ProgramData/SolidWorks/SOLIDWORKS 2021/Настроенный пользователем материал/Настроенный пользователем материал.sldmat", "Простая углеродистая сталь (Кор.)"
  
  

    Set swFeatMgr = Part.FeatureManager
  
    Set swFeatData = swFeatMgr.CreateDefinition(swFeatureNameID_e.swFmSweptFlange)
    swFeatData.EndOffset = 0
    swFeatData.FlangePosition = swSweptFlangePositionType_MaterialInside
    swFeatData.FlattenAlongPath = False
    swFeatData.OverrideDefaultSheetMetalParameters = False
    swFeatData.Path = pathObjsVar
    swFeatData.Profile = swProfileSketch
    swFeatData.ReverseDirection = False
    swFeatData.StartOffset = 0
    swFeatData.TrimSideBends = False
    swFeatData.UseDefaultBendAllowance = True
    swFeatData.UseDefaultBendRelief = True
    swFeatData.UseDefaultRadius = False
    swFeatData.UseGaugeTable = False
    swFeatData.UseMaterialSheetMetalParameters = True
    Set swFeat = swFeatMgr.CreateFeature(swFeatData)
    Part.ClearSelection2 True
    End Sub

Ссылка на сообщение
Поделиться на других сайтах
9 часов назад, Sergej0895 сказал:

Попробовал взять этот безумный код из примера справки API (с созданием листовой детали с нуля), добавил строчку применения материала, поставил значение "True" для параметра "UseMaterialSheetMetalParameters" (в конце кода), но увы, это тоже не приводит к нужному результату.

 

Dim swApp As SldWorks.SldWorks
Dim swFeat As SldWorks.Feature
Dim myFeature As SldWorks.Feature
Dim swFeatMgr As SldWorks.FeatureManager
Dim swFeatData As SldWorks.SweptFlangeFeatureData
Dim customBendAllowanceData As SldWorks.CustomBendAllowance
Dim swProfileSketch As SldWorks.Feature
Dim skSegment As SldWorks.SketchSegment
Dim Part As SldWorks.ModelDoc2
Dim swPart As PartDoc
Dim boolstatus As Boolean
Dim longstatus As Long

Option Explicit

Sub main()

    Set swApp = Application.SldWorks
      
    Dim swSheetWidth As Double
    swSheetWidth = 0
    Dim swSheetHeight As Double
    swSheetHeight = 0
    Set Part = swApp.NewDocument("C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\english\Tutorial\part.prtdot", 0, swSheetWidth, swSheetHeight)
   
    Set swPart = Part
    swApp.ActivateDoc2 "Part1", False, longstatus
    Set Part = swApp.ActiveDoc
   
    Part.SketchManager.InsertSketch True
    boolstatus = Part.Extension.SelectByID2("Front", "PLANE", -3.50345417518034E-02, 0.019677523162802, 5.11863136830445E-03, False, 0, Nothing, 0)
    Part.ClearSelection2 True
    boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
    boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
    Dim vSkLines As Variant
    vSkLines = Part.SketchManager.CreateCornerRectangle(-4.20403557341645E-02, 2.75066828701494E-02, 0, 4.75026757367474E-02, -2.20443628675665E-02, 0)
    Part.ClearSelection2 True

    Part.ShowNamedView2 "*Trimetric", 8
    Part.ViewZoomtofit2
   
    Set customBendAllowanceData = Part.FeatureManager.CreateCustomBendAllowance()
    customBendAllowanceData.KFactor = 0.5
   
    Set myFeature = Part.FeatureManager.InsertSheetMetalBaseFlange2(0.0007366, False, 0.0007366, 0.02, 0.01, False, 0, 0, 1, customBendAllowanceData, False, 0, 0.0001, 0.0001, 0.5, True, False, True, True)
   
    Part.ClearSelection2 True
    Part.SketchManager.InsertSketch True
    boolstatus = Part.Extension.SelectByID2("", "FACE", 4.41584745988735E-02, 2.75066828701256E-02, -2.52375262334681E-04, True, 0, Nothing, 0)
   
    Set skSegment = Part.SketchManager.CreateLine(0.047503, 0#, 0#, 0.047503, -0.015713, 0#)
    Part.ClearSelection2 True
    Part.SketchManager.InsertSketch True
   
    boolstatus = Part.Extension.SelectByID2("Sketch6", "SKETCH", 2.54585357375204E-02, -3.78791126417555E-03, -0.013876316631307, True, 0, Nothing, 0)
    boolstatus = Part.Extension.SelectByRay(4.72949686339916E-02, 1.33307046879168E-02, 2.07707102561017E-04, -0.499999999999997, -0.707106781186554, -0.499999999999995, 4.23592175091009E-04, 1, True, 0, 0)
    Part.ClearSelection2 True
   
    boolstatus = Part.Extension.SelectByID2("Sketch6", "SKETCH", 2.54585357375204E-02, -3.78791126417555E-03, -0.013876316631307, True, 0, Nothing, 0)
    Set swProfileSketch = Part.SelectionManager.GetSelectedObject6(1, -1)
    Part.ClearSelection2 True
   
    Dim swPathObj As Object
    Dim pathObjsArray(0) As Object
    boolstatus = Part.Extension.SelectByRay(4.72949686339916E-02, 1.33307046879168E-02, 2.07707102561017E-04, -0.499999999999997, -0.707106781186554, -0.499999999999995, 4.23592175091009E-04, 1, True, 0, 0)
    Set swPathObj = Part.SelectionManager.GetSelectedObject6(1, -1)
    Set pathObjsArray(0) = swPathObj
    Dim pathObjsVar As Variant
    pathObjsVar = pathObjsArray
    Part.ClearSelection2 True
  

Part.SetMaterialPropertyName2 "По умолчанию", "C:/ProgramData/SolidWorks/SOLIDWORKS 2021/Настроенный пользователем материал/Настроенный пользователем материал.sldmat", "Простая углеродистая сталь (Кор.)"
  
  

    Set swFeatMgr = Part.FeatureManager
  
    Set swFeatData = swFeatMgr.CreateDefinition(swFeatureNameID_e.swFmSweptFlange)
    swFeatData.EndOffset = 0
    swFeatData.FlangePosition = swSweptFlangePositionType_MaterialInside
    swFeatData.FlattenAlongPath = False
    swFeatData.OverrideDefaultSheetMetalParameters = False
    swFeatData.Path = pathObjsVar
    swFeatData.Profile = swProfileSketch
    swFeatData.ReverseDirection = False
    swFeatData.StartOffset = 0
    swFeatData.TrimSideBends = False
    swFeatData.UseDefaultBendAllowance = True
    swFeatData.UseDefaultBendRelief = True
    swFeatData.UseDefaultRadius = False
    swFeatData.UseGaugeTable = False
    swFeatData.UseMaterialSheetMetalParameters = True
    Set swFeat = swFeatMgr.CreateFeature(swFeatData)
    Part.ClearSelection2 True
    End Sub

так много кода и так мало комментариев(((((

предлагаю вам не сваливать все в одну кучу , а разбить на несколько этапов:

1. создание детали из шаблона

2. управление параметрами этой детали

3. готово.

 

Либо чтобы не тратить зря время- просто забейте в шаблоне детали все необходимые параметры и будет вам счастье.

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

Попробовал немного по другому. Сначала сделал выбор материала, а затем чтобы поставилась галочка "Использовать параметры материала для листового металла" с выбором таблицы сгибов (подвязана в настройках материала). Увы из всего этого происходит только выбор материала...

В принципе, временно подошел бы вариант, в котором можно просто подгрузить таблицу сгибов, но это также не работает (только при создании новой детали, а не для изменения параметров текущей модели).

 

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

'Выбор материала
Part.SetMaterialPropertyName2 "По умолчанию", "C:/ProgramData/SolidWorks/SOLIDWORKS 2021/Настроенный пользователем материал/Настроенный пользователем материал.sldmat", "Простая углеродистая сталь (Кор.)"

'Ставим галочку "Использовать параметры материала для листового металла"
Part.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)

'Информация о таблице сгибов
Dim customBendAllowanceData As Object
Set customBendAllowanceData = Part.FeatureManager.CreateCustomBendAllowance()
customBendAllowanceData.BendTableFile = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\russian\Sheetmetal Bend Tables\BD_Table_бф.xlsx"
Dim myFeature As Object
Set myFeature = Part.FeatureManager.InsertSheetMetalBaseFlange2(0.001, False, 0.001, 0.02, 0.01, False, 0, 0, 1, customBendAllowanceData, True, 0, 0.0001, 0.0001, 0.5, True, False, True, True)
End Sub
 

Ссылка на сообщение
Поделиться на других сайтах
6 часов назад, Sergej0895 сказал:

Попробовал немного по другому. Сначала сделал выбор материала, а затем чтобы поставилась галочка "Использовать параметры материала для листового металла" с выбором таблицы сгибов (подвязана в настройках материала). Увы из всего этого происходит только выбор материала...

В принципе, временно подошел бы вариант, в котором можно просто подгрузить таблицу сгибов, но это также не работает (только при создании новой детали, а не для изменения параметров текущей модели).

 

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

'Выбор материала
Part.SetMaterialPropertyName2 "По умолчанию", "C:/ProgramData/SolidWorks/SOLIDWORKS 2021/Настроенный пользователем материал/Настроенный пользователем материал.sldmat", "Простая углеродистая сталь (Кор.)"

'Ставим галочку "Использовать параметры материала для листового металла"
Part.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)

'Информация о таблице сгибов
Dim customBendAllowanceData As Object
Set customBendAllowanceData = Part.FeatureManager.CreateCustomBendAllowance()
customBendAllowanceData.BendTableFile = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\russian\Sheetmetal Bend Tables\BD_Table_бф.xlsx"
Dim myFeature As Object
Set myFeature = Part.FeatureManager.InsertSheetMetalBaseFlange2(0.001, False, 0.001, 0.02, 0.01, False, 0, 0, 1, customBendAllowanceData, True, 0, 0.0001, 0.0001, 0.5, True, False, True, True)
End Sub
 

Здравствуйте. Можно вопрос? 

Вы этот код :

написали сами, 

взяли из справки, 

записали рекордером и немного отформатировали? 

Ссылка на сообщение
Поделиться на других сайтах
1 минуту назад, Sturmann сказал:

записали рекордером ...

Судя по первым двум строкам кода - то да

Ссылка на сообщение
Поделиться на других сайтах
1 минуту назад, Snake 60 сказал:

Судя по первым двум строкам кода - то да

Ну вот верят люди что открыв один документ в случайном виде и сделав с ним какие либо действия и щаписав их рекордером солид будет повторять эти действия на всех сборках! 

Не будет такого. 

Тут нужно разбирать каждую строку- что делает почему именно так. И проверять на сотнях документов с разных компов и от разных авторов. 

Ссылка на сообщение
Поделиться на других сайтах
11 часов назад, Sturmann сказал:

Здравствуйте. Можно вопрос? 

Вы этот код :

написали сами, 

взяли из справки, 

записали рекордером и немного отформатировали? 

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

Ссылка на сообщение
Поделиться на других сайтах
2 часа назад, Sergej0895 сказал:

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

Ну так это не работает.

Он много чего не записывает или записывает "здесь и сейчас" только для данных событий.

Для другой сборки он может и не сработать.

Тут нужны знания по программированию

Ссылка на сообщение
Поделиться на других сайтах
22.01.2022 в 19:02, Sergej0895 сказал:

Смысл вообще в том, чтобы при запуске просто прожималась галочка "Использовать параметры материала для листового металла"

Вот эту галку надо активировать?

изображение.png

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

%E2%80%AAC%3A%5CUsers%5CANONIM%5CDesktop%5C1.jpgPlLz4Не совсем, нужная галочка находится чуть выше. Она так и называется "Использовать параметры материала для листового металла".

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • Stanislav
      Относительно POP and PUP в фале постпроцессора вот такое нашел для POP прослеживается возростающая закономерность, а вот для  PUP не ясно почему прыгает значение. # POP and PUP functions for initialization. H parameters are used to  # # get the correct POP and PUP values. If the thickness of the sheet   # # is between the minimum and maximum thickness, the postprocessor     # # will use POP and PUP parameters to write them in the PS file.       # # Example: H000 0.0 1.0 30000 25000                                   # #                                                                     # #     Minimum      Maximum       POP        PUP                       # #    Thickness    Thickness     Value      Value                      # #---------------------------------------------------------------------# H001    0.0          0.5        14000      9000 H002    0.51         1.0        14500      9000 H003    1.01         1.5        15000      9000 H004    1.51         2.0        15500      9000 H005    2.01         2.5        16000      8500 H006    2.51         3.0        16500      8000 H007    3.01         3.5        17000      8000 H008    3.51         4.0        17500      8000 H009    4.01         4.5        18000      9000 H010    4.51         5.0        18500      8000 H011    5.01         5.5        19000      9000 H012    5.51         6.0        19500      8000
    • Krusnik
      Да там же ничего сложного.   Делаете вашу спираль.   Потом делаете эскиз. В эскизе нажимаете Преобразование объектов и тыкаете на созданную спираль.   Нажимаете поверхность вытянуть и выбираете только что созданный эскиз. В опциях вытягивание ставите "До поверхности". И вытягиваете спиральку до вашего купола.   И последний шаг - вырез по траектории. Думаю с этим вы без моих советов справитесь.   Лишнее скрываете и вуаля.  
    • IgP
      Это, конечно, да, не хорошо ... Но и конструктор не бог чтобы всё знать ... Для этого есть и д.б. этап "технологическая проработка", со всеми вытекающими.
    • arsenev
      Спасибо за ответ. Нет, в видео он говорит, что это такая стратегия. Пробовал использовать шаблон и обрабатывать его со смещением, получается не то (именно, когда нужно обработать цилиндрическое отверстие). Лучше отводится стружка и не мешает резанию. (см. видео, где-то с 18 минуты).
    • scrimline
      Если ещё нужна информация, fanuc oi-tf станок akira-seiki, М14 на опускание руки, для привязки и М15 для поднятия
    • Богоманшин Игорь
      Эта проблема от незнания некоторыми конструкторами технологических особенностей порошковой окраски. Максимум на чертеже научатся указывать РАЛ и толщину слоя. А необходимо предусмотреть места подвеса, можно туда шпильки или гайки запрессовать в нужных местах.
    • MagicNight
      Добрый день! Обратил внимание, что стал шуметь (свистеть) шпиндель станка, причём на всех режимах. Я так понимаю, что полетели подшипники. Хотим найти их, но не знаем как они называются, может у кого-то было подобное? Ну и отремонтировать своими силами. Станок швейцарский Mikron UCP-710 пятиосевой.  
    • maxx2000
      это не одно и тоже что и создать шаблон? А если мне нужен будет документ без зон?
    • IgorT
      Может быть уточнить надо?  Достаточно в шаблоне, который используется для создания чертежа, включить эти самые зоны.
    • ak762
×
×
  • Создать...