• На форуме с 11 декабря 2007г.
  • Сообщений: 8
  • Спасибо: 0

Тема: Как вставить объект OLE

Подскажите, можно ли средствами VBA вставить в документ Автокада объект OLE (не через копирование). В офисе для этого есть команда AddOLEObject. Вот пример кода для Word вставки диаграммы:

Set oDoc = ActiveDocument
 Set oShape = oDoc.Bookmarks("\endofdoc").Range.InlineShapes.AddOLEObject( _
        ClassType:="MSGraph.Chart.8", FileName _
        :="", LinkToFile:=False, DisplayAsIcon:=False)
    Set oChart = oShape.OLEFormat.Object
    oChart.charttype = 4 'xlLine = 4
    oChart.Application.Update
    oChart.Application.Quit

Есть ли подобная команда для Автокада?

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Как вставить объект OLE

Через копирование это как?

Может попробовать через буфер обмена. В акаде есть объект AcadOLE. Может его и удастся получить.

  • На форуме с 11 декабря 2007г.
  • Сообщений: 8
  • Спасибо: 0

Re: Как вставить объект OLE

Вильдар пишет:

Через копирование это как?



Может попробовать через буфер обмена. В акаде есть объект AcadOLE. Может его и удастся получить.

Да, имелось ввиду не используя буфер обмена.

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: Как вставить объект OLE

См. справку:
  OLE object 

An AutoCAD OLE object.

VBA class name:
AcadOle

Create using:
Not applicable

Access via:
Not applicable
Т.е. другого способа нет (Вставка , специальная вставка, вставить связь)