Пример кода в VBA или примеры kompasAPI в VBA

[bionorica2015]

Здравствуйте.
Прошу поделитесь примером подключения к kompasapi7, открытия детали и прочтения названия активной детали именно в VBA.
Также есть ли в интернете ресурс где есть примеры кодов kompasapi в VBA?

[Student2025]

bionorica2015, поищите на гитхабе - там примеров на vba для Компас 3D было не мало - лабораторные с университета.

[lavgirb]

Также есть ли в интернете ресурс где есть примеры кодов kompasapi в VBA?

Специально для VBA не уверен, что есть.
Читайте примеры для VB.Net. В принципе, там все тоже самое.

Прошу поделитесь примером подключения к kompasapi7, открытия детали и прочтения названия активной детали именно в VBA.

Примеры могут зависеть от того, что уже знаете.

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

Private moKO5 As Kompas6API5.Application
Private moKO7 As KompasAPI7.IApplication

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

Set moKO5 = Nothing
   Set moKO5 = GetObject(, "KOMPAS.Application.5")
   If Not moKO5 Is Nothing Then
      Set moKO7 = moKO5.ksGetApplication7
   End If

[Lemieux]

bionorica2015, поищите на гитхабе - там примеров на vba для Компас 3D было не мало - лабораторные с университета.

Скиньте пару ссылок, ничего не нашёл.

[Михаил88]

Здравствуйте.
Прошу поделитесь примером подключения к kompasapi7, открытия детали и прочтения названия активной детали именно в VBA.
Также есть ли в интернете ресурс где есть примеры кодов kompasapi в VBA?

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

Sub OpenDoc()

Dim application As KompasAPI7.IApplication
Dim documents As KompasAPI7.documents
Dim kompas_document As KompasAPI7.IKompasDocument
Dim kompas_document_3d As KompasAPI7.KompasDocument3D
Dim part7 As KompasAPI7.part7
Dim marking, name As String

 
Set application = GetObject(, "Kompas.Application.7")
Set documents = application.documents
Set kompas_document = documents.Open("C:\Users\XXXX\Desktop\Деталь.m3d", True, False)
Set kompas_document_3d = kompas_document
Set part7 = kompas_document_3d.TopPart
marking = part7.marking
name = part7.name
MsgBox marking & "_" & name, vbOKOnly


End Sub


[Student2025]

Скиньте пару ссылок, ничего не нашёл.

Все ссылки битые

Есть только это (переписать под vba)-
https://github.com/search?q=Kompas6API5+language%3AC%23&type=code&l=C%23
https://github.com/search?q=KompasAPI7+language%3AC%23&type=code&l=C%23
https://github.com/search?q=KOMPAS.Application+language%3AC%23&type=code

Такой хороший был материал.. зачем было удалять.

[Student2025]

Тутъ примеров не мало.. на пару тройку вечеров хватит

[p3452]

В строке поиска Форума набрать VBA - получите более 100 тем...

p/s: А лучше "пересаживайтесь" на более "массовый" язык (похожий, по коду и простоте).

[Lemieux]

VBA встроен в КОМПАС или автор хочет из excel запускать КОМПАС и читать деталь?

[UU]

c:\Program Files\ASCON\KOMPAS-3D v23\SDK\Samples\Basic\

[Student2025]

VBA встроен в КОМПАС

Зачем доверчивых людей пускать в заблуждение ?

[Lemieux]

Зачем доверчивых людей пускать в заблуждение ?

Как я понимаю Вы не русский или ИИ. Потому что в предложении, который Вы заквотили, был вопрос, а не предъява ©

[Student2025]

Lemieux а писать изначально нормально как положено в 3 классе средней школы нельзя было? Написано что он как бы строен или все таки работать через vba excel ? Ваше предложение можно по разному прочесть.

[Student2025]

lavgirb, я вам больше помогать не буду - все хватит.
В коде утилит ваших столько косяков..