Solidworks API

[Kelny 1 234]

стоять выбор "нов"? Это когда чертеж по извещению вводится.

НОВ - это когда новый лист вводится, если вы вводите новый документ, то в нём ни каких извещений не значится, т.к. ни каких изменений в нём не было.

 

А также новые извещения будут писаться выше, или будут заменять старое?

Если вы заменяете лист, то пишется на первую строку, если продолжаете, то пишете в следующей сроке выше.

[clavr 159]

Если вы заменяете лист, то пишется на первую строку, если продолжаете, то пишете в следующей сроке выше.

мы заменяем лист. Но пишем в следующей строке. Чтобы можно было легко искать извещения. Тяжело придерживаться ГОСТ когда электронно-бумажный оборот КД

НОВ - это когда новый лист вводится, если вы вводите новый документ, то в нём ни каких извещений не значится, т.к. ни каких изменений в нём не было.

по извещению вводим новую деталь в сборку. И на чертеже пишем "нов" и номер извещения. 

[Kelny 1 234]

Тяжело придерживаться ГОСТ когда электронно-бумажный оборот КД

При работе с файлами как раз легко всё искать и сортировать, например, в имени файла можно указать литеру изменений и при необходимости извещение, напирмер, АААА.123456.123изм01_020-2015_Наименование.расширение

или для вновь выпущенного документа по извещению:

АААА.123456.200изм00_020-2015_Наименование.расширение

или просто новый документ в новом изделии:

АААА.123456.201изм00_Наименование.расширение

 

 

Если какие-то документы-подленники выпущены на бумаге, то на электронном документе-оригинале можно сделать пометку, например, подчёркивание перед изм: АААА.123456.123-УЛ_изм01_020-2015_Наименование.расширение , что бы знать что подлинник на бумаге.

 

по извещению вводим новую деталь в сборку. И на чертеже пишем "нов" и номер извещения.

Ну сейчас ГОСТ не очень обязательны, поэтому можно творить, что больше нравится, но на мой скромный взгляд ваши действия не правильны, т.к. в табличке основной надписи внося изменения подлинника, а при выпуске нового документа ни каких изменений в документе вы не делаете, а соответственно заполнять таблицу об изменении не корректно (но тут уж хозяин барин).

[Kelny 1 234]

Настроил в PDM задачу печати. Для разных форматов настроил свои принтеры\плоттеры. Но вот незадача - все печатается на А4. Такое "очучение", что макрос не может считать формат чертежа.

Если макрос тот, что в приложенном файле, то вероятно проблема в том, что макрос не определяет размер листа для печати, а наоборот заменяет его на тот, что установлен по умолчанию, в вашем случае как раз А4 и ориентация тоже вероятно не правильная:

 

    ' Paper size and orientation

    If Not ([__printer_usedrwnfo] And docType = swDocDRAWING) Then

        swPageSetup.PrinterPaperSize = GetPaperSize( [__printer_defpapsize] )    

        swPageSetup.Orientation = [__printer_deforientation] + 1

    End If

А должны как раз определить размер листа, ориентацию из документа и указать его при печати, например:

 

    ' Берём настройки листа

    vSheetProps = swSheet.GetProperties

 

'определяем ориентацию

If vSheetProps(5) <= vSheetProps(6) Then

swPageSetup.Orientation = [__printer_deforientation] '...тут обозначение вертикальный...

Else

swPageSetup.Orientation = [__printer_deforientation]+1 '...тут обозначение вертикальный...

End if

 

'определяем размер листа '!ОШИБСЯ СМОТРИ НИЖЕ!

If (vSheetProps(5) <= 0.21 And vSheetProps(6) <= 0.297) or (vSheetProps(5) <= 0.297 And vSheetProps(6) <= 0.21) Then 'A4

swPageSetup.PrinterPaperSize = GetPaperSize( [__printer_papsize_A4] )

ElseIf (vSheetProps(5) <= 0.21 And vSheetProps(6) <= 0.297) or (vSheetProps(5) <= 0.297 And vSheetProps(6) <= 0.21) Then 'A3

swPageSetup.PrinterPaperSize = GetPaperSize( [__printer_papsize_A3] )

...

...

End If '!ОШИБСЯ СМОТРИ НИЖЕ!

 

 

Так же проверяем правильные ли номера присвоены форматам в строках (цифра или сумма цифр тех что после равно, формат для которого данная цифра дальше в строке):

 

