Макрос для копирования свойства?

[Pyatachok 0]

Хочется иметь макрос который копирует значение свойства "description" и присваивает его свойству "заголовок" из закладки суммарная информация.

Подозреваю, что это примитивная задача, но к сожалению пока не освоил API :(

Если кто сможет помоч буду очень благодарен :)

Или как вариант можно ли при создании детали при сохранении занести наименование сразу на закладку суммарная информация?

[Shvg 68]

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

[Pyatachok 0]

В качестве названия файлов использую обозначение. Наименование ввожу при сохранении детали в дополнительном поле. Но свойство это СВ добавляет на закладку "настройка"

Если скопировать это свойство на закладку "суммарная информация" его можно отобразить в проводнике. Это в общем не обязательно, но приятно.

Если научите отображать в проводнике свойства с закладки "настройка" - тоже спасибо :)

Изменено 17 марта 2007 пользователем Pyatachok

[Shvg 68]

Написан по SW2007. Если не 2007, то исползуются другие функции.

P.S. Забыл сказать, что информация берется из закладки "Сustom Configuration". Если нужно из закладки "Custom", то отредактируйте макрос

Sub main()

	On Error GoTo LineError

	Set swApp = Application.SldWorks



	Set swModel = swApp.ActiveDoc

	Set swSelMgr = swModel.SelectionManager



	Set swCustomPropMgr = swModel.Extension.CustomPropertyManager("")

	

	Dim valOut As String, resValOut As String

	swCustomPropMgr.Get2 "Description", valOut, resValOut 'вместо Description может быть любое свойство

	If resValOut = "" Then

		Exit Sub

	End If

	

	swModel.SummaryInfo(swSummInfoField_e.swSumInfoTitle) = resValOut ' константа swSummInfoField_e.swSumInfoTitle записывает текст из свойства  куда необходимо в закладке Суммарная информация

	

	Exit Sub

LineError:

	

End Sub

[Pyatachok 0]

К сожалению у меня 2006

[Shvg 68]

К сожалению, под рукой нет API для 2006, но вроде и предыдущий макрос может работать.

А этот код должен работать и на более ранних версиях SW

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2



Sub main()

	On Error GoTo LineError

	Set swApp = Application.SldWorks



	Set swModel = swApp.ActiveDoc

	Dim strValue As String

	strValue = swModel.GetCustomInfoValue("", "Description") '  любое нужное свойство из закладки Custom

	If strValue = "" Then

		Exit Sub

	End If

	swModel.SummaryInfo(swSummInfoField_e.swSumInfoTitle) = strValue

	Exit Sub

LineError:

	

End Sub

[Игорь 3]

Вдогонку по свойству Обозначение.

Пытался безуспешно придумать макрос, который создает свойство "Обозначение" для деталей и сборок, значение для которого берет из имени файла (без расширения). Нужно именно значение, а не $PRP:"SW-File Name".

Прошу помочь.

[Nikona 7]

А свой создавать обязательно ?

Пользуюсь Этим и он раскидывает по свойствам Обозначение и если желаешь то и Наименование

И другие готовые макросы тоже вроде зачитку из имени файла делают

[Игорь 3]

Пользуюсь Этим

<{POST_SNAPBACK}>

Там DLL-ка, а мне бы надо сам код вытащить и в свой макрос внедрить. Поможите. Кто-нибудь? В макросах секу слабовато.

[Shvg 68]

To Игорь. Если это то, что вам нужно, конечно. Написан под SW2007, вроде работает, особо не проверял.

Option Explicit



Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swCustomPropMgr As SldWorks.CustomPropertyManager

Dim i As Integer



