Solidworks API

[Sla_68 4]

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

[Sla_68 4]

Подскажите пожалуйста, каким способом можно создать справочную плоскость "среднюю", на базе 2 параллельных плоскостей. И второй вопрос доступны ли в api дополнительные сопоряжения? В частности "ширина"

[Sla_68 4]

Еще вопрос по табличке BOM, как можно вернуть ссылку на деталь по выделенной ячейке? Хочу создать макрос , который будет вставлять деталь на лист чертежа, указав на поле таблицы.

[Санёёк 0]

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

[Kelny 1 234]

В 28.04.2018 в 17:42, Санёёк сказал:

У меня вопрос, как написать простой макрос который добавлял в свойствах файла определенный значение. Например.....наименование и обозначение   и по ним бы прописывал то что я хочу.....шифр и имя детали например.

Разбирайтесь, Change_property_V2.0: http://kelnyproject.ucoz.ru/load/6-1-0-8

Изменено 29 апреля 2018 пользователем Kelny

[Sla_68 4]

Всем привет. Не смог разобраться до конца с методом GetProjectedPointOn применительно к сборке. В деталях точку данный метод проецирует, в сборке не получается. У меня вопрос : у функции 2 аргумента вектор-направления и точка. Если я работаю в сборке, нужно ли мне делать трансформацию координат этих аргументов в пространство компонента детали на которую я пытаюсь спроецировать точку?.

[Sla_68 4]

Разобрался, причина была в том что не была объявлена переменная Dim mathUtils As SldWorks.MathUtility.

[v-david 18]

В 28.04.2018 в 17:42, Санёёк сказал:

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

На мой взгляд удобнее использовать Excel таблицу параметров, но это дело вкуса. Можно и как во вложенном примере

+Масса+Материал.swp

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

Изменено 3 мая 2018 пользователем v-david

[alek77 202]

Подскажите пожалуйста, как на виде развертки в чертеже добавить габаритные размеры и размеры до линий сгиба?

[ILL 241]

@alek77 , а причем тут Solidworks API??

[alek77 202]

2 часа назад, ILL сказал:

@alek77 , а причем тут Solidworks API??

Я перефразирую тогда: 

Подскажите пожалуйста, как на виде развертки в чертеже добавить габаритные размеры и размеры до линий сгиба с помощью API? 

Я даже не подумал, что если спрашиваю в этой ветке, то мой вопрос будет непонятен, сорри  

[alek77 202]

Всем привет

Можно ли подружить солид с visual studio 2017 так, чтобы редактирование макроса открывалось в VS2017?

[streamdown 1 565]

 

8 часов назад, alek77 сказал:

Можно ли

нет.

 

В 05.05.2018 в 21:47, alek77 сказал:

как на виде развертки в чертеже добавить

1) Выбрать исходную точку, выбрать грань, вставить модельные размеры.

2) Хитрым способом выбрать кромку, найти все эскизы, проставить размеры до них.

Изменено 6 июня 2018 пользователем streamdown

[Gaidn 11]

Здравствуйте! По много раз за день приходится пользоваться командой "Копировать проект" со стандартным фиксированным для нас набором параметров. Можно ли как-то с помощью макроса это сделать? Как выйти на этот модуль? Запись макроса, естественно, не помогла. ))

Всем заранее спасибо! )

[streamdown 1 565]

@Gaidn PackAndGo

[Gaidn 11]

22 минуты назад, streamdown сказал:

@Gaidn PackAndGo

Большое спасибо! Буду разбираться. )

[ILL 241]

23 часа назад, Gaidn сказал:

Можно ли как-то с помощью макроса это сделать

 

Возможно, подойдёт готовое решение

 

 

[Gaidn 11]

3 часа назад, ILL сказал:

 

Возможно, подойдёт готовое решение

Ссылка что-то не работает. )

[ILL 241]

26 минут назад, Gaidn сказал:

Ссылка что-то не работает. )

 

Похоже, глюк форума.. Со второго раза правильно ссылку открывает..

[MUXALblCH 43]

Добрый, день. Прошу помощи у тех кто освоил api Pack and go? За основу взял код из хэлпа. Проблема при повторном запуске макроса вставки в сборку. На ролике видно, если повторно использую исходный компонент, то подхватываются предыдущие копии. Кто подскажет куда копать?

Скрытый текст

 

Set swPackAndGo = swModelDocExt.GetPackAndGo
' Get number of documents in assembly
namesCount = swPackAndGo.GetDocumentNamesCount'на этом этапе подхватываются лишние экземпляры

Скрытый текст

'---------------------------------------------------------------------------
' Предварительные условия:
' 1. Выбрать заменяемый компонент в дереве построения головной сборки.
' 2. Запустить макрос.
'
' Результат работы программы:
' 1. Генерирует цифровой префикс к выбранному компоненту включая вложенные компоненты.
' 2. Создает экзэмпляр компонента и всех чертежей в папке головной сборки
' 3. Заменяет выбранный компонент созданным экземпляром.
'---------------------------------------------------------------------------


Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModelDoc As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swPackAndGo As SldWorks.PackAndGo
Dim openFile As String
Dim pgFileNames As Variant
Dim pgFileStatus As Variant
Dim pgGetFileNames As Variant
Dim pgDocumentStatus As Variant
Dim status As Boolean
Dim warnings As Long
Dim errors As Long
Dim i As Long
Dim namesCount As Long
Dim myPath As String
Dim statuses As Variant

