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

[ТрындецЪ]

Код на Python

Код Выделить Развернуть

# -*- coding: utf-8 -*-
# Добавление нового свойства выделенному макроэлементу

import pythoncom
from win32com.client import Dispatch, gencache

id_prop = 295566205320.0 # ID свойства "Маркировка"

#  Подключим описание интерфейсов API5
KAPI = gencache.EnsureModule("{0422828C-F174-495E-AC5D-D31014DBBE87}", 0, 1, 0)
iKompasObject = KAPI.KompasObject(Dispatch("Kompas.Application.5")._oleobj_.QueryInterface(KAPI.KompasObject.CLSID, pythoncom.IID_IDispatch))
#  Подключим описание интерфейсов API7
KAPI7 =  gencache.EnsureModule("{69AC2981-37C0-4379-84FD-5DD2F3C0A520}", 0, 1, 0)
api = KAPI7.IKompasAPIObject(Dispatch("Kompas.Application.7")._oleobj_.QueryInterface(KAPI7.IKompasAPIObject.CLSID, pythoncom.IID_IDispatch))
const = gencache.EnsureModule("{2CAF168C-7961-4B90-9DA2-701419BEEFE3}", 0, 1, 0).constants
iApplication = api.Application

iDocument = iApplication.ActiveDocument
iKompasDocument2D = KAPI7.IKompasDocument2D(iDocument)
iKompasDocument2D1 = KAPI7.IKompasDocument2D1(iKompasDocument2D)
SelectionManager = iKompasDocument2D1.SelectionManager
SelectedObjects  = SelectionManager.SelectedObjects

# интерфейс Менеджера свойств
iPropertyMng = KAPI7.IPropertyMng(iApplication)

# путь к системной папке
Path_SYS = iKompasObject.ksSystemPath(0)

# интерфейс свойства из библиотеки
iProperty_lib = iPropertyMng.GetProperty(Path_SYS + "\properties.lpt", id_prop)

# добавим свойство в документ
iProperty = iPropertyMng.AddProperty(iDocument, iProperty_lib)

# интерфейс получения/редактирования значения свойств
iPropertyKeeper = KAPI7.IPropertyKeeper(SelectedObjects)

# установим значение в базовых единицах измерения (СИ)
iPropertyKeeper.SetPropertyValue( iProperty, u'Значение свойства', True )


[psiv]

Спасибо большое, Игорь!
Буду пробовать применить Ваш код в Делфи...

[lavgirb]

Код на Python

Код Выделить Развернуть

# -*- coding: utf-8 -*-
# Добавление нового свойства выделенному макроэлементу

import pythoncom
from win32com.client import Dispatch, gencache

id_prop = 295566205320.0 # ID свойства "Маркировка"

#  Подключим описание интерфейсов API5
KAPI = gencache.EnsureModule("{0422828C-F174-495E-AC5D-D31014DBBE87}", 0, 1, 0)
iKompasObject = KAPI.KompasObject(Dispatch("Kompas.Application.5")._oleobj_.QueryInterface(KAPI.KompasObject.CLSID, pythoncom.IID_IDispatch))
#  Подключим описание интерфейсов API7
KAPI7 =  gencache.EnsureModule("{69AC2981-37C0-4379-84FD-5DD2F3C0A520}", 0, 1, 0)
api = KAPI7.IKompasAPIObject(Dispatch("Kompas.Application.7")._oleobj_.QueryInterface(KAPI7.IKompasAPIObject.CLSID, pythoncom.IID_IDispatch))
const = gencache.EnsureModule("{2CAF168C-7961-4B90-9DA2-701419BEEFE3}", 0, 1, 0).constants
iApplication = api.Application

iDocument = iApplication.ActiveDocument
iKompasDocument2D = KAPI7.IKompasDocument2D(iDocument)
iKompasDocument2D1 = KAPI7.IKompasDocument2D1(iKompasDocument2D)
SelectionManager = iKompasDocument2D1.SelectionManager
SelectedObjects  = SelectionManager.SelectedObjects

# интерфейс Менеджера свойств
iPropertyMng = KAPI7.IPropertyMng(iApplication)

# путь к системной папке
Path_SYS = iKompasObject.ksSystemPath(0)

# интерфейс свойства из библиотеки
iProperty_lib = iPropertyMng.GetProperty(Path_SYS + "\properties.lpt", id_prop)

# добавим свойство в документ
iProperty = iPropertyMng.AddProperty(iDocument, iProperty_lib)

# интерфейс получения/редактирования значения свойств
iPropertyKeeper = KAPI7.IPropertyKeeper(SelectedObjects)

# установим значение в базовых единицах измерения (СИ)
iPropertyKeeper.SetPropertyValue( iProperty, u'Значение свойства', True )


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