Sub main()

	On Error GoTo LineError

	

	Dim bres As Boolean

	bres = False

	

	Set swApp = Application.SldWorks

	

	Set swModel = swApp.ActiveDoc

	If swModel Is Nothing Then

		Exit Sub

	End If

		

	Dim DocType As Long

	DocType = swModel.GetType

	

	If Not DocType = swDocPART And Not DocType = swDocASSEMBLY Then

		Exit Sub

	End If

	

	Dim strFullName As String

	strFullName = swModel.GetPathName()

	

	Dim arrName As Variant

	arrName = Split(strFullName, "\")

	

	Dim iArr As Integer

	iArr = UBound(arrName)

	

	Dim strName As String

	strName = arrName(iArr)

	

	Dim iLen As Integer

	iLen = Len(strName)

	strName = Left(strName, iLen - 7)

	

	Set swCustomPropMgr = swModel.Extension.CustomPropertyManager("") 'Прописываться будет в закладке Custom

	

	Dim arrNamesPrp As Variant

	arrNamesPrp = swCustomPropMgr.GetNames

	

	Dim iCountPrp As Integer

	

	If Not IsEmpty(arrNamesPrp) Then

		iCountPrp = UBound(arrNamesPrp)

		

		Dim strNameProperties As String

		For i = 0 To iCountPrp

			strNameProperties = arrNamesPrp(i)

			If strNameProperties = "Обозначение" Then 'вместо "Обозначения" может быть любое нужное свойство свойство

				bres = True

				Exit For

			End If

		Next i

	End If

	

	If bres = False Then

		swCustomPropMgr.Add2 "Обозначение", SwConst.swCustomInfoType_e.swCustomInfoText, strName

	Else

		swCustomPropMgr.Set "Обозначение", strName

	End If

	

	Exit Sub

	

LineError:

		

End Sub

[Игорь 3]

2Shvg

Спасибо,это то, что требовалось!

Работает как часы!

[Странник 6]

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

А вот задачку автоматического считывания названия конфигураций и "обозначение" ни кто не решал ещё?

HELP по SolidWorks-2007 тут предлагает путь: PRP:"SW-File Name"PRP:"SW-Имя конфигурации", но почему то какждой из конфигураций присваивается имя активной в данный момент, опять же не ясно как быть с извлечёнными конфигурациями.

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

[Nikona 7]

ибо мультикадные PDM системы требуют оригинального имени на каждую конфигурацию

<{POST_SNAPBACK}>

Есть вопросик...

Часто узел без исполнений имеет конфигурации различных положений

Причем заранее трудно предугадать в каком положении (т.е. конф-ии) он будет в верхней сборке

Да еще хлеще если их в верхней несколько, да все в разных конфах

Как же тогда ублажить "мультикадную PDM"

[Странник 6]

Часто узел без исполнений имеет конфигурации различных положений

<{POST_SNAPBACK}>

Вот тут то и есть самое место для извлечённых конфигураций.

Оыкновенно таковых бывает до 3...4 на каждое исполнение.

Как же тогда ублажить "мультикадную PDM"

<{POST_SNAPBACK}>

Самое простое: купить контрольный пакет акций фирмы-разработчика этой "мультикадной" PDM или хоть договориться на предмет указания пользователем именно той конфигурации, что и должна отобразиться в спецификации.

Либо таки искать выход в API.

[Nikona 7]

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

<{POST_SNAPBACK}>

Так она (PDM) что игнорирует обозначения извлеченных...

Но ведь они зачастую бывают и исполнениями

[Странник 6]

Так она (PDM) что игнорирует обозначения извлеченных...

Но ведь они зачастую бывают и исполнениями

<{POST_SNAPBACK}>

Не игнорирует, а как раз требует точное обозначение и на них тоже..

в том то весь и фокус...

В качестве примера

http://fsapr2000.ru/index.php?showtopic=13295

ну может хоть какая полезная информация там обрящется, про мультикадные PDM.

[Leon 435]

HELP по SolidWorks-2007 тут предлагает путь: PRP:"SW-File Name"PRP:"SW-Имя конфигурации", но почему то какждой из конфигураций присваивается имя активной в данный момент,

<{POST_SNAPBACK}>

Тоже на эти грабли наступил. Выход есть, указывать вместо PRP:"SW-Имя конфигурации" реальное имя. Программно, конечно, при заполнении свойств.

[Странник 6]

Тоже на эти грабли наступил. Выход есть, указывать вместо PRP:"SW-Имя конфигурации" реальное имя. Программно, конечно, при заполнении свойств.

<{POST_SNAPBACK}>

Ну что же, придётся дать напругу SWR (хотя это трудно) и "фирменным" программистам.

[Nikona 7]

Странник

Чтой то не понял логики ваших рассуждений (см. посты 12…16)

#12. "мультикадные PDM системы требуют оригинального имени на каждую конфигурацию"

#13. Однако не все конфигурации обязаны иметь обозначение (например конф-я положения)

#14. "Вот тут то и есть самое место для извлечённых конфигураций"

#15. Получается PDM игнорирует обозначения извлеченных...

#16. "Не игнорирует, а как раз требует точное обозначение и на них тоже… в том то весь и фокус..."

Можно в 2-х словах: О чем вы это

[Странник 6]

Можно в 2-х словах: О чем вы это

<{POST_SNAPBACK}>

Всё просто.

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

Надеюсь, хоть с постулатом гласящим, что не все конфигурации надо затаскивать в спецификацию и сохранять в PDM (как правило это извлечённые конфигурации) спорить не будете?

То есть: при проектировании рождается множество конфигураций из которых "документ" автоматически даётся далеко не каждой, да и не каждой он фактически нужон, а формально приходится всё оформлять.

P.S. Не всё можно познать со слов, кое что нужно и опытно.