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

Api Cim_e6

kvin

Автор: kvin,
в Cimatron

 Рассказать Подписчики 1

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

kvin

kvin 70

Опубликовано:
Опубликовано:

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

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

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

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

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


UAV

UAV 19

Опубликовано:
Опубликовано:

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

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

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

kvin 70

Опубликовано:
  • Автор
Опубликовано:

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

<{POST_SNAPBACK}>

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

NIV 0

Опубликовано:
Опубликовано:

Про состав сборки  просто сказано для примера :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 недель спустя...
kvin

kvin 70

Опубликовано:
  • Автор
Опубликовано:

Скорее всего чисто 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 месяц спустя...
UAV

UAV 19

Опубликовано:
Опубликовано:

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

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

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

ALEKS 53

Опубликовано:
Опубликовано:

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

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

kvin 70

Опубликовано:
  • Автор
Опубликовано:

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

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

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

kvin 70

Опубликовано:
  • Автор
Опубликовано:

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

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

<{POST_SNAPBACK}>

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

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

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

CurveFn.rar

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

Knes 0

Опубликовано:
Опубликовано:

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

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

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

<{POST_SNAPBACK}>

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

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

kvin 70

Опубликовано:
  • Автор
Опубликовано:

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

<{POST_SNAPBACK}>

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

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

VB_Create_Command.zip

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

kvin 70

Опубликовано:
  • Автор
Опубликовано:

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

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

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

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

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

Gear.rar

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

ALEKS 53

Опубликовано:
Опубликовано:

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

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

kvin 70

Опубликовано:
  • Автор
Опубликовано:

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

<{POST_SNAPBACK}>

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

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

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

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

ART 511

Опубликовано:
Опубликовано:

To: kvin

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

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

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

ART 511

Опубликовано:
Опубликовано:

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

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.

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

kvin 70

Опубликовано:
  • Автор
Опубликовано:

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

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 эмодзи.

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

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

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

×
 Рассказать
Подписчики 1
Перейти к списку тем

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

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


  • Сообщения

    • Snake 60
      Спецификация для SW по ГОСТ

      Автор: Snake 60 · Опубликовано:

      @eljer0n  Откройте макрос SaveDRW.swp редактором VBA Найдите вот эти строки: Поменяйте выделенную цифру на нужную вам 3 или 4 - это количество символов которое останется от имени конфигурации. PS При сохранении в PDF тоже ругается на неправильное название чертежа, т.к. тоже обрезает название конфигурации до двух знаков, там тоже надо править при желании...
    • eljer0n
      Спецификация для SW по ГОСТ

      Автор: eljer0n · Опубликовано:

      @malvi.dp в общем порядок следующий (на каждое исполнение свой чертеж и позиция в спецификации):   Для исполнения с 2мя знаками. 1. Есть деталь с именем формата ХХ-01.01-01 (последнее -01 это исполнение) 2. В Мпроп детали назначается исполнение из конфигурации (как у вас на картинке). Отображается корректно 3. Создается чертеж по модели, исполнение в основной надписи чертежа детали отображается корректно. 4. Сохраняется через SaveDRW с корректным именем. 5. В спецификации сборки все отображается корректно.     Для исполнения с 3мя знаками. 1. Есть деталь с именем формата ХХ-01.01-011 (последнее -011 это исполнение) 2. В Мпроп детали назначается исполнение из конфигурации. Отображается корректно 3. Создается чертеж по модели, исполнение в основной надписи чертежа детали отображается корректно. 4. Сохраняется через SaveDRW с некорректным именем, а именно - с обрезанным до двух знаков исполнением (-01). 5. В спецификации сборки шифр отображается (внезапно! может какой глюк был: у солида или у меня ) корректно, как и у вас на рисунке.     Выходит, загвоздка все-таки только в сохранялке чертежа.
    • gudstartup
      SYS_ALM410 CPU LOCAL DRAM ERROR на 0i Mate - TD

      Автор: gudstartup · Опубликовано:

      да информация о решенной проблеме очень важна так что будем ждать хороших новостей!
    • mrVladimir
      SYS_ALM410 CPU LOCAL DRAM ERROR на 0i Mate - TD

      Автор: mrVladimir · Опубликовано:

      @gudstartup Спасибо Вам за помощь. Теперь дело в приобретении платы. Как что-то получится (сперва приобрести, потом поставить) обязательно отпишусь.
    • gudstartup
      Софт фанук

      Автор: gudstartup · Опубликовано:

      а как вы taxid фирмы нашли?
    • gudstartup
      SYS_ALM410 CPU LOCAL DRAM ERROR на 0i Mate - TD

      Автор: gudstartup · Опубликовано:

      все что я написал в цитате выше по теме полная фигня в связи с вновь приобретённой информацией. можно менять любые компоненты в пределах серии чпу если только не меняете по или записываете oprminf но  всегда могут быть нюансы  @mrVladimir все должно получиться извините за то что выдал непроверенную информацию за мнение типа знающего эксперта оказывается я 
    • malvi.dp
      Спецификация для SW по ГОСТ

      Автор: malvi.dp · Опубликовано:

      Какое у детали имя файла и как формируете Обозначение и Наименование? Вы каждое исполнение сохраняете в новый чертеж? Или это групповой чертеж? Если групповой-то имя конфигурации в нем быть не должно. Стоит ли галочка "Исполнение" "Из конфигурации"? На сколько мне не изменяет память макрос сохраняет файл чертежа с тем же именем что и файл модели в папке модели. В спецификации все правильно отображается, даже если знаков исполнений больше трех  
    • gudstartup
      Замена плат

      Автор: gudstartup · Опубликовано:

      и главная деталь чтобы на системе была remote option system а именно файл oprminf.000 c сертификатами и были ли проблемы с ними после замены компонентов.
    • boomeeeer
      Софт фанук

      Автор: boomeeeer · Опубликовано:

      с него родимого
    • Grundick
      Подпрограмма пересчёта положения системы координат через sin, cos для fanuc. Кинематика 3+2, поворотные оси B,C.

      Автор: Grundick · Опубликовано:

      У Вас в чём проблема то? 
×
×
  • Создать...