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

Тема: Ошибка при попытке присвоить переменной типа IAcadLine

Здравствуйте, подскажите, please, в чем моя ошибка? Я объявляю переменную Line типа IAcadLine. Далее код:
Line:=ModelSpace.AddLine(StartPoint1,EndPoint1); Выдается сообщение "Несовпадение типов Variant и IAcadLine".
Заранее спасибо!

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

Re: Ошибка при попытке присвоить переменной типа IAcadLine

Желает явного приведения типов, вот и ругается
попробуй вот так

Line := ModelSpace.AddLine(StartPoint1,EndPoint1) as IAcadLine;

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

Re: Ошибка при попытке присвоить переменной типа IAcadLine

A как получил modelspace??
Modelspace:=AcadApp.ActiveDocument.ModelSpace??

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

Re: Ошибка при попытке присвоить переменной типа IAcadLine

Не знаю по теме ли отвечаю, но сам столкнулся с чем то похожим и нарыл в ЧАВО следующее :
Все зависит от задачи. Но простейший вариант такой. Экспортируем acad.tlb и начинаем переводить примеры из руководства с бейсика на паскаль. Никаких особых хитростей не требуется.
Только следует помнить что если в VBA пишется
Dim centerPoint(0 To 2) As Double
На паскаль переводится
Var Center:OleVariant;
Center:=VarArrayCreate([0,2],varDouble);
И в нужных местах типы приводятся примерно так
Var Obj:IAcadObject;
Var Color:Integer;
Color:=(Obj as IAcadEntity).Color;
Автору - большое спасибо и мои извинение (не сохранил его имени)
примеров из бейсика - масса в хелпе акада