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

[Buran16 3]

При желании можно и pdf и tif отредактировать.

Pdf -то вообще запросто..

Можно просветить меня- как отредактировать pdf- хотя бы текст, сколько ни искал программ- не нашел, правка типа акробатовский "красный карандаш" не годится.

А по поводу защиты от изменения размеров- может просто высылать отсоединенные чертежи солида? Без модели ничего не изменишь.

[ssv22 16]

Можно просветить меня- как отредактировать pdf- хотя бы текст, сколько ни искал программ- не нашел, правка типа акробатовский "красный карандаш" не годится.

А по поводу защиты от изменения размеров- может просто высылать отсоединенные чертежи солида? Без модели ничего не изменишь.

Вот, например:

"

Creating Adobe PDF files using Acrobat Distiller

Acrobat Distiller provides easy and repeatable Adobe PDF creation according to your specifications. By defining customized settings, you create PDF files that are specifically tailored to meet your needs.

In the Acrobat Distiller window, you select the Adobe PDF settings to use when converting documents to PDF files. You can customize the default settings supplied by..."

И даже вот такое есть(правда я еще не разбирался):

"Acrobat 3D includes an extended set of features for adding 3D models to PDF documents and interacting with the 3D content. Acrobat 7.0 Professional includes the 3D Tool to add 3D models in U3D format to PDF documents, and it includes the 3D Toolbar for interacting with the 3D model. With Acrobat 3D, you can add 3D content to a PDF document by importing directly from 3D CAD files or by capturing content from 3D CAD applications. For interacting with the 3D model, Acrobat 3D includes..."

Вообщем сюда:

<noindex>http://www.adobe.com/designcenter/</noindex>

или

<noindex>http://www.adobe.com/cfusion/designcenter/...robat&go=Go</noindex>

[SERoz 201]

Добрый день...

У меня 2008.0..

Есть маленькое не удобство (одно из многих) - достало делать размерный текст горизонтальным через галочку (имеется ввиду не все, а некоторые - например диаметра)....

Конечно можно сделать "часто используемые", но потом надо редактировать допуски и т.п....

Конечно часто использую RecordDimM, но это не всегда удобно (иначе могут пропасть допуски)....

И почему умные дяди не могли сделать просто кнопку???

Посоветуйте, можно ли как-нибудь сделать кнопку для этой команды???

[M.A.N.T.A. 1]

SERoz

А через настройки выставить раз и навсегда горизонтальный текст для диаметров не получается?

[SERoz 201]

M.A.N.T.A.

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

Об этом и речь, как сделать на одном виде нормальное расположение размерного текста (в смысле параллельно размерной), а на другом виде некоторые размеры - горизонтально....

Ведь не секрет, что на одном виде вертикальные размеры могут быть и с вертикальным текстом и с горизонтальным (как удобнее вписать)...

И на все случаи

...через настройки выставить раз и навсегда горизонтальный текст..

не всегда приемлимо...

А тыкать эту дол...ю галочку уже достало и причём в неё ещё надо попасть....

[M.A.N.T.A. 1]

Ну я не столько уж тупой

Эт здря. Подобных намёков никогда себе не позволяю. Вопрос изначально звучал не очень понятно.

А как-нибудь через горячие клавиши не пробовал?

[Kelny 1 239]

не всегда приемлимо...

А тыкать эту дол...ю галочку уже достало и причём в неё ещё надо попасть....

Могу предложить прочитать ГОСТ 2.307-68, как с точки зрения госта приемлемо размеры располагать:

[Shvg 67]

SERoz, если я правильно вас понял

Посоветуйте, можно ли как-нибудь сделать кнопку для этой команды???

Сам макрос не зацепился, вот его код:

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swSelMgr As SldWorks.SelectionMgr

Dim swDisplayDimension As SldWorks.DisplayDimension



Sub main()

	On Error GoTo LineError

	Set swApp = GetObject("", "SldWorks.Application")

	Set swModel = swApp.ActiveDoc

	

	If swModel Is Nothing Then

		MsgBox "Загрузите документ SolidWorks-a"

		Exit Sub

	End If

	

	Dim docType As Long

	docType = swModel.GetType

	If docType <> swDocDRAWING Then

		MsgBox "Макрос работает только с документами чертежей!"

		Exit Sub

	End If

	

	Set swSelMgr = swModel.SelectionManager

	Dim countObj As Long

	countObj = swSelMgr.GetSelectedObjectCount

	

	If countObj < 1 Then

		MsgBox "Выберите хотя бы один размер!"

		Exit Sub

	End If

	

	Dim bres As Boolean

	bres = False

	

	Dim selType As Long

	If countObj = 1 Then

		selType = swSelMgr.GetSelectedObjectType2(1)

		If selType <> swSelDIMENSIONS Then

			MsgBox "Выберите размер!"

			Exit Sub

		End If

	End If

	

	Dim i As Integer

	Dim iLeader As Long

	

	For i = 1 To countObj

		selType = swSelMgr.GetSelectedObjectType2(i)

		If selType = swSelDIMENSIONS Then

			bres = True

			Set swDisplayDimension = swSelMgr.GetSelectedObject5(i)

			iLeader = swDisplayDimension.GetBrokenLeader2

			If iLeader <> swBrokenLeaderHorizontalText Then

				swDisplayDimension.SetBrokenLeader2 False, swBrokenLeaderHorizontalText

			Else

				swDisplayDimension.SetBrokenLeader2 False, swSolidLeaderAlignedText

			End If

		End If

	Next i

	

	swModel.GraphicsRedraw2

		

	If bres = False Then

		MsgBox "Выберите хотя бы один размер!"

	End If

	

	Exit Sub

	

