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

Тема: Рисование линий, текста средствами VB в Autocade

Люди помогите. В VBA вроде все получается,а вот в VB 5.0 + AutoCAD 2002 - нет.
Запустил AutoCAD и пытаюсь построить линию при помощи следующего кода:
Dim lineObj As AutoCAD.AcadLine
        Dim startPoint(0 To 2) As Double
        Dim endPoint(0 To 2) As Double
        ' Dim acadDoc As AutoCAD.AcadDocument
        ' Define the start and end points for the line
        startPoint(0) = 1.0# : startPoint(1) = 1.0# : startPoint(2) = 0.0#
        endPoint(0) = 5.0# : endPoint(1) = 5.0# : endPoint(2) = 0.0#
lineObj = AcadApplication.AcadModelSpaceClass.AddLine(startPoint, endPoint)
И в итоге получаю сообщение "Object variable or With block variable not set."
Может у кого есть уже готовые пример работы VB+AutoCAD, если не трудно то пришлите rost_admin собака mail.ru

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Рисование линий, текста средствами VB в Autocade

> Rost_admin
Не могу проверить в VB 5.0 (не имею оного), но
сразу вижу ошибку общего плана:
Вместо

lineObj = AcadApplication.AcadModelSpaceClass.AddLine(startPoint, endPoint)

Нужно писать:

Set lineObj = AcadApplication.AcadModelSpaceClass.AddLine(startPoint, endPoint)

поскольку линия есть объект, а все объекты и коллекции
определяются с помощью Set
~'J'~

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Рисование линий, текста средствами VB в Autocade

> Rost_admin
Как в VB 5.0 не знаю, а вот VB.NET приблизительно так:

Public Function AddLine()
    Dim app As AutoCAD.AcadApplication
    ' app нужно инициализировать, т.е. или получить
    ' указатель на активный AutoCAD или запустить новый.
    ' В таком виде функция работать не будет!
    Dim lineObj As AutoCAD.AcadLine
    Dim startPoint(3) As Double
    Dim endPoint(3) As Double
    ' Dim acadDoc As AutoCAD.AcadDocument
    ' Define the start and end points for the line
    startPoint(0) = 1.0# : startPoint(1) = 1.0# : startPoint(2) = 0.0#
    endPoint(0) = 5.0# : endPoint(1) = 5.0# : endPoint(2) = 0.0#
    lineObj = app.ActiveDocument.ModelSpace.AddLine(startPoint, endPoint)
End Function