[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

[hwd]

Сообщение от Сергей Богатов см. пост №2.

См. пост №3.
Ты можешь у автора по почте узнать, что он использовал. Подозреваю, что именно то, что указано в #3.

[Дима_]

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

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

[hwd]

Сообщение от Дима_ Можно - создать функцию и sendcommand ..., либо придумать куда класть параметры и возрат и либо команду через- тот-же sendcommand, либо реактор на произвольное событие автокада(которое генерируется из вне) - более надежный способ (я предпочитаю второй).

Когда будет пригоден к использованию AcCoreConsole.exe - он будет более предпочтителен в подобных случаях, т.к. работает намного быстрее acad.exe (во всяком случае быстрее запускается). Интересно, доработают его в 2014-й версии, или нет, а так же появится ли к нему API...

[Дима_]

Сообщение от hwd Когда будет пригоден к использованию AcCoreConsole.exe - он будет более предпочтителен в подобных случаях

Я его в живую так и не посмотрел, а например, тот-же CapturePreviewImage он поддерживает (то есть если в него соотв. сборку которая экран в окно выводит загрузить - работать будет?) - если будет время - проверь пжл - у меня 2013 "кончился".

[hwd]

Сообщение от Дима_ CapturePreviewImage

Это что?

[Дима_]

Сообщение от hwd CapturePreviewImage Это что?

Offtop: Не ожидал услышать такое от Вас - метод документа.
Ну например, хочу я быстро и пакетно параметрически рисовать в автокаде и решил исползовать для этого AcCoreConsole, но так-же хочу и приложить к рисунку эскиз:

Код:

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

 #r "c:/program files/autocad 2010/acmgd.dll"
#r "c:/program files/autocad 2010/acdbmgd.dll"
open System
open System.Windows.Forms
open Autodesk.AutoCAD.ApplicationServices
open Autodesk.AutoCAD.Runtime

let f=new Form(TopMost=true, Visible=true,ControlBox=false)

[<CommandMethod "ShowScreen">]
let SS()=
  f.BackgroundImage<-Application.DocumentManager.MdiActiveDocument.CapturePreviewImage(uint32(f.ClientSize.Width),uint32(f.ClientSize.Height))

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

[hwd]

Сообщение от Дима_ вопрос будет ли такое чудо работать из-под консоли

У меня для WinForms не заработало - идёт исключение, завершающее работу приложения. Если комментирую код создания формы - начинает работать. Назначение AcCoreConsole как раз в том, чтобы выполнять задачи БЕЗ диалоговых окон. Загружается AcCoreConsole гораздо быстрее, чем acad.exe, например у меня - секунду, может даже меньше.

P.S. А вот WPF окно открылось без проблем... Но открывать его нужно модальным, иначе сразу после открытия ты потеряешь контроль над ним, т.е. будешь видеть, кликать по нему, но ничего происходить не будет и закрыть уже не сможешь, т.к. окно не реагирует.

Скрин документа с помощью WPF для AcCoreConsole получить так же не удаётся - приложение завершает работу с ошибкой. Код такой:

Код:

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

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using acad = Autodesk.AutoCAD.ApplicationServices.Application;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;
using System.Windows;
using System.Windows.Media;
using System.Windows.Interop;
using System.Drawing;
using System.Windows.Media.Imaging;

namespace CapturePreviewImage {
    public class Class1 {
        [CommandMethod("test")]
        public void Test() {
            Document doc = acad.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            Editor ed = doc.Editor;
            ed.WriteMessage("File: {0}", doc.Name);
            Window win = new Window() { Width = 100, Height = 100, Title = "Hello World" };
            win.WindowStartupLocation = WindowStartupLocation.CenterScreen;
            ImageBrush img = new ImageBrush();
            Bitmap bm = acad.DocumentManager.MdiActiveDocument
                .CapturePreviewImage((uint)win.Width, (uint)win.Height);
            img.ImageSource = Imaging.CreateBitmapSourceFromHBitmap(bm.GetHbitmap(),
                IntPtr.Zero, Int32Rect.Empty, BitmapSizeOptions.FromEmptyOptions());
            win.Background = img;
            acad.ShowModelessWindow(win);
        }
    }
}

[Дима_]

Сообщение от hwd У меня для WinForms не заработало - идёт исключение, завершающее работу приложения. Если комментирую код создания формы - начинает работать.

Как уже писал проверить не могу по причине отсутсвия (надо искать какой-либо компутер-жертву куда его можно поставить т.к. у меня он "кончился" а заниматься чисткой и др неправоправными действиями с некоторых пор считаю моветоном - в общем не вариант Offtop: хотя когда-то, именно я, при помощи Sourcer&TurboDebager, а позже SoftIce...), но хочу уточнить - точно-ли падает из-за WinForms окон (какое ему дело какие "внешние" библиотеки запустил плагин?) Скорее при попытке установки фона (точнее при его получении) - и произойдет "падение". Ибо я подозреваю, что из-под CoreConsole будут работать (из автокадовских) только классы из AcCoreMgd.dll
p.s. оба-на - а consle-то и после "срока" работает (чего я раньше не догадался) - сейчас проверю все...

[hwd]

Сообщение от Дима_ надо искать какой-либо компутер-жертву

Решил заюзать мой?

Сообщение от Дима_ и др неправоправными действиями с некоторых пор считаю моветоном

Виртуальные машинки никто не отменял, VirtualBox бесплатен. Установить на него триальную версию софта не сложно (при желании).

Сообщение от Дима_ точно-ли падает из-за WinForms окон (какое ему дело какие "внешние" библиотеки запустил плагин?) Скорее при попытке установки фона (точнее при его получении) - и произойдет "падение". Ибо я подозреваю, что из-под CoreConsole будут работать (из автокадовских) только классы из AcCoreMgd.dll

У меня нет времени на подобные тестирования, да и смысла я в этом не вижу, откровенно говоря.

p.s. оба-на - а consle-то и после "срока" работает

Думаю, что после твоего сообщения найдутся "добрые люди", которые сообщат об этом Autodesk'у - тот мигом пофиксит это, ведь сие есть потенциальная возможность потери денег

[Дима_]

Сообщение от hwd Решил заюзать мой?

Offtop: Да ладно не ворчите
В общем если кому интересно - ихмо действительно так (WinForms у меня прекрасно показался) и юзать можно только-то что есть AcCoreMgd.dll.

Думаю, что после твоего сообщения найдутся "добрые люди", которые сообщат об этом Autodesk'у - тот мигом пофиксит это, ведь сие есть потенциальная возможность потери денег

А зачем его фиксить?? - скорее наоборот ADN'овцам через пару версий скажут вот вам для разработки отдельная консольная версия лежит для свободного скачивания - в ней и кочевряждесь (т.к. откровенно кроме разработчиков она больше никому не нужна) - будет такой кодек dwg-файлов (посмотреть нельзя, но пощупать можно).

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

Сообщение от hwd См. пост №3. Ты можешь у автора по почте узнать, что он использовал. Подозреваю, что именно то, что указано в #3.

По результатам общения выяснил, что автор каким-то образом напрямую потрошит(но не говорит как) подшивку. Наверное разгадал кодировку... Он предложил купить у него конвертер подшивка-в-xml и пользоваться им

[hwd]

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

Пять европейских рублей - вполне доступная, указанная автором цена.

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

Сообщение от hwd Пять европейских рублей - вполне доступная, указанная автором цена

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

[hwd]

Сообщение от Сергей Богатов да ещё и "чёрный ящик" не хочется... Пойдём другим путём

Т.е. Windows в ведро и будешь пользоваться Linux?

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

Offtop:

Сообщение от hwd Т.е. Windows в ведро и будешь пользоваться Linux?

ага

[SLADE]

Интересно что именно его прога выдает из подшивки в эксель

[hwd]

Сообщение от SLADE Интересно что именно его прога выдает из подшивки в эксель

что мешает скачать и посмотреть?