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

Api Cim_e6


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

Господа! Помогите разобраться с API функциями.

В документации к CimE6 есть примеры программирования в VBasic для функций CimESuite

и с ними все более или менее понятно, а вот с чисто API функциями примеров под VB нет и

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

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


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

А почему бы не сразу пример формирование сборочной спецификации? :blink::smile:

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

А почему бы не сразу пример формирование сборочной спецификации? :blink::smile:

<{POST_SNAPBACK}>

Про состав сборки просто сказано для примера :rolleyes: .Есть например функция GetModels ( ), но как я ее некрутил нехочит она работать под VB. :surrender:
Ссылка на сообщение
Поделиться на других сайтах
  • 3 недели спустя...

Про состав сборки  просто сказано для примера :rolleyes: .Есть например функция GetModels ( ), но как я ее некрутил нехочит она работать под VB. :surrender:

<{POST_SNAPBACK}>

Скорее всего чисто API функции не для VB... Cimatronу УРА!!! :bleh:

А вот здесь уж совсем непонятно в чем дело...

CreateText не работает выдает сообщение дескать метод непреемлем для объекта. Непонятно.... :g:

Private Sub Кнопка3_Click()

Dim Drw As Boolean

Dim drSh As DrSheet

Dim tMP As String

Dim oParams(6) As Double ' Variant

'эта функция работает

Drw = gSuite.Drafting.GetActiveSheetObjectName(drSh, tMP)

txt1.Text = txt1.Text + vbCrLf + tMP

oParams(0) = 0

oParams(1) = 10

oParams(2) = 0

'Drw = gSuite.Drafting.CreateNewSheet("asdasd") 'это тоже работает

'эта вот функция неработает почему-то

Drw = gSuite.Drafting.CreateText(drSh, tMP, oParams, 3, "Arial", False, False)

End Sub

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

Скорее всего чисто API функции не для VB... Cimatronу УРА!!! :bleh:

А вот здесь уж совсем непонятно в чем дело...

CreateText не работает выдает сообщение дескать метод непреемлем для объекта. Непонятно.... :g:

Private Sub Кнопка3_Click()

Dim Drw As Boolean

Dim drSh As DrSheet

Dim tMP As String

Dim oParams(6) As Double ' Variant

'эта функция работает

Drw = gSuite.Drafting.GetActiveSheetObjectName(drSh, tMP)

txt1.Text = txt1.Text + vbCrLf + tMP

oParams(0) = 0

oParams(1) = 10

oParams(2) = 0

'Drw = gSuite.Drafting.CreateNewSheet("asdasd") 'это тоже работает

'эта вот функция неработает почему-то

Drw = gSuite.Drafting.CreateText(drSh, tMP, oParams, 3, "Arial", False, False)

End Sub

<{POST_SNAPBACK}>

Нее функции работают под VB нормально (даже GetModels) и получить состав сборки оказалось пара пустяков...

А вот чертежные функции у них даже из Хелпа последних версий убраны ведать там боольшие проблемы...

А вот интересно такой параметр как Номер позиции в сборке это что - аттрибут или сугубо внутрий параметр Симатрона.

Ссылка на сообщение
Поделиться на других сайтах
  • 1 месяц спустя...

На американском форуме Симатрона по этой ссылке на тему -

<noindex>API - User Functions</noindex> можно взять некоторые функции.

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

Да , неплохие там штучки есть. Мне поравился полигон (равносторонний многоугольник). Только центр его всегда совпадает с UCS 10_1 .А Text in tree непонятно как работает. И работает ли вообще? Это я про Е-7.

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

Жизнь заставила построить эвольвенту. Поискал в стандартных функция Элита не нашел.Может не там искал. Пришлось написать API функцию к ней еще и спираль архимеда присовокупил. Вроде и ничего получилось... :bleh:

Может кому надо :rolleyes:

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

Жизнь заставила построить эвольвенту. Поискал в стандартных функция Элита  не нашел.Может не там искал. Пришлось написать API функцию к ней еще и спираль архимеда присовокупил. Вроде и ничего получилось... :bleh:

Может кому надо :rolleyes:

<{POST_SNAPBACK}>

Маласть доработал функцию. Теперь она строит кривую полюбому уравнению.

Также может получить точки из текстового файла

Подробности в архиве...

CurveFn.rar

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

Маласть доработал функцию. Теперь она строит кривую полюбому уравнению.

Также может получить точки из текстового файла

Подробности в архиве...

<{POST_SNAPBACK}>

А можно исходный код? Или хотя бы пример добавления своих выпадающих списков в меню?

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

А можно исходный код? Или хотя бы пример добавления своих выпадающих списков в меню?

<{POST_SNAPBACK}>

Вообще-то в помощи данный вопрос изложен хорошо и есть пример.

Прикладываю файл из хелпа.

VB_Create_Command.zip

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

Создал небольшую функцию построения эскиза шестеренки(для Cim E6.02).

В функции реализован один метод задания данных: модуль и число зубьев.

К недостаткам относится - отсутствие радиусов у основания зуба и его вершины(уж больно сложно это сделать) :thumbdown: .

Если функция будет востребована можно расширить варианты задания параметров колеса, и еще чего-нибудь добавить/исправить .

Высказывайте пожелания... :bleh:

Gear.rar

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

Во первых , большое спасибо за работу над API . Верной дорОгой идёте. Но шестерёнка ещё далека от совершенства. Я говорю про основание зуба. Лучше уж перевести из Ай-Ти. Извините ,что смотрю в зубы дарёному коню.

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

Во первых , большое спасибо за работу над API . Верной дорОгой идёте. Но шестерёнка ещё далека от совершенства. Я говорю про основание зуба. Лучше уж перевести из Ай-Ти. Извините ,что смотрю в зубы дарёному коню.

<{POST_SNAPBACK}>

Доработал функцию,проверяю. При тестировании получил такую картину(см.рисунок).

Белым и коричневым цветом профиль импортированый из IT.Синий цвет - эскизы созданые в Элите.

В IT при построении колес с числом зубьев 60 и модулем 1 и 3 строится страный контур.

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

To: kvin

Господа я так понял что все пишут в Сьюте. Может у кого чего завалялось в чистом АРI, очень нужны исходники.

Что касается зубьев, если я не ошибаюсь IT строит зубья по стандарту DIN а он немного отличается от ГОСТ-а вчастности высота ножки по DIN 1,2*m(модуль) по ГОСТ 1,25*m. Есть еще некие расхождения.

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

Это более упрощенные методы и функции.

CimESuite is a user-friendly collection of wrapper methods for Cimatron E's API.

In other words, it contains ready-made functions for various Cimatron E applications.

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

Это более упрощенные методы и функции.

CimESuite is a user-friendly collection of wrapper methods for Cimatron E's API.

In other words, it contains ready-made functions for various Cimatron E applications.

<{POST_SNAPBACK}>

Так бы сразу по русски и писали :doh: .

Хотелось бы конечно обходится без них но получается, т.к. больно сложно да и невсегда понятно как пользоваться API функциями.

Выкладываю доработаную функцию построения шестеренок.

Gear.rar

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

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

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

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

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

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

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

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

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

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

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




×
×
  • Создать...