[TwoZero]

Здравствуйте,

Есть проблема с созданием диалоговых окон под AutoCAD,
стандартный язык для создания диалогов DCL негодится так как он очень скупой и там нет компонента TreeView, создание приложения на VBA тоже негодится так как программу пишу на ЛИСПЕ (ЛИСП РУЛИТ),
создание диалоговых окон в VB6 как ActiveX dll тоже негодится так как в дальнейшем требуется регистрировать библиотеки и если подключать дополнительные компоненты в VB6 то их придется таскать с сабой (я конечно понимаю что есть программы которые могут все запихать в один файл но такое мазуто мне ненадо), можно написать приложение на Delphi но оно будет как бы отдельное (можно конечно прописать макрос в акаде на запуск этого приложения но мне это неочень подходит так как хотелось бы чтоб все было интегрировано в акад).

Собственно проблема заключается в создании самих диалогов для AutoCAD, есть еще ObjectDCL но он платный и он перестает работать после триала.

Мож кто подскажет есть ли еще какиенить проги для создания диалогов под акад (нужен компонент TreeView).

[alex8888]

hwd, спасибо за код.
Один вопросик, возможно из-за этого ты и применяешь полную версию визуал-студии.
Смотри по прилагаемому рисунку из Microsoft Visual Studio 2010 экспресс:

Единственное, что от тебя потребуется - указать в настройках проекта путь к твоему файлу acad.exe (см. скрин ниже). Надеюсь с этим ты справишься

Получается, что с этим то как раз и не справился

[hwd]

Сообщение от alex8888 Получается, что с этим то как раз и не справился

Похоже на то... попробуй подключиться к уже запущенному процессу (acad.exe) выбрав в меню такой пункт (если это присутствует в Express версии):



В противном случае, ты наверное сможешь только писать код, компилировать его, но не отлаживать (для плагинов AutoCAD). Т.е. ты можешь скомпилировать код, затем вручную запустить AutoCAD и командой NETLOAD загрузить то, что ты скомпилировал. Например в подкаталоге DEBUG уже имеется версия, которую ты можешь так загрузить и поюзать.

Кстати, вспомнил: у меня в блоге Boxa оставил сообщение о том, что он без проблем пишет плагины в Express версии:

Сообщение от Boxa Проблема только в отладке, но и это решается парой строчек в .vbproj файле проекта

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

UPD
я тут подумал как решить твою проблему... Открой в блокноте файл WpfThroughAutoLISP.csproj.user и в нём замени строку C:\Program Files\Autodesk\AutoCAD 2011\acad.exe на свой вариант. Затем попробуй запустить код на исполнение в отладчике...

[alex8888]

В режиме отладки не работает. По твоему совету заменил строку,что указал. При запуске отладчика запускается новый экземпляр Автокада (один уже был запущен до этого, пробовал и без запущенного - та же басня), с кучей ошибок:

Die Anwendung unterstьtzt kein JIT-Debuggen.
Weitere Informationen finden Sie am Ende dieser Meldung.

