[blckjck]

Здрасьти! помогите советом. Работаю над экспортом в автокад с из программы на Delphi + OLE. Научился экспортировать wmf & dwg. Но этого мало, надо загрузить в аКад bmp или jpg. Как это сделать? всю голову сломал!

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

Наверное, не экспорт, а импорт? Вроде был метод insertimage...

[Profan]

Загрузка файлов в AutoCAD называется импорт, а не экспорт. Посмотри падающее меню "Insert" ("Вставка"). Т.е. посмотри сначала, как это делается вручную.

[Олег (jr.)]

Сообщение от blckjck Работаю над экспортом в автокад с из программы на Delphi + OLE.

Гугли
http://www.caduser.ru/forum/index.ph...D=49&TID=37489
http://www.caddzone.com/RasterImageSample.cs
http://through-the-interface.typepad...ing_structure/

[blckjck]

Сообщение от Кулик Алексей aka kpblc Наверное, не экспорт, а импорт? Вроде был метод insertimage...

экспорт из проги в автокад, импорт в автокад из проги... имхо одно и то же.
нет такого метода в Autocad_tlb.pas

Олег (jr.), пасиб, попробую переделать эти сишные примеры.

UPD:
где это всё взять? у меня в распоряжении Autocad_tlb.pas, в нем ничего подобного нет..
using Autodesk.AutoCAD.Runtime ;
using Autodesk.AutoCAD.ApplicationServices ;
using Autodesk.AutoCAD.DatabaseServices ;
using Autodesk.AutoCAD.EditorInput ;
using Autodesk.AutoCAD.Windows ;
using Autodesk.AutoCAD.Geometry ;

[Олег (jr.)]

Сообщение от blckjck экспорт из проги в автокад, импорт в автокад из проги... имхо одно и то же. нет такого метода в Autocad_tlb.pas Олег (jr.), пасиб, попробую переделать эти сишные примеры. UPD: где это всё взять? у меня в распоряжении Autocad_tlb.pas, в нем ничего подобного нет.. using Autodesk.AutoCAD.Runtime ; using Autodesk.AutoCAD.ApplicationServices ; using Autodesk.AutoCAD.DatabaseServices ; using Autodesk.AutoCAD.EditorInput ; using Autodesk.AutoCAD.Windows ; using Autodesk.AutoCAD.Geometry ;

я в дельфях-то ничего не знаю а в си vb.net импортирую библиотеки из
папки Program Files-->AutoCAD 200X:
acdbmgd.dll и acmgd.dll и устанавливаю свойства Copy Local=False

[blckjck]

ага, нашел про это. А как там насчет компиляции приложений? Вот такое нашел:
http://www.caduser.ru/forum/index.ph...#message221624

[blckjck]

ага, нашел где их брать. А как там с компиляцией приложения? Вот такое нашел:
http://www.caduser.ru/forum/index.ph...#message221624

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

Олег (jr.), Это возможно только в .NET-сборке, загруженной в AutoCAD. Как я понял blckjck пишет на дельфи приложение (exe-файл), которое использует AutoCAD как COM-сервер (ActiveX). Это, как говорят в Одессе, две большие разницы.
Соответственно автору вопроса следует воспользоватся методом AddRaster. Пример на VBA из справки:

Код:

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

Sub Ch10_AttachingARaster()
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotationAngle As Double
    Dim imageName As String
    Dim rasterObj As AcadRasterImage
    imageName = "C:/Program Files/AutoCAD Directory/sample/watch.jpg'
insertionPoint(0) = 5
insertionPoint(1) = 5
insertionPoint(2) = 0
scalefactor = 2
rotationAngle = 0

  On Error GoTo ERRORHANDLER
   ' Attach the raster image in model space
  Set rasterObj = ThisDrawing.ModelSpace.AddRaster _
        (imageName, insertionPoint, _
               scalefactor, rotationAngle)
   ZoomAll
   Exit Sub
ERRORHANDLER:
    MsgBox Err.Description
End Sub

[blckjck]

Александр Ривилис, в точку!! Благодарю за отличную подсказку!

[Олег (jr.)]

Сообщение от Александр Ривилис Олег (jr.), Это возможно только в .NET-сборке, загруженной в AutoCAD. Как я понял blckjck пишет на дельфи приложение (exe-файл), которое использует AutoCAD как COM-сервер (ActiveX). Это, как говорят в Одессе, две большие разницы. Соответственно автору вопроса следует воспользоватся методом AddRaster. Пример на VBA из справки: Код: [Выделить все] Sub Ch10_AttachingARaster() Dim insertionPoint(0 To 2) As Double Dim scalefactor As Double Dim rotationAngle As Double Dim imageName As String Dim rasterObj As AcadRasterImage imageName = "C:/Program Files/AutoCAD Directory/sample/watch.jpg' insertionPoint(0) = 5 insertionPoint(1) = 5 insertionPoint(2) = 0 scalefactor = 2 rotationAngle = 0 On Error GoTo ERRORHANDLER ' Attach the raster image in model space Set rasterObj = ThisDrawing.ModelSpace.AddRaster _ (imageName, insertionPoint, _ scalefactor, rotationAngle) ZoomAll Exit Sub ERRORHANDLER: MsgBox Err.Description End Sub

Спасибо я это знаю (не скажу от кого