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

[Leon 445]

Пакет макросов SWPlus

 

Здесь представлены VBA версии пакета макросов SWPlus. Также существует .Net ветка пакета, отпочковавшаяся от данной ветки в 2014 г. и поддерживаемая уважаемым @fox1001.

Одной из особенностью данных макросов является то, что все изменения, вносимые ими в документы SW, осуществляются только штатными средствами самого SW. Т.е. чертеж или спецификация, оформленные с помощью данного пакета макросов, могут быть открыты и даже отредактированы на компьютере без установленных макросов.

На данный момент разработка пакета макросов ПРЕКРАЩЕНА. По жалобам пользователей будут устранятся только критические ошибки и проблемы совместимости с новыми версиями SW. 

 

Состав и назначение пакета макросов:
SpecEditor - создание спецификаций (обычной и групповой по варианту Б) и ведомости покупных;
MProp - заполнение свойств моделей;
DProp - управление листами чертежа;
SProp - заполнение свойств моделей из разделов Стандартные изделия, Прочие изделия и Материалы;
SaveDRW - сохранение чертежа;
SaveAsPDF - сохранение чертежа в формате PDF и TIFF;
Master - создание шаблонов основных надписей;
TT - заполнение технических требований;
Roughness - простановка знака неуказанной шероховатости в углу чертежа;
RecordDimM - редактирование текста размеров;
CoolOut - преобразование размеров, проставленных с помощью инструмента "Условное обозначение отверстия", к виду по ЕСКД.

Важные советы:

Совет 1. Прочтите описание.
Совет 2. При возникновении ошибки при первом запуске макросов необходимо нажать кнопку Debug, далее зайти в меню Tools-References, убедиться в отсутствии потерянных библиотек (если таковые есть - подключить их), нажать ОК, закрыть окно с кодом макроса и снова запустить его.

Совет 3. Содержимое архива можно положить в любое место на диске, но нельзя переименовывать и удалять содержащиеся в нем файлы и папки. Макросы связаны между собой и используют общие файлы.

Совет 4. Убедитесь, что папка с макросами доступна SW для записи.

Совет 5. Для работы макроса SaveAsPDF в режиме печати на виртуальный принтер необходимо установить программу PDFCreator версии 1.2.1.

 

Описание архивов:

SWPlus 2014 SP0.0 - версия пакета SWPLus, адаптированная для SW2014 SP5.0.

SWPlus 2017 SP0.0 - версия пакета SWPLus, адаптированная для SW2017 SP4.1.

RecordDimM 2017 SP0.1 - исправленный макрос из пакета SWPlus 2017 SP0.0.

PDFCreator-1_2_1_setup - дистрибутив PDFCreator версии 1.2.1.

 

Внимание! Скачивая данный пакет макросов вы соглашаетесь с тем, что я не несу ответственность за возможные негативные последствия, связанные с использованием данных макросов. Данный пакет макросов, как и любая программа, может содержать ошибки.

 

 

GriSt прав, пускай будет отдельная тема.
Начало смотри http://fsapr2000.ru/index.php?showtopic=6071&st=40
Итак, кратко:
1. Есть неудовлетворенность существующими на сегоднящний день программами для создания спецификаций под SW.
2. Есть желание взяться за самостоятельную разработку такого продукта.
3. Есть понимание, что дело это долгое и не простое, но интересное и в случае успешного завершения ИМХО устранит последний серьезный пробел в соответствии солида ЕСКД.
4. Если даже все и заглохнет, как неоднократно бывало, то останется информация для более удачливых разработчиков.

Вот некоторые топики этого форума где ранее обсуждались вопросы, связанные со спецификацией:
http://fsapr2000.ru/index.php?showtopic=3525&st=0
http://fsapr2000.ru/index.php?showtopic=2943&st=0
http://fsapr2000.ru/index.php?show...hl=спецификация
http://fsapr2000.ru/index.php?show...hl=спецификация
http://fsapr2000.ru/index.php?show...hl=спецификация

OldCAM
Родная солидовская спецификация не устраивает как минимум по 2 причинам:
1. Нет деления на разделы.
2. Нет разбивки на страницы.
Но воспользоваться ее функциями, которые наверняка представлены в API думаю можно

 

 

SWPlus_v_2014_SP0.0.zip