************** Ausnahmetext **************
System.Windows.Markup.XamlParseException: Ein Aufrufziel hat einen Ausnahmefehler verursacht. Fehler in Objekt "System.Windows.Data.Binding" in Markupdatei "AcWindows;component/AppFrame/acAppFrame.xaml". ---> System.Reflection.TargetInvocationException: Ein Aufrufziel hat einen Ausnahmefehler verursacht. ---> System.InvalidProgramException: Die Common Language Runtime hat ein ungьltiges Programm gefunden.
bei Autodesk.AutoCAD.ApplicationServices.Application.get_UIBindings()
--- Ende der internen Ausnahmestapelьberwachung ---
bei System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
bei System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)
bei System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
bei System.Reflection.RuntimePropertyInfo.GetValue(Object obj, Object[] index)
bei System.Windows.Markup.StaticExtension.ProvideValue(IServiceProvider serviceProvider)
bei System.Windows.Markup.BamlRecordReader.GetStaticExtensionValue(Int16 memberId)
bei System.Windows.Markup.BamlRecordReader.GetExtensionValue(IOptimizedMarkupExtension optimizedMarkupExtensionRecord, String propertyName)
bei System.Windows.Markup.BamlRecordReader.ReadPropertyWithExtensionRecord(BamlPropertyWithExtensionRecord bamlPropertyRecord)
bei System.Windows.Markup.BamlRecordReader.ReadRecord(BamlRecord bamlRecord)
--- Ende der internen Ausnahmestapelьberwachung ---
bei System.Windows.Markup.XamlParseException.ThrowException(String message, Exception innerException, Int32 lineNumber, Int32 linePosition, Uri baseUri, XamlObjectIds currentXamlObjectIds, XamlObjectIds contextXamlObjectIds, Type objectType)
bei System.Windows.Markup.XamlParseException.ThrowException(ParserContext parserContext, Int32 lineNumber, Int32 linePosition, String message, Exception innerException)
bei System.Windows.Markup.BamlRecordReader.ReadRecord(BamlRecord bamlRecord)
bei System.Windows.Markup.BamlRecordReader.ReadElement(Int64 startPosition, XamlObjectIds contextXamlObjectIds, Object dictionaryKey)
bei System.Windows.ResourceDictionary.CreateObject(Int32 valuePosition, Object key)
bei System.Windows.ResourceDictionary.RealizeDeferContent(Object key, Object& value, Boolean& canCache)
bei System.Windows.ResourceDictionary.GetValueWithoutLock(Object key, Boolean& canCache)
bei System.Windows.ResourceDictionary.GetValue(Object key, Boolean& canCache)
bei System.Windows.ResourceDictionary.GetValueWithoutLock(Object key, Boolean& canCache)
bei System.Windows.ResourceDictionary.GetValue(Object key, Boolean& canCache)
bei System.Windows.ResourceDictionary.get_Item(Object key)
bei Autodesk.AutoCAD.Internal.Windows.RibbonContent.get_NonZeroDocQAT()
bei Autodesk.AutoCAD.Internal.Windows.RibbonContent.GetNonZeroDocumentQATControl(String sId)
bei Autodesk.AutoCAD.Internal.Windows.QuickAccessToolbarService.LoadQuickAccessToolbarContent(MenuGroupData menuGroupData, Dictionary`2 workspaces, Dictionary`2 quickAccessToolbarItems)
bei Autodesk.AutoCAD.Internal.Windows.QuickAccessToolbarService.LoadContent()
bei Autodesk.AutoCAD.Internal.Windows.QuickAccessToolbarService.RestoreItems()
bei Autodesk.AutoCAD.Internal.Windows.QuickAccessToolbarService.Initialize()
bei Autodesk.AutoCAD.Internal.Windows.QuickAccessToolbarService.LoadQuickAccessToolbar()
bei Autodesk.AutoCAD.Internal.Windows.QuickAccessToolbarService.OnApplicationIdle(Object sender, EventArgs e)
bei System.EventHandler.Invoke(Object sender, EventArgs e)
bei Autodesk.AutoCAD.ApplicationServices.Application.raise_Idle(Object value0, EventArgs value1)
bei Autodesk.AutoCAD.ApplicationServices.Application.OnIdle()


