Передать текст в документ

lyret59 · 11.02.22, 12:55:26

Всем привет. Создаю текстовый документ через API5, но там не нашёл функции, которая пишет текст в документ. Видел статью по этому поводу, парень писал что через API5 никак не передать текст, но можно через API7. Подскажите, может кто-то делал уже такое.

Михаил88 · 11.02.22, 13:06:52

# -*- coding: utf-8 -*-
#|текст

import pythoncom
from win32com.client import Dispatch, gencache

import LDefin2D

# Подключим константы API Компас
kompas6_constants = gencache.EnsureModule("{75C9F5D0-B5B8-4526-8681-9903C567D2ED}", 0, 1, 0).constants

# Подключим описание интерфейсов API5
kompas6_api5_module = gencache.EnsureModule("{0422828C-F174-495E-AC5D-D31014DBBE87}", 0, 1, 0)
kompas_object = kompas6_api5_module.KompasObject(Dispatch("Kompas.Application.5")._oleobj_.QueryInterface(kompas6_api5_module.KompasObject.CLSID, pythoncom.IID_IDispatch))

iDocument2D = kompas_object.ActiveDocument2D()

iParagraphParam = kompas6_api5_module.ksParagraphParam(kompas_object.GetParamStruct(kompas6_constants.ko_ParagraphParam))
iParagraphParam.Init()
iParagraphParam.x = 90.344821905642
iParagraphParam.y = 248.36158781765
iParagraphParam.ang = 0
iParagraphParam.height = 6.028531074524
iParagraphParam.width = 28.27833366394
iParagraphParam.hFormat = 0
iParagraphParam.vFormat = 0
iParagraphParam.style = 1
iDocument2D.ksParagraph(iParagraphParam)

iTextLineParam = kompas6_api5_module.ksTextLineParam(kompas_object.GetParamStruct(kompas6_constants.ko_TextLineParam))
iTextLineParam.Init()
iTextLineParam.style = 1
iTextItemArray = kompas_object.GetDynamicArray(LDefin2D.TEXT_ITEM_ARR)
iTextItemParam = kompas6_api5_module.ksTextItemParam(kompas_object.GetParamStruct(kompas6_constants.ko_TextItemParam))
iTextItemParam.Init()
iTextItemParam.iSNumb = 0
iTextItemParam.s = "оророророр"
iTextItemParam.type = 0
iTextItemFont = kompas6_api5_module.ksTextItemFont(iTextItemParam.GetItemFont())
iTextItemFont.Init()
iTextItemFont.bitVector = 4096
iTextItemFont.color = 0
iTextItemFont.fontName = "GOST type A"
iTextItemFont.height = 5
iTextItemFont.ksu = 1
iTextItemArray.ksAddArrayItem(-1, iTextItemParam)
iTextLineParam.SetTextItemArr(iTextItemArray)

iDocument2D.ksTextLine(iTextLineParam)
obj = iDocument2D.ksEndObj()

Вот сделал с помощью компас макро на python c использованием API5

lyret59 · 11.02.22, 13:14:39

Цитата: Михаил88 от 11.02.22, 13:06:52# -*- coding: utf-8 -*-
#|текст

import pythoncom
from win32com.client import Dispatch, gencache

# Подключим константы API Компас
kompas6_constants = gencache.EnsureModule("{75C9F5D0-B5B8-4526-8681-9903C567D2ED}", 0, 1, 0).constants

# Подключим описание интерфейсов API5
kompas6_api5_module = gencache.EnsureModule("{0422828C-F174-495E-AC5D-D31014DBBE87}", 0, 1, 0)
kompas_object = kompas6_api5_module.KompasObject(Dispatch("Kompas.Application.5")._oleobj_.QueryInterface(kompas6_api5_module.KompasObject.CLSID, pythoncom.IID_IDispatch))

iDocument2D = kompas_object.ActiveDocument2D()

iParagraphParam = kompas6_api5_module.ksParagraphParam(kompas_object.GetParamStruct(kompas6_constants.ko_ParagraphParam))
iParagraphParam.Init()
iParagraphParam.x = 90.344821905642
iParagraphParam.y = 248.36158781765
iParagraphParam.ang = 0
iParagraphParam.height = 6.028531074524
iParagraphParam.width = 28.27833366394
iParagraphParam.hFormat = 0
iParagraphParam.vFormat = 0
iParagraphParam.style = 1
iDocument2D.ksParagraph(iParagraphParam)