LineError:

	

End Sub

[SERoz 201]

Kelny

Я конечно понимаю Ваше желание помочь, но зачем же кормить "манной кашей"....

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

Т.к. делать это, на сборках, приходится довольно часто и RecordDimM не всегда подходит (хотя там то же надо тыкать в точку)...

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

Shvg

Спасибо - обязательно попробую....

[ssv22 16]

Я конечно понимаю Ваше желание помочь, но зачем же кормить "манной кашей"....

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

Программу на подобную тему я сделал еще для SW99(если кто помнит как там это было устроено). До сих пор лежит на:

<noindex>http://www.pogruzka.com/julio/swprog/multi...lerance/faq.php</noindex>

956 скачиваний, скоро юбилей :-)

Но я ее давненько забросил по мере развитя самого SW - некоторые момменты были отпали, много устарело. Ну что вы хотите: 99 год - я один, Инета нет, русской документации по SW нет, справки по VB нет (планета "Железяка"), только вот примеры по API для SW... (Ух какой я несчатный :-) )

Но тем не менее там есть кнопочка - раз и полка горизонтально и наооборот.

В отличии от SW99 где надо было штук 5 окон открыть, установить горизонтальность, потом эти окна закрыть.

И тем не менее ее все ещ скачивают...

[SERoz 201]

Shvg

Ещё раз спасибо - вставил кнопочку, всё работает (2008.0)...

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

[Странник 6]

Либо их самих меньше, либо у них проблем меньше.

Скорее всего мы прошли дальше на менее богатой функционалом системе.

Вот что значит пользователь с навыками API.

[SERoz 201]

Скорее всего мы прошли дальше на менее богатой функционалом системе.

Вот что значит пользователь с навыками API.

Русских Солидом не перешибёшь - оне при помощи ломика и какой-то матери могут всё чё угодно открыть...

[ssv22 16]

Русских Солидом не перешибёшь - оне при помощи ломика и какой-то матери могут всё чё угодно открыть...

Гы-ГЫ, это ты в самую точку...

Кстати, а кто CosmosFloWorks делал? русские... Но под руководством...

Тут тоже надо задуматься.

Почему это у наших ТАМ все получается, а тут...

PS. че-то у меня много многоточий сегодня... :-)

[SERoz 201]

PS. че-то у меня много многоточий сегодня... :-)

Просто - дурной пример заразителен....

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

У нас, то же "наичестнейшие бизнесмены" и прибыль то же на первом месте (для них), но за счёт Китая и Азии (где по дешевле), а грамотные работяги ВСЕГДА были и будут (при таком положении) в глубокой чёрной дырке ...

Вообще, если хорошо подумать - то "честного бизнеса" НЕ БЫВАЕТ - бизнес изначально замешан на обмане и обирании слабых...

Уффф, извините за флуд - понесло каюсь :worthy: ....

[ssv22 16]

А меня "несет" на многоточие.......

[Buran16 3]

Вообще, если хорошо подумать - то "честного бизнеса" НЕ БЫВАЕТ - бизнес изначально замешан на обмане и обирании слабых...

Это у нас, а за бугром правила соблюдаются.

[Leon 433]

Господа, завязывайте топик замусоривать

[Kelny 1 239]

Обновил макрос изменения шрифтов SetFontsTNR:

Скачать можно здесь: <noindex>http://kelnyproject.ucoz.ru/load/2-1-0-10</noindex>

Изменения:

+Иправлены некоторые допущенные ошибки (возможно, добавлены не выявленные баги)

+Расширен список объектов в которых изменяется шрифт

+Добавлена возможность не изменять выбранный шрифт или изменять на отличный от основого шрифт

Недоделки:

-Шрифт в блоках можно изменить только выбрав редактирование блока и запустив макрос, если в заметках используются атрибуты - шрифт в этих заметках изменён не будет

' **********************************************************************

' * Original name: SetFontsTNR

' **********************************************************************

' * Макрос служит для изменения шрифта в документе на новый

' *

' * Для изменения шрифта, нужно присвоить константе NewFont имя

' * на который будет переводиться изменение.

'*

'*==================================================

'*NewFont - является константой щрифта, здесь задаётся шрифт

'*на который будет изменён во всех выбранных объектах чертежа

'*==================================================

'*Const NewFont = "Times New Roman" 'имя шрифта на который будет произведена замена

'*Const NewNoSetFont = "Arial" 'имя шрифта который не будет изменён

'*выбранного шрифта в константе NoSetFont, можно выбрать тот же шрифт (NoSetFont)

'*чтобы изменения шрифта не происходило.

'*==================================================

'*Const NoSetFont = "GOST 26.008—85" 'имя шрифта который не будет изменен на

'* основной шрифт NewFont (только для заметок)

'*==================================================

' *

' * Измененяется шрифт для заметок и обозначений сварки

' * через свойство объекта, для которых не задан

' * параметр шрифта "использовать шрифт документа".

' * Также изменяется шрифт в настройках документа.

' *

' * ВНИМАНИЕ!

' * В случае отсутсвия параметра шрифта "использовать шрифт документа",

' * и наличии в заметке локального форматирования шрифта, неправильный

' * шрифт не будет опознан и изменён.

' * Также не разпознается и не изменяется шрифт в блоках!

' *

' **********************************************************************

[Timur 0]

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

Заранее спасибо за ответ.