Сделай свою работу в Solidworks эффективнее

[Leon 435]

Чего то вы тут, отцы, разфлудились...

А тем более, что в последней сборке (уже сборка!!) присовокуплены макросы и других авторов...

Это какие интересно? Чужих макросов там нет, есть те что я доработал, например RecordDimM.

Как вот Leon еще "держиться" - это для меня БОЛЬШАЯ загадка...

Все, "держаться больше нету сил". У меня тут на всех фронтах глобальные перемены, и одна из них, что я через неделю увольняюсь и иду работать в другое место. А там уже "Большая загадка" не прокатит, все серьезно...

[Странник 6]

Значит могикане уходят...

чтож, значит этот <noindex>серьёзный разговор</noindex> будет уже напоследок.

[SERoz 201]

Это какие интересно? Чужих макросов там нет, есть те что я доработал, например RecordDimM.

Как раз об это же ш - RecodDim, Roughness и TT (или как??) и именно доработанные (это просто не указывал)....

[Vadim_ryb_ 77]

Рабочий документ Matcad для построения трехмерных спиралей причудливых форм.

Вроде как бесполезная игрушка, но может кому пригодится в качестве примера построения кривых и их импорта в CAD-ы.

Для построения кривых, отличных от заданного в примере необходимо изменять уравнения в документе. Для этого придется немного вспомнить школьную геометрию;).

спираль3д.rar

[Lex TD 8]

Vadim_ryb_

Большое спасибо!

[kea1481 0]

Здравствуйте.

Можно ли создать макрос автоматического перевода массы в граммах в килограммы? Часто приходиться переводить в ручную, а у самой не получеатся.

[Sergei 298]

Здравствуйте.

Можно ли создать макрос автоматического перевода массы в граммах в килограммы? Часто приходиться переводить в ручную, а у самой не получеатся.

У Леона в MProp такое есть. Пакет макросов называется SWPlus. В теме про спецификацию.

[ak762 318]

можно ли текст при размере вывести в 2 строки одна под другой?

АААААА

ВВВВВВ

мне надо просто 2 строчки текста

[ak762 318]

А два раза <stack> написать?

пробовал, пробовал даже макро RecordDimM что то не помогло тоже

может не правильно пользую

[ILL 241]

можно ли текст при размере вывести в 2 строки одна под другой?

АААААА

ВВВВВВ

мне надо просто 2 строчки текста

<DIM>

<stack>10<stack>33 отв

[ak762 318]

версия СВ2009 сп4.1

теперь вижу что надо писать в одну строку, а я пробовал в 2 строчки.

А всё равно что то не так, у меня пишет не одна под одной а со сдвигом

[martinez702 2]

Немного улучшенная версия макроса RecordDimM. По совету Konstrn для размеров записанных в две строки обычный <stack size=1> заменен на <stack size=0.2> <stack size=5>. Тем самым достигается корректное отображение размеров с величиной шрифта, заданной в мм, а не в пунктах.

можно так же переделать макрос "SetDimension"

[Leon 435]

можно так же переделать макрос "SetDimension"

Это к Kelny

[martinez702 2]

SetDimension

Размещение: <noindex>http://kelnyproject.ucoz.ru/load/2-1-0-1</noindex>

вещь канеш супер!

а можно <stack size=1> заменить на <stack size=0.2> <stack size=5> .

Тем самым достигается корректное отображение размеров с величиной шрифта

[martinez702 2]

SetDimension

Размещение: <noindex>http://kelnyproject.ucoz.ru/load/2-1-0-1</noindex>

вещь канеш супер!

а можно <stack size=1> заменить на <stack size=0.2> <stack size=5> .

Тем самым достигается корректное отображение размеров с величиной шрифта

[Michael_Mira 135]

Здравствуйте.

Можно ли создать макрос автоматического перевода массы в граммах в килограммы? Часто приходиться переводить в ручную, а у самой не получеатся.

Есть макрос, выложенный где-то здесь... Называется Get_Set_Mass_Property.

Может он Вам поможет!

[Hlorat 0]

Есть макрос, выложенный где-то здесь... Называется Get_Set_Mass_Property.

Может он Вам поможет!

У меня тоже проблема с массой, но посложней. Есть конструкторская база в Solid'e начатая еще в незапамятные времена, еще когда в проге был глюк с массой - она была занижена в 1000 раз. Что бы на чертежах масса отражалась правильно, программеры предприятия, обслуживающие прогу, решили с помощью прикладной программы увеличивать массу в 1000 раз. Теперь, когда трабл с массой-плотностью убрали (по-мойму в 2004м), база не очень хорошо уживается с детальками имеющими в свойствах материал от SolidWorks, или с Тулбоксом. В общем смысл в том, что сборки с примесью "чужих" деталей, да и просто детали, созданные по шаблонам современного Солида создают проблемы с расчетом массы.

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

У меня вопрос сталкивался ли кто-нибудь с такой проблемой и есть у кого-нибудь подобная прога?

З.Ы. На сколько я знаю Get_Set_Mass_Property работает только с одной открытой деталью.

[kobold 0]

А как можно отсортировать солидовскую таблицу (спецификацию) больше чем по трем столбцам.

Тоесть я на лист вставляю таблицу бом-стандарт, добавляю в нее еще пару строк с пользовательскими столбцами, (дата сдачи, куда отправлять и т.п.)

Так вот обычная сортировка позволяет задать только три условия (последовательности), т.е. например по дате, по адресу и по обозначению, а хотелось чтобы еще было отсортированно по количеству и примечанию.

P.S. Надеюсь я темой не ошибся.

[ubi 0]

помогите со скриптом

нужен скрипт как 927 SaveAsPDF Сохрание в формате PDF

только чтобы имя файла сохранялось такоеже как номер чертежа тоесть $PRPSHEET:"PartNo"

в вижуал бэйсике не силен

нашел токо что имя файла там Path = Left(Part.GetPathName, Len(Part.GetPathName) - i - 1) & "PDF"

на что надо заменить ?

[kobold 0]

Замени в нчале sub main

все до строчки If Part Is Nothing Then на

Dim swDraw As SldWorks.DrawingDoc

dim swModel As SldWorks.ModelDoc2

Dim i As Integer

Dim e As Long

Dim w As Long

Set swApp = Application.SldWorks 'CreateObject("SldWorks.Application")

Set Part = swApp.ActiveDoc

Set swModel = swApp.ActiveDoc

Set swDraw = swModel

А ниже замени IF (в котором ты нашел строчку Path = Left(Part.GetPathName, Len(Part.GetPathName) - i - 1) & "PDF") на

If Part.GetPathName <> "" Then

Path = Part.GetPathName ' получение полного пути к файлу

Dim MyDir As String '

MyDir = Dir$(Part.GetPathName) 'получение имени файла

MyDir = Left(Path, Len(Path) - Len(MyDir)) 'обрезаем полный путь на длинну имени файла, получаем путь каталога где файл лежит

' тут вероятно можно проще путь к каталогу получить но я незнаю как

Path = MyDir & swDraw.CustomInfo2("", "PartNo") & ".PDF" 'формирует полный путь к новому файлу PartNo - имя твоего

' свойства где находится имя файла

End If