iTextLineParam = kompas6_api5_module.ksTextLineParam(kompas_object.GetParamStruct(kompas6_constants.ko_TextLineParam))
iTextLineParam.Init()
iTextLineParam.style = 1
iTextItemArray = kompas_object.GetDynamicArray(LDefin2D.TEXT_ITEM_ARR)
iTextItemParam = kompas6_api5_module.ksTextItemParam(kompas_object.GetParamStruct(kompas6_constants.ko_TextItemParam))
iTextItemParam.Init()
iTextItemParam.iSNumb = 0
iTextItemParam.s = "оророророр"
iTextItemParam.type = 0
iTextItemFont = kompas6_api5_module.ksTextItemFont(iTextItemParam.GetItemFont())
iTextItemFont.Init()
iTextItemFont.bitVector = 4096
iTextItemFont.color = 0
iTextItemFont.fontName = "GOST type A"
iTextItemFont.height = 5
iTextItemFont.ksu = 1
iTextItemArray.ksAddArrayItem(-1, iTextItemParam)
iTextLineParam.SetTextItemArr(iTextItemArray)

iDocument2D.ksTextLine(iTextLineParam)
obj = iDocument2D.ksEndObj()

Вот сделал с помощью компас макро на python

Спасибо за ответ! Можешь приложить файл макроса, пожалуйста?

Михаил88 · 11.02.22, 13:21:04

текст.cdm

Михаил88 · 11.02.22, 13:25:10

Текст на чертеже.rar

Это на API7 записано с помощью PyKompasMacro

lyret59 · 11.02.22, 13:27:25

Спасибо за ответ! Но мне нужно создать не 2d документ, а именно текстовый.

Михаил88 · 11.02.22, 13:31:14

извиняюсь не внимательно прочитал вопрос

Sabahs · 11.02.22, 13:32:12

Так - pDocument:=pDocuments.AddWithDefaultSettings(ksDocumentTextual,True);
или так - pDocument:=pDocuments.Add(ksDocumentTextual,True);

lyret59 · 11.02.22, 13:34:42

Цитата: Sabahs от 11.02.22, 13:32:12Так - pDocument:=pDocuments.AddWithDefaultSettings(ksDocumentTextual,True);
или так - pDocument:=pDocuments.Add(ksDocumentTextual,True);

Да, документ я создал, а вот как в него текст передать, так и не смог найти.

Sabahs · 11.02.22, 13:35:40

Поиск по форуму, куча тем про текст.

lyret59 · 11.02.22, 13:41:38

Цитата: Sabahs от 11.02.22, 13:35:40Поиск по форуму, куча тем про текст.

К сожалению, не могу найти ответа на данный вопрос в темах форума. Изначально поискал, но ничего не нашёл.

Sabahs · 11.02.22, 13:44:29

IDrawingTexts.Add

lyret59 · 11.02.22, 13:53:54

Цитата: Sabahs от 11.02.22, 13:44:29IDrawingTexts.Add

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

Михаил88 · 11.02.22, 14:41:59

Цитата: lyret59 от 11.02.22, 13:53:54Это интерфейс коллекции текстов на чертеже, вопрос заключается в том, чтобы передать текст в текстовый документ.

# -*- coding: utf-8 -*-
import pythoncom
from win32com.client import Dispatch, gencache

# Получи константы
kompas6_constants = gencache.EnsureModule("{75C9F5D0-B5B8-4526-8681-9903C567D2ED}", 0, 1, 0).constants

# Подключим описание интерфейсов API7
kompas_api7_module = gencache.EnsureModule("{69AC2981-37C0-4379-84FD-5DD2F3C0A520}", 0, 1, 0)
application = kompas_api7_module.IApplication(
Dispatch("Kompas.Application.7")._oleobj_.QueryInterface(kompas_api7_module.IApplication.CLSID,
pythoncom.IID_IDispatch))

documents = application.Documents
kompas_document = documents.AddWithDefaultSettings(kompas6_constants.ksDocumentTextual, True)

iTextDocument = kompas_api7_module.ITextDocument(kompas_document)
print(iTextDocument)
text = iTextDocument.Text
text.Str = 'dasdsdsdsdsd'

lyret59 · 12.02.22, 18:21:26

Цитата: Михаил88 от 11.02.22, 14:41:59# -*- coding: utf-8 -*-
import pythoncom
from win32com.client import Dispatch, gencache

# Получи константы
kompas6_constants = gencache.EnsureModule("{75C9F5D0-B5B8-4526-8681-9903C567D2ED}", 0, 1, 0).constants

