yuri-pet

Помощь новичку Solidworks

16,731 posts in this topic

И никаких ошибок не выдает??

Share this post


Link to post
Share on other sites


4 минуты назад, ILL сказал:

И никаких ошибок не выдает??

нет. Первый макрос от Kir95 сработал отлично, только в наименование добавил .sldprt, а этот вообще ничего

Share this post


Link to post
Share on other sites
6 часов назад, РоманВ сказал:

Получилось, только в графе "Наименование" солид вбил вместе с точкой и расширением файла. Получилось Вставка.SLDPRT. Что нужно добавить в макрос чтобы он отбрасывал текст начиная с точки?

Попробуйте такой вариант:

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim bool As Boolean
Dim errors             As Long
Dim warnings           As Long
Dim path As String, filename As String

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swCustProp = swModelDocExt.CustomPropertyManager(vbNullString)
    
    path = swModel.GetPathName
    filename = Mid$(path, InStrRev(path, "\") + 1) ' With extension
    filename = Left$(filename, InStrRev(filename, ".") - 1) ' Remove extension

    bool = swCustProp.Add3("Наименование", swCustomInfoText, Right$(filename, Len(filename) - InStrRev(filename, "-")), 2)
    bool = swCustProp.Add3("Обозначение", swCustomInfoText, Left$(filename, InStr(filename, "-") - 1), 2)
    bool = swModel.Save3(1, errors, warnings)
    
End Sub

 

1 person likes this

Share this post


Link to post
Share on other sites
13 минуты назад, РоманВ сказал:

а этот вообще ничего

 

Извиняюсь, поторопился.. У меня СВ15, поэтому ругался на Add3 в строках, которые начинаются с

 

bool = swCustProp.Add3

 

Я исправил на 

 

bool = swCustProp.Add

 

Так не ругается, но и не работает.. Должно начинаться с 

 

bool = swCustProp.Add2

 

У меня работает.. 

 

И строку

 

Str = VBA.Mid$(string0, Numb, 3)

 

заменить на

 

Str = VBA.StrConv(VBA.Mid$(string0, Numb, 3), vbLowerCase)

 

Это чтобы от регистра букв не зависеть.

Share this post


Link to post
Share on other sites

ID: 14685   Posted (edited)

Моё почтенье. 

Такое дело. Создал из тулбокса шестерню. Деталь была ReadOnly.  Сохранил как другую деталь. 

Отредактировал. 

Вставил в сборку. 

Сохраняю сборку. 

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

Файл с отредактированной деталью на месте, все изменения в нём на месте. 

Но в сборке он после её закрытия и последующего открытия заменяется на первоначальную деталь. А она вообще в другом файле. 

Что я делаю не так? 

 

Спасибо. 

_crankGear.SLDPRT

Edited by modsley

Share this post


Link to post
Share on other sites
12 минуты назад, modsley сказал:

Создал из тулбокса шестерню. Деталь была ReadOnly.  Сохранил как другую деталь. 

А отвязать от ToolBox при помощи SldSetDocProp не пробовал?

 

1 person likes this

Share this post


Link to post
Share on other sites
16 часов назад, Kir95 сказал:

Попробуйте такой вариант:


Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim bool As Boolean
Dim errors             As Long
Dim warnings           As Long
Dim path As String, filename As String

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swCustProp = swModelDocExt.CustomPropertyManager(vbNullString)
    
    path = swModel.GetPathName
    filename = Mid$(path, InStrRev(path, "\") + 1) ' With extension
    filename = Left$(filename, InStrRev(filename, ".") - 1) ' Remove extension

    bool = swCustProp.Add3("Наименование", swCustomInfoText, Right$(filename, Len(filename) - InStrRev(filename, "-")), 2)
    bool = swCustProp.Add3("Обозначение", swCustomInfoText, Left$(filename, InStr(filename, "-") - 1), 2)
    bool = swModel.Save3(1, errors, warnings)
    
End Sub

 

Все сработало как надо! Огромное спасибо!

Share this post


Link to post
Share on other sites
15 часов назад, modsley сказал:

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

Как написали выше: X:\Program Files\SolidWorks Corp\SolidWorks\Toolbox\data utilities\sldsetdocprop.exe

Share this post


Link to post
Share on other sites
В 13.02.2019 в 18:12, ALASK сказал:

малехо не так -5c64339f8f9e3_2.jpg.5072ea2d22f48e66c9145270fd7e7e92.jpg подрезать изнутри заплатку еще надо

А можно чуть по подробнее, что то у меня не выходит.5c66d551370b8_.thumb.jpg.a6a5ea3691f54803bf858fe968b77b79.jpg

Share this post


Link to post
Share on other sites

Бобышку вытянуть с эскиза на сфере не получилось. Получилось сделать заплату и придать толщину. Вообщем спасибо.

Share this post


Link to post
Share on other sites
1 час назад, trainalex сказал:

Бобышку вытянуть с эскиза на сфере не получилось. Получилось сделать заплату и придать толщину. Вообщем спасибо.

Нет рано радовался. Заплата со сферической поверхностью получается только из прямоугольного эскиза, из круглого получается плоская

Share this post


Link to post
Share on other sites

TRAINALEX! Я был не прав, ввел тебя в заблуждение

В 13.02.2019 в 16:15, trainalex сказал:

вытянуть, повернуть потом вычесть

золотые слова! дешево и сердито...

 

Share this post


Link to post
Share on other sites

Здравствуйте. При попытке создать переменную, пишет про не правильный синтаксис. Я что то делаю не так. Вот только, что? Подскажите, пожалуйста, как сделать правильно.

Вопрос.jpg

Share this post


Link to post
Share on other sites
10 часов назад, alexdorf сказал:

Здравствуйте. При попытке создать переменную, пишет про не правильный синтаксис. Я что то делаю не так. Вот только, что? Подскажите, пожалуйста, как сделать правильно.

 

Знакомая проблема. Была актуальна несколько лет назад. Причина - системное обновление KB3072630. Как исправить посмотрите по ссылке

https://www.leninsw.info/2016/11/windows-kb3072630-solidworks-failed-to.html

Share this post


Link to post
Share on other sites

ID: 14695   Posted (edited)

Показать содержимое  
Гуру SW, ищу помощи и знаний в области банальных (это не ракетостроение, всего лишь стандартные детали) построений, а именно - необходимо создать отвод (колено) с заданными параметрами по известным размерам: Z=47.5 мм, L=51 мм, d=90 мм, E=108 мм. Угол колена соответственно 90 градусов (см.приложение)....
На выходе должно быть что-то похожее на уже существующий отвод (см.приложение)
PS при самостоятельных попытках сделать сие чудо появляются не объяснимые деформации детали с изменением радиусов скруглений.... Не могу понять, в чём проблема...
Edited by Paladin_Of_War

Share this post


Link to post
Share on other sites

ID: 14696   Posted (edited)

@Paladin_Of_War

Проблема в чём?

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

2Rt4b.png

 

 

То что вы дали размеры ... по ним не получиться деталь похожая на ту что в приложении

Edited by don108

Share this post


Link to post
Share on other sites

ID: 14697   Posted (edited)

@don108 Noup.... Ошибка... Тонкостенный также не даёт сделать...
PS однако она в живую существует.... Ладно, спасибо за ответ
PPS позвольте модель Вашего авторства в студию?

Показать содержимое  

123.thumb.JPG.75e72b9f5865f8952041a2d1a46bad53.JPG234.JPG.f5a74ae1d7bba2bd33de421861f069a5.JPG

Hide 
Edited by Paladin_Of_War

Share this post


Link to post
Share on other sites
20 минут назад, Paladin_Of_War сказал:

Ошибка... Тонкостенный также не даёт сделать...

Радиус скругления должен больше внешнего радиуса профиля

Share this post


Link to post
Share on other sites

@Xugack То есть радиус скругления средней линии (45 мм) должен быть больше внешнего радиуса профиля (108 мм), верно понимаю?

Share this post


Link to post
Share on other sites
2 минуты назад, Paladin_Of_War сказал:

верно понимаю?

Верно

Share this post


Link to post
Share on other sites

@alexdorf попробуй вместо точки запятую или наоборот - вместо запятой - точку

Share this post


Link to post
Share on other sites

@Xugack Хм, видимо, связано с изменением толщины тонкостенного элемента в месте перегиба.... Но да ладно, вопрос остаётся открытым - детали подобного рода существуют по заданным размерам, как сделать 3D модель.... Либо не хватает данных, либо руки с головой не дружат у меня..

Share this post


Link to post
Share on other sites

@Paladin_Of_War та деталь что вы прикрепили строится совсем по другому и не за один элемент

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

2Rt9d.png

 

Share this post


Link to post
Share on other sites

@don108 Просветите, как построить сие дело, да чтоб была возможность составить конфигурации под различные типоразмеры (перепробовал множество способов построения, но, увы, к оригиналу не приблизился достаточно близко)

Share this post


Link to post
Share on other sites
3 минуты назад, Paladin_Of_War сказал:

детали подобного рода существуют по заданным размерам

Заданы размеры внутренней геометрии, внешняя может строиться по другим. Если хотите строить операцией по траектории то нужно изменить радиус

Share this post


Link to post
Share on other sites

ID: 14706   Posted (edited)

@Paladin_Of_War  не стал заморачиваться с внутренним углом

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

2RtcR.png


2RtcQ.png

 

2Rtd3.png

 

 

 

 

Просто тупо подогнал под геометрию детали приложенной, но без внутреннего угла\выступа

Edited by don108

Share this post


Link to post
Share on other sites

Господа, вновь возник вопрос на засыпку - в спецификацию (не по ГОСТ) одна деталь присутствует в кол-ве 4 шт. (3 шт. в одной подсборке, 1 шт. соответственно в другой подсборке), но выводится в качестве двух строк (пример, поз. 64 - 3 шт., поз 83 - 1 шт., НО деталь, повторяюсь, одна и та же). Вопрос - чем обусловлен данный казус и как с ним бороться?

Share this post


Link to post
Share on other sites
22 минуты назад, Paladin_Of_War сказал:

 в спецификацию (не по ГОСТ

 

Share this post


Link to post
Share on other sites
6 минут назад, Yuriy909 сказал:

Проблемка создания тела из 3д эскиза

Не нужно создавать тело из трехмерного эскиза, создавайте из обычных

7 минут назад, Yuriy909 сказал:

кто поможет? 

могу помочь

Share this post


Link to post
Share on other sites
11 минуту назад, Yuriy909 сказал:

Проблемка создания тела из 3д эскиза,

Вам никогда не приходило в голову, что нормальные детали делаются не за одну операцию? И не из одного эскиза.

Поразмышля

Share this post


Link to post
Share on other sites

Если не трудно, хотелось бы помощи!

Share this post


Link to post
Share on other sites

@Yuriy909 конкретнее, помощи в чём ... в освоении SW или построении детали?

Share this post


Link to post
Share on other sites
20 минут назад, Yuriy909 сказал:

хотелось бы помощи!

На основе вашего эскиза строите обычные, и уже с их помощью строите деталь

Share this post


Link to post
Share on other sites

ID: 14717   Posted (edited)

@Yuriy909 для начала посоветовал бы вам пролистать справку или пособие для начинающих, что бы не создавать бредовые двойные 3-ёх мерные эскизы

 

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

2RwwH.png

 

Это что за бред ... под линией эскиз находиться другая дублирующая ... вы где такое видели?

Edited by don108

Share this post


Link to post
Share on other sites
20 минут назад, Yuriy909 сказал:

хотелось бы помощи!

На основе вашего эскиза строите обычные, и уже с их помощью строите деталь

Share this post


Link to post
Share on other sites

@Yuriy909 Слушай умник ты пьяный что ли этот эскиз делал или так приколоться решил ... у тебя та даже не по 1-у дубликату линий, а по 3 шт. дублирующих линий ... ты что там сожрал то?

Сначала мозг отключают, а потом бегут помогите кричат... бездари

Share this post


Link to post
Share on other sites
11 минуту назад, don108 сказал:

Сначала мозг отключают

Спорное утверждение. Скорее они его вообще не включают. Никогда. Т.е. ни разу с самого детства не пользовались.

Хотя, возможен вариант, что включать вообще нечего.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.



  • Сообщения

    • Viktor2004
      Пришлите ладдер. Скачать можно с черного экрана в меню SYSTEM DATA SAVE файл PMC
    • Kir95
      В тфлексе нельзя переставить сторону для выреза?  
    • vasillevich68
      @Aleksandar , Ваша деталька, приблизительно вот так будет выглядеть на чертеже Рычаг 1.pdf  
    • Fedor
      Не обязательно. http://www.pinega3.narod.ru/verz.htm   :) 
    • Dron1708
      может быть плохо стал Cad Link, а может быть проблема из-за винды. SW 2017 вообще у многих не дружет с Cad Linkом  
    • Efremov
      1.А точно все оси заканчивают выход в 0? Да он пишет что они в 0, по x,y,z.
      2.По какой подтверждающей индикации вы это определяете? Индикация отображается на экране ЧПУ. 3. Почему станок после выполнения программы выезжал в 0? Это не по программе, с помощью швп двигаем оси, а за тем выставляем в 0. ( только эту команду выполняет станок). 4. Это в программе у вас так прописано? В программе прописано по другому. 5. В mdi хоть какие-то команды выполняет? Команды не какие не выполняются. 6. Маховик включается но не работает? Да он включается, но движения нету по координатам.
        Нравится Самое странное что «cycle stop» постоянно включён. Может кто знает как его отключить?
    • inn3r
      Задача - рассчитать диаметр максимально допустимого отверстия в днище без укрепления штуцером при заданном давлении, проверить сходимость с гостовским расчетом.   Сам проект - https://dropmefiles.com/hOazo Считал оболочечными элементами, г.у. - симметрия, давление внутреннее 4,8 МПа. Но при увеличении отверстия с 500 на 1000, мембранные напряжения уменьшились.  Наибольшее отверстие не требующее укрепления по ГОСТ с размерами данного днища 937мм, допускаемое по ГОСТ 34233.1 для 09г2с = 174 МПа. (днище 3500х85) Если рассматривать пункт 8.10 ГОСТ 34233.1 уже по 1 условию только 50 мм отверстие проходит, остальные больше допускаемого Очень хотелось бы узнать, применим ли такой расчет, потому что закрались сомнения в правильности действий.
    • Елена
      А вот интересно, что стало с создателями форума (пермскими разработчиками САП ЧПУ)? Если я не ошибаюсь - первая советская параметрическая система разработки управляющих программ для станков с ЧПУ. По крайней мере массового использования на малых ЭВМ серии СМ
    • Krusnik
        Для примера. @SAPRonOff  же просил показать как в SW делаются булевы операции и не верил, что они показываются в дереве.   Можно. Я же не спорю. Эта деталь делается за 5 фичеров. Видео решения
    • Metal_Cutter
      @Павел1 Это не правильная запись. В строке вызова инструмента можно вводить дополнительные корректора на длину и радиус инструмента. Значения как правило небольшие, их вводит оператор, чтобы компенсировать износ инструмента. А у Вас -7.85 Вам уже @mannul ответил. Поищите на форуме посты для Heidenhain, посмотрите как там реализовано. Или выложите сюда свой, чтобы его поправили.