SWPlus_v_2017_SP0.0.zip

 

RecordDimM_v_2017_SP0.1.zip

PDFCreator-1_2_1_setup.zip

[Timi 16]

Утро точно мудренее вечера.

Помогло следующее

В командной строке с правами Администратора поочередно выполните команды:

 

regsvr32 jscript.dll
regsvr32 vbscript.dll

 

Теперь другая проблема.

 

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

Заметки с нумерацией от солида рамка охватывает с номерами.

 

И форматирование заметки сбилось, наверно по этой причине. Цифры очень далеко, раза в 3-4 отстоят дальше от заметки, чем это было в 2014 солиде.

 

Может найдете, время доработать макрос.

Спасибо.

 

П.С.

Если зайти в св-ва абзаца заметки ТТ, то там можно изменить значения Отступа и т.п., чтобы она стала как в 2014 солиде.

Изменено 21 января 2016 пользователем Timi

[streamdown 1 567]

в 2015 солиде

 у всех так. Это связано с переделкой солидами нумерованного списка. Совершенствуются 

[streamdown 1 567]

Так же, можешь ли ввести вставку общей даты при печати, а не только в поле "Разраб"

[ArtemArtemAS 0]

Через АПИ было не сделать

 

Тоесть макросом нельзя настроить межстрочное? А как можно?

Междустрочным расстоянием и высотой строк можно управлять;

Только ручками?

 

 

 

  Если первое свойство в чертеже, а два других в модели - да. Другие варианты - думаю, нет.

Все свойства в модели. То есть синтаксис типа $PRP:"SW-Last Saved By" который применяется прямо в свойствах, тут не поможет? Про сам синтаксис я так понимаю надо читать в справке API?)))

[Leon 445]

А это не то?

Нет, речь про текст в таблице

Тоесть макросом нельзя настроить межстрочное? А как можно?

Как раз макросом все и делается. Все, кроме разворота текста.

То есть синтаксис типа $PRP:"SW-Last Saved By" который применяется прямо в свойствах, тут не поможет?

Таким образом можно сослаться только на системные свойства. На пользовательские свойства расположенные в этом же файле, насколько я знаю, нельзя.

[streamdown 1 567]

Шаблон таблицы плохой помощник, потом все равно приходится все форматировать. Единственная польза от него, это развернутый под 90 текст. Через АПИ было не сделать

 

Тогда не понял, что нельзя сделать в API? Повернуть текст в ячейке таблицы, повернуть текст в ячейке спецификации, сохранить шаблон какой либо таблицы с повёрнутым текстом??

Вот простенький примерчик, как получить текст ячейки и изменить его цвет:

 

Const ROW As Integer = 0  
Const COL As Integer = 0  
Const COLOR_CODE As String = "0x000000ff"  
  
Option Compare Text  
  
Sub main()  
    Dim swApp As SldWorks.SldWorks  
    Dim swModel As SldWorks.ModelDoc2  
    Dim swSelMgr As SldWorks.SelectionMgr  
    Dim swTableAnn As SldWorks.TableAnnotation  
    Dim strCellValue As String  
      
    Set swApp = Application.SldWorks  
    Set swModel = swApp.ActiveDoc  
    Set swSelMgr = swModel.SelectionManager  
      
    If swSelMgr.GetSelectedObjectCount2(-1) = 0 Then Exit Sub  
    If swSelMgr.GetSelectedObjectType3(1, -1) <> swSelANNOTATIONTABLES Then  
        swApp.SendMsgToUser "Please select a table."  
        Exit Sub  
    End If  
      
    Set swTableAnn = swSelMgr.GetSelectedObject6(1, -1)  
      
    strCellValue = swTableAnn.Text(ROW, COL)  
      
    Dim vSplit As Variant  
    If InStr(strCellValue, "</font>") <> 0 Then  
        vSplit = Split(strCellValue, ">")  
        vSplit = Split(vSplit(0), "=")  
        strCellValue = Replace(strCellValue, vSplit(1), COLOR_CODE)  
        swTableAnn.Text(ROW, COL) = strCellValue  
    Else  
        swTableAnn.Text(ROW, COL) = "<font color=" & COLOR_CODE & ">" & strCellValue & "</font>"  
    End If  
      
    Debug.Print swTableAnn.Text(ROW, COL)  