Dim FilePath1 As String
Dim FilePath2 As String
Dim FileName1 As String
Dim FileName2 As String
Dim curObj As Object
Dim objComponent As SldWorks.Component2
Dim SelMgr As SldWorks.SelectionMgr
Dim swAssy As SldWorks.AssemblyDoc
Public Prefix As String


Private Function myGetDate() As String
    Dim MyStr As String
    Dim MyDate As Variant

    MyDate = Now()
    MyStr = Format(MyDate, "yyMMddHHmmss")

    myGetDate = MyStr
End Function
'функция исключения имени файла из полного пути
'Path - полный путь к файлу (включая имя файла)
Private Function myGetFolder(Path As String) As String

myGetFolder = Left$(Path, InStrRev(Path, "\"))

End Function

Sub main()

Set swApp = Application.SldWorks

' Open assembly

Set swModelDoc = swApp.ActiveDoc
Set swModelDocExt = swModelDoc.Extension

Set SelMgr = swModelDoc.SelectionManager
Set curObj = SelMgr.GetSelectedObjectsComponent4(1, 0)
'i = SelMgr.GetSelectedObjectCount2(-1)
Set objComponent = curObj
Set swAssy = swModelDoc

FilePath2 = curObj.GetPathName() 'путь к детали с выбраными телами
FileName2 = Dir(FilePath2, vbDirectory)
FilePath1 = swModelDoc.GetPathName()
FileName1 = Dir(FilePath1, vbDirectory)
FilePath1 = myGetFolder(FilePath1) 'убираем имя компонента из пути
FilePath2 = myGetFolder(FilePath2) 'убираем имя компонента из пути
Prefix = myGetDate
MainForm.TextBox1.Text = Prefix
MainForm.Show
' Open assembly
Set swModelDoc = swApp.OpenDoc6(FilePath2 + FileName2, swDocASSEMBLY, swOpenDocOptions_Silent, "", errors, warnings)
' Get Pack and Go object
Debug.Print "Pack and Go"
Set swPackAndGo = swModelDocExt.GetPackAndGo
' Get number of documents in assembly
namesCount = swPackAndGo.GetDocumentNamesCount
Debug.Print "  Number of model documents: " & namesCount

' Include any drawings, SOLIDWORKS Simulation results, and SOLIDWORKS Toolbox components
swPackAndGo.IncludeDrawings = True
Debug.Print "  Include drawings: " & swPackAndGo.IncludeDrawings
swPackAndGo.IncludeSimulationResults = False
Debug.Print "  Include SOLIDWORKS Simulation results: " & swPackAndGo.IncludeSimulationResults
swPackAndGo.IncludeToolboxComponents = False
Debug.Print "  Include SOLIDWORKS Toolbox components: " & swPackAndGo.IncludeToolboxComponents

' Get current paths and filenames of the assembly's documents
status = swPackAndGo.GetDocumentNames(pgFileNames)
Debug.Print ""
Debug.Print "  Current path and filenames: "
If (Not (IsEmpty(pgFileNames))) Then
    For i = 0 To UBound(pgFileNames)
        Debug.Print "    The path and filename is: " & pgFileNames(i)
    Next i
End If

' Get current save-to paths and filenames of the assembly's documents
status = swPackAndGo.GetDocumentSaveToNames(pgFileNames, pgFileStatus)
Debug.Print ""
Debug.Print "  Current default save-to filenames: "
If (Not (IsEmpty(pgFileNames))) Then
    For i = 0 To UBound(pgFileNames)
        Debug.Print "   The path and filename is: " & pgFileNames(i)
    Next i
End If

' Set folder where to save the files
myPath = FilePath1
status = swPackAndGo.SetSaveToName(True, myPath)
' Flatten the Pack and Go folder structure; save all files to the root directory
swPackAndGo.FlattenToSingleFolder = True
' Add a prefix to the new Pack and Go filenames

swPackAndGo.AddPrefix = Prefix

 ' Verify document paths and filenames after adding prefix and suffix
ReDim pgGetFileNames(namesCount - 1)
ReDim pgDocumentStatus(namesCount - 1)
status = swPackAndGo.GetDocumentSaveToNames(pgGetFileNames, pgDocumentStatus)
Debug.Print ""
Debug.Print "  My Pack and Go path and filenames after adding prefix: "
For i = 0 To (namesCount - 1)
     Debug.Print "    My path and filename is: " & pgGetFileNames(i)
Next i
' Pack and Go
statuses = swModelDocExt.SavePackAndGo(swPackAndGo)
swApp.CloseDoc (FilePath2 + FileName2)
status = swAssy.ReplaceComponents(FilePath1 + Prefix + FileName2, "", True, True)
End Sub

 

solid 2016 sp5.0