************** Geladene Assemblys **************
mscorlib
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.5466 (Win7SP1GDR.050727-5400).
CodeBase: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll.
----------------------------------------
acdbmgd
Assembly-Version: 18.1.0.0.
Win32-Version: 18.1.115.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AcdbMgd.DLL.
----------------------------------------
mscorlib.resources
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.5466 (Win7SP1GDR.050727-5400).
CodeBase: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll.
----------------------------------------
System
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.5466 (Win7SP1GDR.050727-5400).
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll.
----------------------------------------
msvcm90
Assembly-Version: 9.0.30729.6161.
Win32-Version: 9.00.30729.6161.
CodeBase: file:///C:/Windows/WinSxS/amd64_microsoft.vc90.crt_1fc8b3b9a1e18e3b_9.0.30729.6161_none_08e61857a83bc251/msvcm90.dll.
----------------------------------------
System.Xml
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.5420 (Win7SP1.050727-5400).
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll.
----------------------------------------
System.Drawing
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.5462 (Win7SP1GDR.050727-5400).
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll.
----------------------------------------
PresentationFramework
Assembly-Version: 3.0.0.0.
Win32-Version: 3.0.6920.5448 built by: Win7SP1GDR.
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/PresentationFramework/3.0.0.0__31bf3856ad364e35/PresentationFramework.dll.
----------------------------------------
WindowsBase
Assembly-Version: 3.0.0.0.
Win32-Version: 3.0.6920.5448 built by: Win7SP1GDR.
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/WindowsBase/3.0.0.0__31bf3856ad364e35/WindowsBase.dll.
----------------------------------------
PresentationCore
Assembly-Version: 3.0.0.0.
Win32-Version: 3.0.6920.5448 built by: Win7SP1GDR.
CodeBase: file:///C:/Windows/assembly/GAC_64/PresentationCore/3.0.0.0__31bf3856ad364e35/PresentationCore.dll.
----------------------------------------
System.Configuration
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.5420 (Win7SP1.050727-5400).
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll.
----------------------------------------
AdApplicationFrame
Assembly-Version: 0.0.0.0.
Win32-Version: 3.0.269.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AdApplicationFrame.DLL.
----------------------------------------
AdWindows
Assembly-Version: 3.0.270.0.
Win32-Version: 3.0.270.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AdWindows.DLL.
----------------------------------------
AdWindows.resources
Assembly-Version: 3.0.263.0.
Win32-Version: 18.1.49.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/de-DE/AdWindows.resources.DLL.
----------------------------------------
PresentationFramework.Aero
Assembly-Version: 3.0.0.0.
Win32-Version: 3.0.6920.4902 built by: NetFXw7.
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/PresentationFramework.Aero/3.0.0.0__31bf3856ad364e35/PresentationFramework.Aero.dll.
----------------------------------------
acmgd
Assembly-Version: 18.1.0.0.
Win32-Version: 18.1.208.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/acmgd.DLL.
----------------------------------------
System.Core
Assembly-Version: 3.5.0.0.
Win32-Version: 3.5.30729.5420 built by: Win7SP1.
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Core/3.5.0.0__b77a5c561934e089/System.Core.dll.
----------------------------------------
AcWindows
Assembly-Version: 18.1.0.0.
Win32-Version: 18.1.208.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AcWindows.DLL.
----------------------------------------
AcWindows.resources
Assembly-Version: 18.1.0.0.
Win32-Version: 18.1.49.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/de-DE/AcWindows.resources.DLL.
----------------------------------------
acmgd
Assembly-Version: 18.1.0.0.
Win32-Version: 18.1.49.0.0.
CodeBase: file:///D:/Meine%20Daten/AT-CAD/C%23/test/WpfThroughAutoLISP%20for%20Acad%202011/bin/Debug/acmgd.dll.
----------------------------------------
AcCui
Assembly-Version: 18.1.0.0.
Win32-Version: 18.1.115.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AcCui.DLL.[/SPOILER]
----------------------------------------
AmMgdInteropReverse
Assembly-Version: 15.0.0.0.
Win32-Version: 15.0.205.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AmMgdInteropReverse.DLL.
----------------------------------------
AmRibbon
Assembly-Version: 14.0.0.0.
Win32-Version: 15.0.205.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AmRibbon.DLL.
----------------------------------------
AmWindows
Assembly-Version: 14.0.0.0.
Win32-Version: 15.0.46.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AmWindows.DLL.
----------------------------------------
AmPartAuthUI
Assembly-Version: 14.0.0.0.
Win32-Version: 15.0.46.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AmPartAuthUI.DLL.
----------------------------------------
System.Windows.Forms
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.5460 (Win7SP1GDR.050727-5400).
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll.
----------------------------------------
AmMgdInterop
Assembly-Version: 15.0.0.0.
Win32-Version: 15.0.46.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AmMgdInterop.DLL.
----------------------------------------
AcMr
Assembly-Version: 18.1.0.0.
Win32-Version: 18.1.49.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/AcMr.DLL.
----------------------------------------
System.Runtime.Serialization
Assembly-Version: 3.0.0.0.
Win32-Version: 3.0.4506.5420 (Win7SP1.030729-5400).
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Runtime.Serialization/3.0.0.0__b77a5c561934e089/System.Runtime.Serialization.dll.
----------------------------------------
AcadLispFunctions
Assembly-Version: 1.0.0.0.
Win32-Version: 1.0.0.0.
CodeBase: file:///D:/Meine%20Daten/AT-CAD/NET/AcadLispFunctions/AcadLispFunctions/bin/Release/AcadLispFunctions.dll.
----------------------------------------
AmWindows.resources
Assembly-Version: 14.0.0.0.
Win32-Version: 15.0.46.0.0.
CodeBase: file:///C:/Program%20Files/Autodesk/ACADM%202011/de-DE/AmWindows.resources.DLL.
----------------------------------------
PresentationFramework.resources
Assembly-Version: 3.0.0.0.
Win32-Version: 3.0.6920.4902 built by: NetFXw7.
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/PresentationFramework.resources/3.0.0.0_de_31bf3856ad364e35/PresentationFramework.resources.dll.
----------------------------------------
System.Windows.Forms.resources
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.5420 (Win7SP1.050727-5400).
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_de_b77a5c561934e089/System.Windows.Forms.resources.dll.
----------------------------------------

