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

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

NUMPL

Разбивать, конечно. Вообще, пихание всего и вся в одну единственную процедуру - плохое занятие. Память, утечки, разумный debug, неубиваемые переменные.

А как это сделать? Я просто не програмист. Надо чтобы в конце первого саба запускался второй? там какая то функция чтоли?
Ссылка на сообщение
Поделиться на других сайтах


Я просто не програмист

Уф, тогда сложнее.

в конце первого саба запускался второй

нет, нужно разбить всю процедуру на подпроцедуры, выделив либо повторяющийся код, либо некоторый "вспомогательный".

<noindex>http://www.sql.ru/forum/761656/vba-kak-vyz...-sub-iz-drugogo</noindex>

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

Уф, тогда сложнее.

нет, нужно разбить всю процедуру на подпроцедуры, выделив либо повторяющийся код, либо некоторый "вспомогательный".

<noindex>http://www.sql.ru/forum/761656/vba-kak-vyz...-sub-iz-drugogo</noindex>

Создал после процедуры вторую процедуру, но приходится прописывать вот так:

Sub Macro1()

End Sub

Sub Macro2()

call Macro1

...

End Sub

потому что сначала выполняет вторую процедуру, а потом первую, почему-то.....ну проблему решили) спасибо)

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

NUMPL

А проблема в именовании. Первая должна быть Main(), а в ней уже всякие CALL

Сколько не пишу, всегда помогаете) Спасибо большое!))
Ссылка на сообщение
Поделиться на других сайтах

Hi, All!

Сегодня столкнулся с траблой....

Возжелал я нарезать шестерню средтвами SW.

А именно получить профили зубьев по типу нарезанием зубьев шестерни рейкой.

всё вроде просто.... делаем сборку из заготовки шестерни и рейки.

Зубчатая рейка выполнена в соответствии заданному модулю.

Накладываем зависимости так, что заготовка шестерни имеет свойство поворачиваться при линейном смещении рейки. Например по горизонту. Для этого применяем зависимость типа "тяговое усилие". всё отлично!

Получаем модель, где получаем построение эвольвентного профиля зуба. Для чего:

1. перемещаем по горизонту рейку (при этом заготовка шестерни поворачивается)

2. Выдавливает профиль рейки на тело шестерни. Получаем вырез. Делаем его не зависимым.

3. повторяем действия п.1, сместив рейку на некий шаг. например 1 мм.

Проделав сии действа n-ное кол-во раз задумался.... А почему не использовать VBA?

Казалось бы всё просто: VBA посредством макрорекордера сгенерит код, который можно творчески доработать и получить прогу, которая избавит от чисто механических действий по пунктам 1,2,3.

так вот. у меня вопрос: кто-нибудь делал подобное? У меня код,записанный макрорекордером, не работает. Я тут совсем ничего не понимаю, и поэтому спрашиваю:

Возможно ли реализовать идею с автоматизацией модели нарезания зубчатого эвольветного зацепления?

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

Возжелал я нарезать шестерню средтвами SW.

а может быть вам стОит поумерить свои желания :wink:

<noindex>Построение эвольвенты зубчатого колеса</noindex>

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

Добрый день! Подскажите имеется ли способ запустить утилиту "Исправить эскиз" через API, или как повторить действие этой утилиты? Непосредственно интересует удаление совпадающих линий.

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

Borgosh

На первый взгляд такой функции в API нет. Можно пойти другим путём: получить все SketchSegments, и перечисляя их искать, является ли конечная точка текущего - началом следующего. Типа закрыт ли эскиз. Сомнительный способ))) но может сработать.

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

streamdown, так не получится, так как эскиз представляет собой трехмерную сетку созданную при помощи API, при создании некоторые линии двоятся, их и нужно удалить.

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

Тьфу ты....ёмаё. Есть там всё)))

C# -

SwApp.RunCommand((int)swCommands_e.swCommands_RepairSketch, "");

VBA -

swApp.RunCommand swCommands_RepairSketch, ""

Тупо вешаете команду на кнопку. Но окошечка с лупой не избежать (обычным юзерам :bleh: ). Спешал фор Вас могу расстараться ($$$) и закрывать его. И всё будет по одной кнопке.

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

а может быть вам стОит поумерить свои желания :wink:

<noindex>Построение эвольвенты зубчатого колеса</noindex>

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

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

