Solidworks API

[streamdown 1 565]

1 час назад, Blurp сказал:

даун прав насчет картиночников. Ну его нафиг енто апи

Да, татарский юноша))) правильный вывод!

[zerganalizer 570]

Ну если уж катией делать без API любую трубу - то 2 команды и 2 формулы дадут кривую с точностью в пару микрон.

[streamdown 1 565]

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

А потом с местными детишками ещё и конфигуратор замутить, основываясь на том у кого какая лопатка-копалка.

[Blurp 1 678]

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

Да, татарский юноша))) правильный вывод!

Тащем-то моя Blurp, а не @Bully 

Хотя может это и есть

В 18.01.2018 в 15:29, Sla_68 сказал:

интеллектуальный троллинг

с намеком, типа всё комьюнити тут на одно татарское лицо.

 

[Sla_68 4]

Добрый вечер. Столкнулся со следующими неудобствами. Есть объекты эскиза -SketchSegment. При работе с объектами не удобно оперировать их точками SketchPoint . Т е мне приходится извлекать точки отдельным массивом и сопоставлять их координаты разными методами. Нет ли способа извлекать точки из объектов -SketchSegment ?

[streamdown 1 565]

Может как всегда? Пойдём от обратного.

Что вообще надо делать со SketchSegment?

[Sla_68 4]

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

Может как всегда? Пойдём от обратного.

Что вообще надо делать со SketchSegment?

Вывести точку старта и точку финиша кривой. Вчера рылся  в макросах и нашел.

Set swSkSeg1 = Segments(0)
      Set swSkSeg2 = Segments(1)
      Set pt11 = swSkSeg1.GetStartPoint2
      Set pt12 = swSkSeg1.GetEndPoint2

Но проблема хоть и решена но осталось не понятно вот что . При при объявлении переменных я обычно легко могу увидеть все методы , при работе с ними. Жмешь пробел после точки и появляется выпадающий список. Если нужно по алфавиту вспомнить то пишешь от 1 и более символов после точки   Set pt11 = swSkSeg1.Get..... И к сожалению остутсвуют GetStartPoint2 в этом списке. Почему так? Из за этого можно упустить много чего полезного из вида?

[streamdown 1 565]

@Sla_68 потому что swSkSeg1 должен быть конкретным типом, а не базовым классом.

Dim swSketchCurrLine As SldWorks.SketchLine
Dim swStartPt As SldWorks.SketchPoint
Set swStartPt = swSketchCurrLine.GetStartPoint2

Всё подсвечивает

36 минут назад, Sla_68 сказал:

Вывести точку старта и точку финиша кривой

Вот сейчас с ужасом представляю, а как вы раньше то их находили? )))

Изменено 13 февраля 2018 пользователем streamdown

[Sla_68 4]

Вот сейчас с ужасом представляю, а как вы раньше то их находили? )))

Не нужно .... это оочень страшный страшный говнокод... Куча циклов, координаты и их сравнение..

[streamdown 1 565]

@Sla_68 Кстати, по этому поводу есть ещё вариант. Тож рабочий.

Можно находить constrain (привязки) для линий. И по ним уже брать координаты.

[Sla_68 4]

Доброго дня. Очередная непонятая проблема возникла с созданием и переключением конфигураций.

Когда я создаю новую конфигурацию из "default" (например "raspil")  , raspil становится активной. Я делаю вырез , а затем хочу переключить на default

При  переключении на "default"  солидворкс вылетает.

Не пойму в чем заключается суть проблемы.

А код выглядит вот так:

Set swConfMgr = part.ConfigurationManager '
    Set swConf = swConfMgr.ActiveConfiguration 'конфиг по умолчанию
    Set rConf = swConfMgr.AddConfiguration("raspil", "raspil comment", "raspil alternate name", 1, swConf.Name, "Derived description")
    

krepface.SelectByMark False, 2
part.SketchManager.InsertSketch True 'вставка 2D эскиза на рабочей плоскости
Set swSketch3 = swApp.ActiveDoc.GetActiveSketch2
swSketch3.Name = "otrez"
boolstatus = part.SketchManager.SketchUseEdge3(False, False)

