[Enion]

Добрый день!
Мне нужно командой скопировать в буфер обмена объект. Мне известен его Header.
Вот такая строка (command "_copyclip" (handent "6EFCB") "") это выполняет первый раз успешно, а второй раз копирует но почему то требует что то ещё. При выполнении из командной строки выдаёт надпись <имя объекта:7EFD42D8> и ждёт ещё каких то действий "Enter" или "Esc"... По "Esc" вообще выдаёт надпись "Ошибка: функция отменена". А если эту строку скопировать в LSP файл и запустить его, то со второй попытки окно "Загрузка/выгрузка приложений" после выполнения скрипта не закрывается, а остаётся отрытым. Если этот скрипт вызвать командой SendCommand через API AutoCad то после второй попытки вообще вываливается ошибка выполнения. НО во всех вариантах первое выполнение выполнение проходит отлично. Не пойму как такое может быть.
Я не знаток AutoLisp, подскажите чего к ней не хватает?

[hwd]

Сообщение от Enion Нужна команда AutoCad для копирования объекта (по его Handle) в буфер обмена

А зачем?

SendCommand через API AutoCad

Я так понял - речь о .NET API... Что мешает заюзать средства .NEt Framework для работы с буфером обмена?

[Enion]

Я работаю с API AutoCad из Delphi.
Открываю AutoCad ка OLE объект AcadApplication:=CreateOlEObject('AutoCAD.Application').
А Lisp команду отправляю на выполнение так AcadApplication.ActiveDocument.SendCommand(' (command "_copyclip" (handent "6EFCB") "")')
Разве можно так скопировать объект без использования Lisp команды?

[hwd]

Сообщение от Enion Разве можно так скопировать объект без использования Lisp команды?

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

п.с. Поправил ссылку.

[Enion]

Дело, в том, что скопировать мне нужно не текст, а весь объект. И именно в буфер обмена, а не просто сделать его копию на чертеже.

[hwd]

Сообщение от Enion Дело, в том, что скопировать мне нужно не текст, а весь объект. И именно в буфер обмена, а не просто сделать его копию на чертеже.

А текст-то здесь при чём? Читай внимательней:

the “clipboard ring” functionality that used to be in Microsoft Office (at least I say “used to be” because I haven’t found it in Office 2007), and decided to implement similar functionality in AutoCAD.

[Enion]

Ой! Вы изменили ссылку! Первый раз она вела не туда.
Посмотрел, похоже то, но мне то всё это из под Delphi повторить надо. Но всёравно спасибо, буду пытаться понять что там написано...

[hwd]

Сообщение от Enion Ой! Вы изменили ссылку! Первый раз она вела не туда.

ну так там и приписка имеется об этом:

п.с. Поправил ссылку.

[Александр Ривилис]

Сообщение от Enion но мне то всё это из под Delphi повторить надо

Не получится. Всё что там написано делается внутри процесса AutoCAD, а Delphi работает вне процесса.

[Pastor]

Попробуй так:

Код:

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

AcadApplication.ActiveDocument.SendCommand('_copyclip (handent "6EFCB")  ')

Обрати внимание на два пробела перед закрывающим апострофом '

[Enion]

Pastor,
Сработало! Ты гений!!!!!
Остался последний вопрос: "Как сделать так, чтобы AutoCad при выполнении команды не визуализировался?"
Так-то он находится в фоновом режиме, а при выполнении SendCommand он отображается на экране. Пробовал сразу после этого ставить ему Visible:=False, но он всёравно успевает мелькнуть на экране.

[hwd]

Сообщение от Enion Остался последний вопрос: "Как сделать так, чтобы AutoCad при выполнении команды не визуализировался?" Так-то он находится в фоновом режиме, а при выполнении SendCommand он отображается на экране. Пробовал сразу после этого ставить ему Visible:=False, но он всёравно успевает мелькнуть на экране.

Используй консольную версию, появившуюся в AutoCAD 2013. Запускается мгновенно и без графических интерфейсов. Читай здесь.

[Enion]

Pastor, Не работает... Вернее работает только один раз. Если я второй раз ему передаю другой handent Он возвращает тот же самый объект что и в первый раз
hwd, Программа должна работать со всеми версиями AutoCad начиная аж с 2007

[hwd]

Сообщение от Enion hwd, Программа должна работать со всеми версиями AutoCad начиная аж с 2007

Тогда тебе однозначно нужно заморачиваться с Lisp (ARX и .NET не пойдут, т.к. они зависят от версии AutoCAD). И вряд ли ты избавишься от этой проблемы:

Пробовал сразу после этого ставить ему Visible:=False, но он всёравно успевает мелькнуть на экране

[Кулик Алексей aka kpblc]

Чего-то я перестал понимать ход дискуссии:

Сообщение от Enion нужно командой

В моем понимании команда - это то, что выполняется в контексте документа (тупо передается в ком.строку).
Дальше выясняется, что программа работает вне AutoCAD. Зачем тогда использовать SendCommand? Можно работать с AutoCAD как с COM-объектом и добираться до нужных примитивов, например, через метод HandleToObject объекта документа:

Код:

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

AcadApplication.ActiveDocument.HandleToObject('2296')

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

[gomer]

стесняюсь спросить, а куда вы из буфера потом скопированные объекты собираетесь вставлять? В ворд? В пайнт?

[Enion]

gomer, Кулик Алексей aka kpblc, Задача в конечном итоге следующая:
Из под Delphi заставить AutoCad, не визуализируясь на экране, вытащить из dwg файла все вставленные туда Word документы и сохранить их на диск.

[gomer]

имхо, проще ручками пересохранить

[Enion]

Сообщение от gomer имхо, проще ручками пересохранить

gomer, проще, когда сам и один раз.