Здраствуйте, помогите кто нибудь понять в чем проблема.

Установил SW2009, VS2010 Ultimate (VS2012 Ultimate) и на последок поставил SW API SDK.

Все программы ставил на диск С. win7 x64.

Согласно хелпу :

Click Start > Programs > Microsoft Visual Studio version_number > Microsoft Visual Studio version_number.

Click the New Project button.

Select Visual C++ > SolidWorks COM Non-Attributed Addin from the templates list.

Однако там ничего такого нету. Что я сделал не так или чего не установил??

Изменено пользователем alyaska
Ссылка на сообщение
Поделиться на других сайтах

Доброго времени суток, уж извините если не в тему.

Помогите пожалуйста установить все что нужно для написания программ для SolidWorks.

Установил SW2009, потом VS2012(или 2009) Ultimate, потом SW API SDK. Однако в Вижуале не появилось

Visual C++ > SolidWorks COM Non-Attributed Addin

уже и ставил и переставлял винду и фреймворки а все не появляется.

WIn7 x64. Подскажите что я делаю не так.

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

alyaska

- Отключить антивирусы и всякие блокировщики и поставить заново.

- Поставить с диска SP0, не с апдейтов. Т.е. вставляете диск SP0, запускаете установщик солида - исправить-поставить галку на API.

- Поставить поверх установленного с диска, отдельно Solidworks API SDK.msi

- Проверить все разрешения на запись в папки Program Files и Program Files (x86)

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

Hi, All!

Сегодня столкнулся с траблой....

Возжелал я нарезать шестерню средтвами SW.

А именно получить профили зубьев по типу нарезанием зубьев шестерни рейкой.

всё вроде просто.... делаем сборку из заготовки шестерни и рейки.

Зубчатая рейка выполнена в соответствии заданному модулю.

Накладываем зависимости так, что заготовка шестерни имеет свойство поворачиваться при линейном смещении рейки. Например по горизонту. Для этого применяем зависимость типа "тяговое усилие". всё отлично!

Получаем модель, где получаем построение эвольвентного профиля зуба. Для чего:

1. перемещаем по горизонту рейку (при этом заготовка шестерни поворачивается)

2. Выдавливает профиль рейки на тело шестерни. Получаем вырез. Делаем его не зависимым.

3. повторяем действия п.1, сместив рейку на некий шаг. например 1 мм.

Проделав сии действа n-ное кол-во раз задумался.... А почему не использовать VBA?

Казалось бы всё просто: VBA посредством макрорекордера сгенерит код, который можно творчески доработать и получить прогу, которая избавит от чисто механических действий по пунктам 1,2,3.

так вот. у меня вопрос: кто-нибудь делал подобное? У меня код,записанный макрорекордером, не работает. Я тут совсем ничего не понимаю, и поэтому спрашиваю:

Возможно ли реализовать идею с автоматизацией модели нарезания зубчатого эвольветного зацепления?

К чему такие сложности если есть Gearteq он вам все нарисует и без заморочек.

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

ЭЭЭЭЭЭ!!!!!

ИГРАЕМ В ТУПИЛКУ ЧТО-ЛИ?!?!?!??!?

читай вопрос!

Там нее как ПОСТРОИТЬ ЭВОЛЬВЕНТУ.

Там вопрос как сделать макрос, автоматизирующий сей процесс.

У тебя есть мысли как применить VBA в этом деле?

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

Там вопрос как сделать макрос, автоматизирующий сей процесс.

А MechSoft_2004 - не подходит взаместо макроса???
Ссылка на сообщение
Поделиться на других сайтах

Там нее как ПОСТРОИТЬ ЭВОЛЬВЕНТУ.

Там вопрос как сделать макрос, автоматизирующий сей процесс.