skSegment1.SelectByMark 0, 2
skSegment2.SelectByMark 1, 2
skSegment11.SelectByMark 1, 2
skSegment22.SelectByMark 1, 2
boolstatus = part.SketchOffsetEntities2(0.1, False, False) 'смещение объектов
  Set myFeature = part.FeatureManager.FeatureCut3(True, False, False, 1, 0, 0.002, 0.002, False, False, False, False, 0, 0, False, False, False, False, False, True, True, True, True, False, 0, 0, False)
  If myFeature Is Nothing Then
    part.SketchManager.InsertSketch True 'выход из эскиза
    swSketch3.SelectByMark False, 2
    part.EditDelete
  Else
    boolstatus = part.Extension.SelectByID2(myFeature.Name, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    part.EditSuppress2 'погасить

  End If
  boolstatus = part.ShowConfiguration2(swConf.Name) 'переключает на default
    
End Sub

 

[streamdown 1 565]

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

ShowConfiguration2(swConf.Name)

Тут точно то что нужно? Не null, не потерянный контекст конфигурации... Может лучше в параметр имя передать как string

Изменено 20 февраля 2018 пользователем streamdown

[Sla_68 4]

Да , swConf.Name  видает "default".  Я немного поменял сейчас порядок кода и понял что виной всему вырез и все фичи  которые были созданы сразу после создания  rConf. Пришлось сделать так, все фичи делаем заранее , затем новую конфигурацию, а потом гасим то что нужно в фичах.

 

[streamdown 1 565]

А если так:

Set rConf = swConfMgr.AddConfiguration("raspil", "raspil comment", "raspil alternate name", swConfigOption_UseAlternateName + swConfigOption_SuppressByDefault, swConf.Name, "Derived description")

 

@Sla_68 спрашивал или нет, не помню...

зачем вы используете в параметрах значения Enum а не сами Enum? Вам кажется намного понятнее четвёртый параметр в AddConfiguration как "1" чем как полноценный swConfigOption_UseAlternateName ? 

Ещё вопрос: конфигурация обязательно должна быть производной? Раз вы указали имя родительской.

Изменено 20 февраля 2018 пользователем streamdown

[Sla_68 4]

Прошу сильно

7 часов назад, streamdown сказал:

А если так:

Set rConf = swConfMgr.AddConfiguration("raspil", "raspil comment", "raspil alternate name", swConfigOption_UseAlternateName + swConfigOption_SuppressByDefault, swConf.Name, "Derived description")

 

@Sla_68 спрашивал или нет, не помню...

зачем вы используете в параметрах значения Enum а не сами Enum? Вам кажется намного понятнее четвёртый параметр в AddConfiguration как "1" чем как полноценный swConfigOption_UseAlternateName ? 

Ещё вопрос: конфигурация обязательно должна быть производной? Раз вы указали имя родительской.

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

[streamdown 1 565]

9 часов назад, Sla_68 сказал:

из хелпа к апи

Будьте выше))) делайте красиво и для себя.

9 часов назад, Sla_68 сказал:

обошел

Ну тож не хорошо. Оберните в try-catch (или что там у вас в бейсике) и посмотрите какую ошибку покажет.

[Sla_68 4]

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

Оберните в try-catch

Не материтесь , я не понимаю смысл ..

[streamdown 1 565]

1 час назад, Sla_68 сказал:

Не материтесь

Да с вашим VBA только так и приходится.

 

Оберните вашу последнюю строчку так:

On Error GoTo ErrorHandler:
boolstatus = Part.ShowConfiguration2(swConf.Name)
Exit Sub  '(this stops the error handler from running when there is no error!)
ErrorHandler:
  MsgBox "An error occured -  error  " & Err.Number & ": " & Err.Description
.....

End Sub

 

Изменено 21 февраля 2018 пользователем streamdown

[Sla_68 4]

Нет, это другой тип ошибок. Когда ON ERROR, то  макрос останавливается и выдает сообщение об ошибке. А в данном случает макрос полностью отрабатывает. А потом при при работе в графическом окне происходит обвал системы.

[streamdown 1 565]

Аааа...так бы и написали.

Тогда добавьте после переключения конфигурации

swModel.ForceRebuild3(False)

swModel.GraphicsRedraw()

по идее, прям в макросе должно всё свалиться. Если, конечно, виноват код.

Изменено 21 февраля 2018 пользователем streamdown