| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > как рисовать в AutoCAd при невидимом окне AutoCAD

как рисовать в AutoCAd при невидимом окне AutoCAD

Ответ
Поиск в этой теме
Непрочитано 18.09.2012, 15:49 #1
как рисовать в AutoCAd при невидимом окне AutoCAD
SNIIP
 
Регистрация: 04.05.2010
Сообщений: 338

Код:
[Выделить все]
 end;
  try
  Acad := GetActiveOleObject('AutoCAD.Application');
  except
  Acad := CreateOleObject('AutoCAD.Application');
  end;

  ModelSpace := Acad.ActiveDocument.ModelSpace;
  Acad.ActiveDocument.SendCommand('(load " '+ put1+'3D_METAL' +'")' + #13);
  Acad.Visible := false;
  Acad.ActiveDocument.SendCommand('3DMETAL' + #13 + put + #13);
  Acad.Visible := true;
Есть функция на лиспе 3Dmetal. Выполняется при активном окошке секунд 15. Думал что бы рисовать при невидимом автокаде, скорее всего получится быстрее, сендкоманд активирует окно и автокад все рисует в видимом режиме... опять получается долго...
Просмотров: 4400
 
Непрочитано 18.09.2012, 17:13
#2
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


AcCoreConsole.exe
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
 
Автор темы   Непрочитано 18.09.2012, 17:34
#3
SNIIP


 
Регистрация: 04.05.2010
Сообщений: 338


не умею с ней работать да и говорят какая то она глючная и косячная.. а из делфи других враинтов нет?
SNIIP вне форума  
 
Непрочитано 18.09.2012, 17:51
#4
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Цитата:
Сообщение от SNIIP Посмотреть сообщение
не умею с ней работать
Тот же принцип, что и у обычной консоли AutoCAD. С ней-то хоть работать умеешь?
Цитата:
Сообщение от SNIIP Посмотреть сообщение
говорят какая то она глючная и косячная..
если не пытаться выводить в консоль символы с локализацией, отличной от enu, то работает, причём существенно быстрее, чем GUI-версия.
Цитата:
Сообщение от SNIIP Посмотреть сообщение
Код:
[Выделить все]
Acad.Visible := false;
Acad.ActiveDocument.SendCommand('3DMETAL' + #13 + put + #13);
Acad.Visible := true;
такой подход тебе не поможет, т.к. даже если окно не будет отображаться, операции особо не ускорятся.
Цитата:
Сообщение от SNIIP Посмотреть сообщение
а из делфи других враинтов нет?
вот из делфи можешь "глючную и косячную" и запускать, создавая отдельный процесс.
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
 
Автор темы   Непрочитано 18.09.2012, 17:57
#5
SNIIP


 
Регистрация: 04.05.2010
Сообщений: 338


Цитата:
вот из делфи можешь "глючную и косячную" и запускать, создавая отдельный процесс.
можно пару тройку операторов накидать?
SNIIP вне форума  
 
Непрочитано 18.09.2012, 17:59
#6
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Цитата:
Сообщение от SNIIP Посмотреть сообщение
можно пару тройку операторов накидать?
Могу "накидать" пару-тройку операторов на .net, но вряд ли в делфи это тебе чем-то поможет.

UPD
testLisp.lsp:
Код:
[Выделить все]
 
(defun c:hwd()
	(princ "Hello WorlD")
	(princ)
)
testScript.scr (после "hwd" - пробел):
Код:
[Выделить все]
(load "c:\\testDir\\testLisp.lsp")
hwd
Закинь эти файлы в каталог "c:\testDir".
Теперь запускай cmd.exe и в нём вбивай это:
Код:
[Выделить все]
"C:\Program Files\Autodesk\AutoCAD 2013\AcCoreConsole.exe" /L en-US /s "c:\testDir\testScript.scr"
По аналогии, подсовываешь свой лисп, тот который
Цитата:
Есть функция на лиспе 3Dmetal.
В скрипте указываешь его имя вместо testLisp.lsp, а так же имя твоей команды (вместо hwd), которая в этом лиспе должна быть запущена.

P.S. Только помни - ровно в полночь карета превратится не должно быть локализованных символов и спец. символов вроде \t, \n и т.д.

Миниатюры
Нажмите на изображение для увеличения
Название: 18.09.png
Просмотров: 364
Размер:	9.3 Кб
ID:	87188  
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:

Последний раз редактировалось hwd, 18.09.2012 в 18:51.
hwd вне форума  
 
Непрочитано 18.09.2012, 21:09
#7
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от SNIIP Посмотреть сообщение
Есть функция на лиспе 3Dmetal. Выполняется при активном окошке секунд 15. Думал что бы рисовать при невидимом автокаде, скорее всего получится быстрее
А где сама функция 3Dmetal?

Цитата:
Сообщение от hwd Посмотреть сообщение
ровно в полночь карета превратится
в раздолбанный бентли с замазанной гудроном лобовухой
gomer вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > как рисовать в AutoCAd при невидимом окне AutoCAD

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
запуск программы из AutoCADа kminas Программирование 19 15.06.2012 13:42
AUTOCAD 2006 Aragorn AutoCAD 14 01.04.2005 00:55
Autocad+Visual Basic Переменная среда Kokep Программирование 6 08.11.2004 12:29
Что нового в AutoCAD 2005 ilka_t AutoCAD 40 19.05.2004 16:48
AutoCAD в одном окне Apelsinov AutoCAD 13 19.12.2003 09:32