[Vladmart]

Подскажите, плз, как добраться до SheetSet из Exel - приложения.
-----------------------------------------------

Код:

[Выделить все]

Dim objApp As AcadApplication
Dim objAcadAcSm As AcSmSheetSetMgr
 
Set objApp = GetObject _
(, "AutoCAD.Application.18")
If Err Then
Err.Clear
Set objApp = CreateObject _
("AutoCAD.Application.18")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
 
Set objAcadAcSm = New AcSmSheetSetMgr
'-----------------------------------------------
'выдает сообщение "the specified modul could not be found"
'-----------------------------------------------
Dim objApp As AcadApplication
Dim objAcadAcSm As AcSmSheetSetMgr
 
Set objApp = GetObject _
(, "AutoCAD.Application.18")
If Err Then
Err.Clear
Set objApp = CreateObject _
("AutoCAD.Application.18")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
 
Set objAcadAcSm = CreateObject("AcSmComponents.AcSmSheetSetMgr")
'-----------------------------------------------
'выдает сообщение "ActiveX component can't create object"

В AutoCAD MEP первый вариант работает, но нужно достучаться из Exel, т.к. большая часть работы производится в Exel.

[Сергей Богатов]

Джентльмены! Пардон за некропостинг, но у меня схожая проблема. Нужен доступ к компонентам подшивки из внешнего приложения (без автокада). Много читал - вроде бы нельзя. Но как-то же получилось у http://www.jtbworld.com/SSMPropEditor.htm
Помогите!

[hwd]

Сообщение от Сергей Богатов как-то же получилось у http://www.jtbworld.com/SSMPropEditor.htm

Я предполагаю, что у него получилось не без этого.

[Сергей Богатов]

Сообщение от hwd Я предполагаю, что у него получилось не без этого.

Может быть, но хотелось бы конкретики
Offtop: P.S.
Интересно, а есть членство в ODA бесплатное?

[maratovich]

Сообщение от Сергей Богатов Нужен доступ к компонентам подшивки из внешнего приложения

Просто интересно - а зачем сие действие ?

[kp+]

Интересно, а есть членство в ODA бесплатное?

250$ и заветный код будет у Вас в кармане
Offtop: Не забудьте выложить в download этого форума

[Сергей Богатов]

Сообщение от maratovich Просто интересно - а зачем сие действие ?

Есть такое слово "нужно"...
Задача: организовать связь подшивки с внешней БД не запуская Автокад
Или даже запуская, но из внешнего приложения (отдельный .exe или через макрос Excel)

[Sta1917]

В Office есть подключаемые библиотеки AutoCAD 20xx Type Library и AutoCAD Focus Control for VBA Type Library, может через них уважаемые программисты доберутся до подшивки?

[maratovich]

Сообщение от Sta1917 может через них уважаемые программисты доберутся до подшивки?

Даже если доберусь, дальше то что ? Дальше тупик под названием

Сообщение от Сергей Богатов "нужно"

[Sta1917]

Сообщение от Сергей Богатов Нужен доступ к компонентам подшивки из внешнего приложения.

Возможно "нужно" автозаполенние полей свойств подшивки из внешней БД (типа Excel). Ждем TC с пояснениями.

[Дима_]

Сообщение от Sta1917 из внешней БД (типа Excel)

БД, СУБД и Excel - "это 4 разных человека"

[Сергей Богатов]

Сообщение от Дима_ БД, СУБД и Excel - "это 4 разных человека"

Ситуация описана в 1 посте. Нужно просто обратиться к подшивке. Откуда угодно кроме Автокада. Из VBA (Excel,Access) или экзэшника сделанного на VB.NET
P.S.
Что хочется делать(глобально) описано в http://forum.dwg.ru/showthread.php?t=89774 (см. мои посты)

P.P.S.
Если интересно, то вот задача - есть подшивка автокада (.dst файл). Нужен экзешник при запуске которого через диалог можно поменять параметр подшивки "Description". Желательно без установленного автокада. Можно и с ним
P.P.P.S.
С исходниками естественно

[Дима_]

Мне вот так и не ясно есть ли автокад на машине или нет (т.к. если его нет, то тут без участия в альянса dwg-открываетлей дело туго), а если он все-же есть, но просто запускать его надо снаружи (и, возможно, спрятанно от посторонних глаз) - так это уже совсем другой вопрос.

[Сергей Богатов]

Автокад есть, но обработка должна произойти не из автокада. Проблема в том, что код работающий внутри VBA-проекта автокада и .NET сборки даёт сбой при обращении к менеджеру подшивки если запускать его "снаружи".

Я сделал обработку БД(в Эксель) из Автокада, но это неудобно. Нужно чтоб было отдельное приложение которое читает из БД(пока в Экселе, но это временно) и напрямую(пусть и с запуском Автокада) пишет в подшивки

PS
по ссылке схожее обсуждение(на английском)
http://forums.autodesk.com/t5/NET/ex...e/td-p/3135796

I am afraid that the error indicates that you cannot use acsmcomponents18.dll outside AutoCAD (e.g. cannnot use it in your stand-alone exe).

Thanks to Norman for pointing this out. Yes. this COM API is only in-process and cannot be accessed through an external exe.

[Дима_]

Самое простое - скрыто запустить автокад, а в нем загрузить и выполнить

Сообщение от Сергей Богатов код работающий внутри VBA-проекта автокада и .NET сборки

, закрыть обработанный файл (а автокад можно и не закрывать до конца программы - вдруг еще понадобиться). У меня подобное где-то валялось (для генерации больших прьевъюшек рисунков с занесением их (точнее путей к ним) как раз в БД.)

[Сергей Богатов]

Сообщение от Дима_ Самое простое - скрыто запустить автокад, а в нем загрузить и выполнить Цитата: Сообщение от Сергей Богатов код работающий внутри VBA-проекта автокада и .NET сборки , закрыть обработанный файл (а автокад можно и не закрывать до конца программы - вдруг еще понадобиться). У меня подобное где-то валялось (для генерации больших прьевъюшек рисунков с занесением их (точнее путей к ним) как раз в БД.)

Запустить автокад скрыто и обработать например .dwg не проблема. Но обращение к менеджеру подшивок заканчивается аварийным сообщением. Я тоже думал что это тривиальная задача, но оказалось это не так Поэтому пока не попробуешь - не узнаешь что это такое
PS
Я как говорит"догнал" Это не то решение(выделил красным) которое хочется видеть.
Всё-таки хочется по-нормальному... Чтоб обратился к объекту, обработал, закрыл...
Но лучше чем ничего

[Дима_]

Сообщение от Сергей Богатов Это не то решение(выделил красным) которое хочется видеть. ... Но лучше чем ничего

С этим согласен, но набезрыбье и ...

[Сергей Богатов]

Offtop: Тогда следующий вопрос. Можно ли сделать такую процедуру в VBA(или .NET) чтоб можно было вызывать их из внешнего приложения с параметрами? типа RunMacro("имямакро(параметр1,параметр2,...)")

[hwd]

Сообщение от Сергей Богатов Автокад есть, но обработка должна произойти не из автокада.

Насколько мне известно, работать с подшивками можно только из Автокада.

[Сергей Богатов]

Сообщение от hwd Насколько мне известно, работать с подшивками можно только из Автокада.

см. пост №2.

Сообщение от Сергей Богатов Много читал - вроде бы нельзя. Но как-то же получилось у http://www.jtbworld.com/SSMPropEditor.htm