************** JIT-Debuggen **************
Die Anwendung unterstьtzt kein JIT-Debuggen fьr Windows Forms.
Weitere Informationen erhalten Sie vom Autor
der Anwendung.

. ---

Но в режиме _netload и тд работает нормально, т.е. проблема заключается в работе с отладкой в экспресс версии

[hwd]

Сообщение от alex8888 Но в режиме _netload и тд работает нормально, т.е. проблема заключается в работе с отладкой в экспресс версии

возможно. мне сложно лечить по фотографии, да и времени для этого нет

[alex8888]

Сообщение от hwd возможно. мне сложно лечить по фотографии, да и времени для этого нет

Жаль, конечно, что ты не экстрасенс , но и того, что ты дал уже достаточно на первое время

Буду дома полную версию насиловать, правда надо будет автокад еще установить для опытов.

В идеале хотелось бы видеть так:
1. из лиспа или просто путем запуска программы без автокада вызывать окно для выбора из справочника или заполнения формы своими данными.
2. при нажатии ОК (упрощенно излагаю) сформированный список передается в лисп или в файл (надо поразмыслить что лучше).
Тогда получится, что окна могут быть и не модальными, что достаточно и экспресс-студии, а о DCL можно будет забыть как о страшном сне.

[Дима_]

Сообщение от alex8888 В идеале хотелось бы видеть так: ...

И в чем проблемма реализации?

[hwd]

Сообщение от alex8888 Тогда получится, что окна могут быть и не модальными

они и так могут быть не модальными, если тебе нужен немодальный вариант вызова... Для этого, в программном коде, вместо метода ShowModalWindow нужно вызывать метод ShowModelessWindow.

В идеале хотелось бы видеть так: 1. из лиспа или просто путем запуска программы без автокада вызывать окно для выбора из справочника или заполнения формы своими данными. 2. при нажатии ОК (упрощенно излагаю) сформированный список передается в лисп или в файл (надо поразмыслить что лучше). Тогда получится, что окна могут быть и не модальными, что достаточно и экспресс-студии, а о DCL можно будет забыть как о страшном сне.

это делается элементарно.

[alex8888]

Сообщение от Дима_ И в чем проблемма реализации?

Пока только в организации процесса:

1. Проблемы экспресс-студии и отладки
2. Не до конца ясен процесс доступа к программам из Автокада (зависит от п.1)
3. Плюс путаница из версий фреймворков и автокадов.
4. Основной: процесс обучения идет не так быстро, как хотелось бы.

А так сама идея понятна.

это делается элементарно

Ну, дойдем и до этого . С лиспом то вроде бы все в порядке (насколько он мне нужен в работе). Научили

[hwd]

Сообщение от alex8888 1. Проблемы экспресс-студии и отладки

Это коммерческая политика компании Microsoft.

Сообщение от alex8888 2. Не до конца ясен процесс доступа к программам из Автокада (зависит от п.1)