Function GetPaperSize(paperSize)

    Select Case paperSize

        Case 0, 1

            paperSizeNum = 256 + 6 'DMPAPER_ASHEET     DMPAPER_USER+6

        Case 2

            paperSizeNum = 256 + 7 'DMPAPER_BSHEET     DMPAPER_USER+7

        Case 3

            paperSizeNum = 24 'DMPAPER_CSHEET

        Case 4

            paperSizeNum = 25 'DMPAPER_DSHEET

        Case 5

            paperSizeNum = 26 'DMPAPER_ESHEET

        Case 6

            paperSizeNum = 256 + 4 'DMPAPER_A0  DMPAPER_USER+4

        Case 7

            paperSizeNum = 256 + 5 'DMPAPER_A1  DMPAPER_USER+5

        Case 8

            paperSizeNum = 66 'DMPAPER_A2

        Case 9

            paperSizeNum = 8 'DMPAPER_A3

        Case 10

            paperSizeNum = 9 'DMPAPER_A4

        Case 11

            paperSizeNum = 77 'DMPAPER_A4_ROTATED

        Case Else

            paperSizeNum = 9 'DMPAPER_A4

    End Select

    GetPaperSize = paperSizeNum

End Function

Для этого можно воспользоваться утилитой Список форматов выбранного принтера: http://kelnyproject.ucoz.ru/load/spisok_formatov_vybrannogo_printera/7-1-0-26

 

Думается как-то так. Может в коде не до конца разобрался, но направление примерно обозначено.

[fox1001 787]

Вопросик: А вус там будет пред цифрой 1 один стоять выбор "нов"? Это когда чертеж по извещению вводится.

наверное всётаки не ПЕРЕД цифрой "1", а ПОСЛЕ. в списке можно выбрать Нов., Зам. (мне он лучше всех нравица) и Изм.

 

А также новые извещения будут писаться выше, или будут заменять старое?

заменяют старое. верне заменяет текст в заметке.

[clavr 159]

При работе с файлами как раз легко всё искать и сортировать,

КД работает с электронной версией, а все остальные с бумажной. В том числе и те кто "ищет изменения". Т.е. электронный вариант, только у конструктора. Вот и приходится все изменения печатать.

заменяют старое. вернее заменяет текст в заметке.

а добавить функцию не замены а написания выше моно? 

Kelny, спс, будем разбираться

[fox1001 787]

а добавить функцию не замены а написания выше моно? 

конеш моно. тока тада надо придумать как быть со старыми заметками. куда информацию о них девать. 

[clavr 159]

Kelny, не помогло.Капаю дальше.

НО проблема правильна:

 

проблема в том, что макрос не определяет размер листа для печати, а наоборот заменяет его на тот, что установлен по умолчанию

У меня все гонит все в А4-масштабирует усе до А4.

 

Не могу понять, где загвоздка с считыванием формата

[Kelny 1 234]

не помогло.Капаю дальше.

Что именно не помогло?

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

 

Пытался встроить в ваш макрос, но вероятно можно ещё проще (так же выше ошибся скопировав обе строки для А4), предлагаю следующий алгоритм определения размера листа (или брать размер листа из свойств, если таковой параметр добавляется в свойства чертежа при заполнении основной надписи с помощь макросов):

 

'определяем размер листа

If (vSheetProps(5) <= 0.21 or vSheetProps(6) <= 0.21) and (vSheetProps(5) <= 0.297 And vSheetProps(6) <= 0.297) Then 'A4 если одна из сторон меньше или равна 210мм и обе стороны листа меньше 297мм

swPageSetup.PrinterPaperSize = 9 'A4

ElseIf (vSheetProps(5) > 0.21 or vSheetProps(6) > 0.21) and (vSheetProps(5) <= 0.420 And vSheetProps(6) <= 0.42) Then 'A3 если одна из сторон больше ширины А4 (210мм) и обе стороны меньше или равно длинне АЗ (420мм), то выбираем формат А3, если нет идём дальше по списку

swPageSetup.PrinterPaperSize = 8 'A3

...

...

End If

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

[clavr 159]

Kelny буду побывать.

А макрос - он мой, это стандартный из PDM. И я так понимаю он настроен под стандартные шаблоны Solidworks. Но у меня шаблоны от SWPlus. И я ни как не могу понять иде именно записаны и от куда считываются размеры листа

так же выше ошибся скопировав обе строки для А4

видел, но смысл уловил.. не помогло...

все равно на А4 печатает. Даже если по умолчанию выбираю А2,А3 или А1 

Может где-то нужно в шаблоне ка-то записать размеры листа?

[Kelny 1 234]

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