End Sub  

 

 

swTableAnn.Text - можно получить элементарным поиском.

Или так

GetCellTextFormat

Ну и дальше с ним поколдовать http://help.solidworks.com/2010/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ITextFormat_members.html

 

Тоже не то?

[Leon 445]

Тогда не понял, что нельзя сделать в API? Повернуть текст в ячейке таблицы, повернуть текст в ячейке спецификации

Повернуть текст в ячейке таблицы спецификации. В свое время я не нашел такой возможности. Сейчас м.б. она появилась.

[streamdown 1 567]

текст в ячейке таблицы спецификации

 Собственно TableAnnotation и далее GetCellTextFormat, который аж с 2004 версии. Не настаиваю, просто покопался))

[Карамелька 0]

Добрый день. Помогите пожалуйста разобраться, что изменить в макросе, чтобы в Суммарной информации детали (сборки) во вкладах Настройка и Конфигурация автоматически добавлялось свойство Наименование_К  с тем же параметром, что и у Наименование. Заранее спасибочки!

[ILL 241]

Я хочу присвоить одному свойству значение из 2-ух других. Возможно?

Я хочу присвоить одному свойству значение из 2-ух других. Возможно?

 

 

Например:

 

Свойство = Значение:

Толщина = "s@Эскиз1@Деталь.SLDPRT"

 

SHAPE = Лист

SORTAMENT = Б $PRP:"Толщина" ГОСТ 19903-74

MARKA_MATERIAL = 12Х18Н10Т-М2а ГОСТ 5582-75

Материал = <FONT size=1.8> <FONT size=2.5>$PRP:"SHAPE" <STACK size=1> <FONT size=3.5> $PRP:"SORTAMENT"<OVER><FONT size=3.5> $PRP:"MARKA_MATERIAL"</STACK>

[Leon 445]

Собственно TableAnnotation и далее GetCellTextFormat

Так собственно через GetCellTextFormat и SetCellTextFormat макрос все и делает. Но где там поворот, покажи, пожалуйста.

Материал = $PRP:"SHAPE" $PRP:"SORTAMENT" $PRP:"MARKA_MATERIAL"

Был не прав, действительно работает и с обычными свойствами. Здорово.

[streamdown 1 567]

Но где там поворот

 

 

ITextFormat: Vertical Property

 

Но только с ним косяк))

Короче, проработаю варианты 

[Michael_Mira 135]

Может где обсуждалось по MProp.

Если имя длинное, то нажимаю "ввести обозначение" и ставлю Enter. При "сохранить" галочка отключается и имя опять в одну строку. Сейчас приходится активировать в сборке конфигурацию, для нее назначить правильно имя и выходить. И так для каждой конфигурации.

При последующем запуске MProp галочка опять отключена.

Версия макросов SWPlus_v_2013_SP1

[streamdown 1 567]

где обсуждалось

 и не раз)) ответа не было. Или "разработчик пока занят".

[Leon 445]

и не раз

Где?

Разработчик офигенно занят, но не смотря на это у него галочки не слетают. Ни "Уменьшить шрифт", ни "Ввести обозначение". Правда на 2014 SW. Может в 2015 что-то изменилось?

[streamdown 1 567]

тьфу, я только про это -

Ни "Уменьшить шрифт"

 Был невнимателен 

[streamdown 1 567]

В свое время я не нашел такой возможности. Сейчас м.б. она появилась.

 

Разузнал. Не появилась. И в ближайшее время не появится. Ибо не баг, и "мало кому надо".

[Tur 1]

Помогите пожалуйста кто желает. Не читает swp и не видит метода установки(см.вложение). SW2014sp1х64, Win10. Что делать?!!!

Работал в  SW2013, Win7, на домашнем компе и нет никакого желания делать спецификации врукопашную  . За сим челом бью всем людям добрым .

[Michael_Mira 135]

но не смотря на это у него галочки не слетают.

https://youtu.be/3lk2Thfrs10

На работе то же самое.

[streamdown 1 567]

@@Tur, без лишних вопросов)) Просто сделайте. http://cccp3d.ru/topic/70210-%D0%BF%D1%80%D0%BE%D0%B1%D0%BB%D0%B5%D0%BC%D1%8B-sw2015/page-4#entry681850