Этой фразы я не понял.

Сообщение от alex8888 3. Плюс путаница из версий фреймворков и автокадов.

имхо, никакой путаницы нет: в AutoCAD 2009-2011 можно юзать 3.5, в 2012 - точно не помню, 3.5 или 4.0 (на рабочей машине у меня нет 2012, поэтому глянуть не могу), в 2013-м используется 4.0.

UPD
По крайней мере два мембера (alex8888 и Disney) справились с обозначенными в моём блоге примерами (возможно даже дочитали до конца)... Ну, значит какой-то толк от той заметки всё же имеется...

[alex8888]

Этой фразы я не понял.

А чего тут непонятного? Ну не укладывается у меня пока в голове сам процесс. Все время методом научного тыка получается работать. А хотелось бы просто знать, что за чем и почему. Для этого требуется "немножко время"

Это коммерческая политика компании Microsoft

Это процесс вышибания "бабла" и их тоже можно понять

возможно даже дочитали до конца

Дочитали, дочитали, не сомневайся
Вот только что поняли

[Дима_]

Я не использую отладку в классическом понимании этого слова (скажем так трассировку) там где есть REPL - за ненадобностью (поэтому я и использую в .Net F#). У меня такая-же "честная бесплатная" студия, с настроенной компиляцией во все используемые версии .Net.

Ну, значит какой-то толк от той заметки всё же имеется...

Я хоть и не запускал - но толк 100% в ней есть - у меня расписать хоть, что-то на общее обозрение руки так не разу и не дошли, хотя чужое читаю с удовольствием - даже если и знаю "что к чему" всегда находятся интересные "обороты" которые стоит взять на заметку.

[gomer]

Сообщение от alex8888 проблема заключается в работе с отладкой в экспресс версии

Обожаю вс за бред, который она несет, когда случайно "буквочку" пропустил

[alex8888]

Сообщение от gomer Обожаю вс за бред, который она несет, когда случайно "буквочку" пропустил

Offtop:
Не понял, что за наезд?

[hwd]

Сообщение от alex8888 Не понял, что за наезд?

Не обращай внимание, это всего лишь "большой специалист" в области .net и MSVS.

[gomer]

Сообщение от alex8888 Не понял

вот-вот такое состояние, когда видишь результат компиляции программы с пустяковой очепяткой в коде. В общем, переходите полностью на сторону сишарпа, у них вкусные печеньки.
hwd, обожаю тех, кто не может разобраться в чужих логах, но абсолютно уверен в чьей-то компетенции

[hwd]

Сообщение от gomer обожаю тех

ты обожаешь словоблудие

[Boxa]

Оставлю это здесь:
После создания и сохранения проекта в VS2010Ex в файле вида tmp.vbproj будет секция :

Код:

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

...........
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
    <DefineDebug>true</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\Debug\</OutputPath>
    <DocumentationFile>tmp.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
 </PropertyGroup>
...........

Замените ее на :

Код:

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

  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
     <Optimize>false</Optimize>
     <WarningLevel>4</WarningLevel>
    <DefineDebug>true</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\Debug\</OutputPath>
     <StartAction>Program</StartAction>
     <StartProgram>C:\Program Files\Autodesk\AutoCAD 2012 - Russian\acad.exe</StartProgram>
    <DocumentationFile>tmp.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
  </PropertyGroup>

<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> - набор цифр будет свой

не забудьте правильно прописать путь до acad.exe

в меню Сервис -> Параметры -> постаьте галку "расширенные параметры" появится меню "Построение"

Все готово, можно работать.


в 2012 - официально 4.0 (хотя по недосмотру пару раз запускал и с 3.5 да еще и с библиотеками на 2011 версию и ничего, проглатывал и не морщился...)

В Ex версии нет "attach to process"

[Disney]

Сообщение от Boxa В Ex версии нет "attach to process"

Как же нет?

[Boxa]

Сообщение от Disney Как же нет?

Сообщение 81, на картинке 2010 версия, а там вот так:

[hwd]

т.е. имеется стимул переходить на 2012-й Express с 2010-го.