А MechSoft_2004 - не подходит взаместо макроса???
Или посовременнее Solidworks GearTrax.
Ссылка на сообщение
Поделиться на других сайтах

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

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

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

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

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

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

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

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

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

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



  • Сообщения

    • Snake 60
      Скорее всего исправляли в конкретной сборке, для конкретных тел. Насколько я помню, надо в самом эскизе профиля заполнить свойство Description
    • Snake 60
      Делаете дырку в свае - вставляете в нее трубу и 2 человеко-силы крутят сваю ) Дёшево и сердито и не нужен никакой планетарный редуктор ))
    • gudstartup
      вы всегда ищите свой путь или будете делать то что вам советуют? с самого начала прежде чем приступать к экспериментам вам нужно было вынуть носитель и сделать образ. diskcopy делает копию гибкого диска на другой а вам надо сделать образ жесткого диска или карты памяти. делайте как советует @Viktor2004 иначе еще чего нибудь сломаете или вам станок не нужен и вы его приобрели для экспериментов ? вот а печатной машинке из прошлого нельзя а вот на синумерике можно - удивительные вещи в настоящем происходят!! на 100 % уверен что там не модуль а либо писимиси ай либо жд @mircomax81 хотите работать в дос почитайте помощь по командам 
    • PuKoLLleT
      Доброго дня всем. Поделитесь опытом,раньше такое не доводилось делать. На торце фланца нужно сделать  восемь отверстий ф17H7 на токарно-фрезерном станке с осью Y ,имеется ManualGuide.В моем понимании нужно просверлить,а затем торцевой фрезой расточить нужный диаметр.Получится такой фокус,или надо разверткой доводить нужный размер?  Стойка Fanuc 0i-Tf.
    • Snake 60
      Всё верно, я даже русификатор делал для него (ушло на это где-то около года). Хороший софт был, я всех знакомых на него подсадил в свое время :) У меня даже где-то образ на виртуалке лежит с SW2014+MechSoft, Жаль, что автодеск его поглотил, а не DS :( А по сути вопроса, проектировал двухступенчатый планетарный редуктор в свое время. Что было нужно: Справочник по планетаркам (автора не помню, если надо поищу), из софта MathCAD + GearTeq (софтина идет вместе с GearTrax, только рассчитывает и моделирует несколько зацеплений согласно выбранной схеме, в том числе планетарки) Ой и ошибаетесь. Звездочки - не равно зубчатые колеса в планетарке) Мы намучились с малой точностью изготовления на эл.эрозии, а Вы лазером ))) Был собран опытный образец редуктора с незакаленными деталями, чисто проверить геометрию, отладить сборку. Так потом начальство этот редуктор сказало испытать в бою, как я не противился)) Помер за пару дней интенсивных нагрузок ))) Материал, термообработка и точности изготовления решают )
    • Snake 60
      @Тихоход  Ещё один вариант - изучать программирование и писать свою программу/макрос. Вот пример конфигуратора двери: https://www.youtube.com/watch?v=wv4HryWQBSk
    • mircomax81
      Посредством Diskcopy можно сделать адекватную копию на флоппи диск?
    • Andrey_kzn
      Да, ведь советовали автору вытащить жёсткий диск и сделать образ. Неужели самому не интересно, как устроен этот старый промкомпьютер? Там может стоять как жёсткий диск, так и CF-карта, или же Disc-on-chip или Disc-on-module.  Как-то очень давно, на подобном промышленном оборудовании (большая печатная машина) я не смог перенести  ПО с родной CF - карты на другую, такого же размера но другой фирмы. Была также станочная оболочка под досом.  Образ я делал Нортон гостом, развернул его на другую CF-карту без проблем. Машина загрузилась нормально и работала ровно 2 дня, на неродной CF-карте,  потом зависла, и отказалась загружаться. Пришлось вызывать сервисника. От него мы узнали, что нельзя просто так взять и заменить карту  - носитель системного ПО, на другую. А полезли мы туда, так как руководство захотело печатать отчёты по работе машины. В станочном ПО такая функция была. Вот только принтер надо было купить у фирмы - производителя этой самой машины. В попытках заставить работать другой принтер мы редактировали файл  AUTOEXEС.BAT, на предмет загрузки драйвера принтера, ничего не получилось, зато перестали открываться некоторые страницы станочного ПО.  Образ у нас был давно снят, и мы развернули его на другую карту памяти. Родную карту я трогать не стал (как чувствовал, что нельзя ). Сервисник восстановил ПО с архивной дискеты на родную карту памяти, и всё заработало. Дискеты с архивами ПО шли вместе с документацией к машине.  Там были дискеты с Досом, станочной оболочкой, параметрами приводов, программой ПЛК. Он же и предупредил нас о предельно аккуратном обращении с родной картой памяти, и посоветовал немедленно сделать образы с архивных дискет, что мы сразу и проделали.. Вот такой сюрприз от машины эпохи Дос.
    • Борман
    • gudstartup
      а ведь все работало...
×
×
  • Создать...