# Подключим описание интерфейсов API7
kompas_api7_module = gencache.EnsureModule("{69AC2981-37C0-4379-84FD-5DD2F3C0A520}", 0, 1, 0)
application = kompas_api7_module.IApplication(
Dispatch("Kompas.Application.7")._oleobj_.QueryInterface(kompas_api7_module.IApplication.CLSID,
pythoncom.IID_IDispatch))

documents = application.Documents
kompas_document = documents.AddWithDefaultSettings(kompas6_constants.ksDocumentTextual, True)

iTextDocument = kompas_api7_module.ITextDocument(kompas_document)
print(iTextDocument)
text = iTextDocument.Text
text.Str = 'dasdsdsdsdsd'

Спасибо! Это то, что было нужно.
На C# это будет так:

Код Выделить

Type t7 = Type.GetTypeFromProgID("KOMPAS.Application.7");
IApplication application = (IApplication)Activator.CreateInstance(t7);
application.Visible = true;
var textDocument = (ITextDocument)application.
                                  Documents.
                                  AddWithDefaultSettings(DocumentTypeEnum.ksDocumentTextual, true);                        
var text = textDocument.Text;
string s = "sss";
string str = $"{s}\n123";
text.Str = str;

Из того, что нашёл в SDK я понял, что можно передавать только одну строку. Но чтобы записать несколько строк в ней можно использовать "\n". Может есть менее костыльный метод, но я не смог найти.

Спасибо всем за помощь!

lyret59 · 12.02.22, 18:24:09

Результат:

p3452 · 12.02.22, 21:24:22

Цитата: lyret59 от 12.02.22, 18:21:26Из того, что нашёл в SDK я понял, что можно передавать только одну строку.

lyret59 · 13.02.22, 03:36:04

Цитата: p3452 от 12.02.22, 21:24:22

Можете прикрепить код, пожалуйста?)

p3452 · 13.02.22, 09:57:23

1. Код вам уже давали - дважды в развернутом виде и еще несколько раз отдельными фрагментами!
2. Скрин - ручной ввод (код можно получить через макрорекордер), всего лишь демонстрация вашего заблуждения:

Цитата: lyret59 от 12.02.22, 18:21:26Из того, что нашёл в SDK я понял, что можно передавать только одну строку.

3. "Текст" во всех документах Компас имеет одинаковый интерфейс, т.е. не важно где находится Текст - на чертеже, в спецификации, в таблице или в "текстовом документе".
4. "Текстовый документ" может включать ВСЕ, что есть в панели меню Компаса "Вставить".

Михаил88 · 13.02.22, 18:36:10

# -*- coding: utf-8 -*-
import pythoncom
from win32com.client import Dispatch, gencache

# Получи константы
kompas6_constants = gencache.EnsureModule("{75C9F5D0-B5B8-4526-8681-9903C567D2ED}", 0, 1, 0).constants

# Подключим описание интерфейсов API7
kompas_api7_module = gencache.EnsureModule("{69AC2981-37C0-4379-84FD-5DD2F3C0A520}", 0, 1, 0)
application = kompas_api7_module.IApplication(
Dispatch("Kompas.Application.7")._oleobj_.QueryInterface(kompas_api7_module.IApplication.CLSID,
pythoncom.IID_IDispatch))

documents = application.Documents
kompas_document = documents.AddWithDefaultSettings(kompas6_constants.ksDocumentTextual, True)

iTextDocument = kompas_api7_module.ITextDocument(kompas_document)
print(iTextDocument)
text = iTextDocument.Text
text.Str = 'Первая строка'
text_line = text.Add()
text_line.Str = 'Вторая строка'
text.AddTextLine(kompas6_constants.ksTLFragment, r"C:\Users\User\Desktop\Фрагмент.frw")

Вот еще пример

Новости:

Передать текст в документ

11.02.22, 13:06:52 #1 Последнее редактирование: 11.02.22, 13:20:05 от Михаил88

11.02.22, 13:14:39 #2

11.02.22, 13:21:04 #3

11.02.22, 13:25:10 #4

11.02.22, 13:27:25 #5

11.02.22, 13:31:14 #6

11.02.22, 13:32:12 #7

11.02.22, 13:34:42 #8

11.02.22, 13:35:40 #9

11.02.22, 13:41:38 #10

11.02.22, 13:44:29 #11

11.02.22, 13:53:54 #12

11.02.22, 14:41:59 #13

12.02.22, 18:21:26 #14

12.02.22, 18:24:09 #15

12.02.22, 21:24:22 #16

13.02.22, 03:36:04 #17

13.02.22, 09:57:23 #18

13.02.22, 18:36:10 #19