У вас стоит галочка считывать размеры листа из файла - это как минимум намекает, что используется настройки сохранённые в документе.

Был не внимательным, в макросе одним из условием выбора листа по умолчанию указывается отсутствие этой галочки (использовать размеры листа из документа):

    ' Paper size and orientation

 If Not ([__printer_usedrwnfo] And docType = swDocDRAWING) Then

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

    ' Paper size and orientation

 If docType = swDocDRAWING Then

'тут выбор размера листа

end if

[clavr 159]

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

я не делал ни каких настроек в документе! Знать бы какие нужно сделать

Задача проста же: нажать на печать и чтобы PDM сама раскидала листы по принтерам...оказывается это не так просто

[Kelny 1 234]

я не делал ни каких настроек в документе! Знать бы какие нужно сделать

Открыть документ и настроить параметры печати, после этого сохранить документ, а потом печатать через программу с параметром настроек из документа чертежа.

 

 

 

адача проста же: нажать на печать и чтобы PDM сама раскидала листы по принтерам...оказывается это не так просто

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

 

    ' Print file

    swExtension.PrintOut2 vPrintSheets, iNumCopies, False, printer, ""

задать размер листа и выбрать подходящий принтер:

 

'перед печатью меняем размер выбранного листа в свойствах документа

swPageSetup.PrinterPaperSize =8

'DMPAPER_A3 - данная строка меняет размер листа в настройках открытого

'для печати документа на номер 8, что соответсвует формату А3

 

'Выбираем принтер для печати

    ' Printer

    printer = "тут_имя_локально_принтера_или_путь_к_сетевому"

'например "HP Universal Printing PCL 5" или "\\SERVER\HP Universal Printing PCL 5"

 

' Print file - печатает открытый файл

    swExtension.PrintOut2 vPrintSheets, iNumCopies, False, printer, "" 'PrintOut2(PageArray, Copies, Collate, Printer, PrintFileName)

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

[haric 0]

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

[fox1001 787]

захотел исправить и забыл пароль,

какой пароль???  

[haric 0]

какой пароль???

[fox1001 787]

 

ни в пакете макросов SWPlus ни в SWPlus.Net нет ничего что требовало бы пароля или чего-то подобного. да приложения или макроса с именем "Ok" там тоже нет.

 

upd

пардон-с. тупанул-с 

Изменено 21 августа 2015 пользователем fox1001

[haric 0]

ни в пакете макросов SWPlus ни в SWPlus.Net нет ничего что требовало бы пароля или чего-то подобного. да приложения или макроса с именем "Ok" там тоже нет.

Макрос мой, обратился просто к знатокам.

[Солнцеворот 207]

Товарищи!

Как из макроса VBA получить вычисленное значение свойств пользователя? (выделено красным)

 

Стандартная функция возвращает текстовое выражение

Dim modelDocProperty As String    
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim ok As Integer

Set swModelDocExt = Model.Extension
Set swCustProp = swModelDocExt.CustomPropertyManager("ккуц")
ok = swCustProp.Get5("Масса", False, modelDocProperty, 0, 0)

' ModelDocProperty => "SW-Mass@@ккуц@Деталь1.SLDPRT"

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

[fox1001 787]

Товарищи!

Как из макроса VBA получить вычисленное значение свойств пользователя? (выделено красным)

2015-08-22 01-37-04 Скриншот экрана.png

 

Стандартная функция возвращает текстовое выражение

Dim modelDocProperty As String    
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim ok As Integer

Set swModelDocExt = Model.Extension
Set swCustProp = swModelDocExt.CustomPropertyManager("ккуц")
ok = swCustProp.Get5("Масса", False, modelDocProperty, 0, 0)

' ModelDocProperty => "SW-Mass@@ккуц@Деталь1.SLDPRT"

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

в строке

ok = swCustProp.Get5("Масса", False, modelDocProperty, 0, 0)

вместо предпоследнего нуля должна быть строковая переменная в которую процедура и записывает вычисленное значение свойства. в переменной modelDocProperty будет записано значение свойства. ну и вместо последнего нуля должна быть булева переменная (True или False)подробнее тут Get5, и пример

 

полагаю нужно вот так:

Dim modelDocProperty As String

Dim DValueProp As String
Dim boolProp As Boolean

Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim ok As Integer

Set swModelDocExt = Model.Extension
Set swCustProp = swModelDocExt.CustomPropertyManager("ккуц")
ok = swCustProp.Get5("Масса", False, modelDocProperty, DValueProp , boolProp)

в DValueProp будет записано вычисленное значение свойства.