Лекция 15. Объектная модель САПР AutoCAD и COM автоматизация
Предок всех графических объектов — AcadEntity, его родитель — AcadObject.
В объектной модели AutoCAD при задании координат точек любых примитивов обязательно указываются все три координаты, даже если чертится двумерный объект. Координаты задаются вариантным массивом (где 0 и 2 — это индексы его нижнего и верхнего элементов): Var Pt: OleVariant; Begin Pt: = VarArrayCreate([0, 2], varDouble); ... end; Соответственно Pt[0] — это X; Pt[1] — это Y; Pt[2] — Z. Для упрощения задания координат точки пригодится такая функция: function AcadPoint(X, Y: Double; Z: Double = 0): OleVariant; Begin Result: = VarArrayCreate([0, 2], varDouble); Result[0]: = X; Result[1]: = Y; Result[2]: = Z; end; Графические объекты создаются в пространстве модели, листа или в блоке. Чтобы узнать какое из пространств в данный момент активно, необходимо воспользоваться свойством ActiveSpace текущего документа. Следующая функция возвращает текущее пространство:
function ActiveSpace: OleVariant; Begin
|
