• Maxim
  • Восстановленный участник
  • На форуме с 25 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Тема: Как из Excel'я кинуть точки в Acad?

Собственно по теме. В Excele я обсчитчваю координаты точек. Там же их удобно и хранить. А как бы кинуть их в Acad?

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: Как из Excel'я кинуть точки в Acad?

Как обычно smile))
Подключаете в макросе Excel объектную библиотеку ACAD, и вызываете соответствующие методы (например, рисуте точки с нужными координатами).
Другой вариант: складываете из макроса Excel координаты точек в файл, а из макроса ACAD читаете этот файл и рисуете точки.
В общем, вариантов имеется множество.

  • Maxim
  • Восстановленный участник
  • На форуме с 25 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как из Excel'я кинуть точки в Acad?

где-то это уже обсуждалось на форуме?

  • Maxim
  • Восстановленный участник
  • На форуме с 25 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как из Excel'я кинуть точки в Acad?

А какие ссылки надо подключить в Excel'е, чтобы создавать точки в Акаде? Пытаюсь создать точку так:
dim pt as object, coor (3) as double
coor(0)=100
coor(1)=100
set pt=acad.activedocument.modelspace.addpoint(pt)
ничего не выходит.

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: Как из Excel'я кинуть точки в Acad?

Dim pt As Object, coor(0 To 2) As Double
    Dim acad As AutoCAD.AcadApplication
    Set acad = GetObject(, "Autocad.application")
    coor(0) = 100#
    coor(1) = 100#
    coor(2) = 100#
    Set pt = acad.ActiveDocument.ModelSpace.AddPoint(coor)
В Excel: Tools -> Reference... и поставить галочку на AutoCAD 200? Type Library

  • Sigma
  • Восстановленный участник
  • На форуме с 1 июня 2004г.
  • Сообщений: 62
  • Спасибо: 0

Re: Как из Excel'я кинуть точки в Acad?

В догонку:
GetObject() работает если только AutoCAD уже запущен. Если же нет, то - CreateObject()

  • Maxim
  • Восстановленный участник
  • На форуме с 25 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как из Excel'я кинуть точки в Acad?

Не получается. Акад висит в процессах, но невидим.

  • Maxim
  • Восстановленный участник
  • На форуме с 25 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как из Excel'я кинуть точки в Acad?

ну, вот, он запускается, рисует точку. Как изменить стиль точки?