Атрибут макроэлементу

[psiv]

Не получается назначить макроэлементу атрибут...
Использую процедуру CreatAttrs из учебного курса "Инструментальные средства разработки прикладных САПР КОМПАС-МАСТЕР 5" (Богуславский Ан.А., кафедра теор. физики КГПИ, Работа №8).
Описал ее в своем модуле uATX в строках 250...350, вызываю в строке 440.
В своем макроэлементе Шайба (при раскоментированном Действии 3 (строки 337...341)) эта процедура создает атрибут, а в моем - нет.
Что не так?

[Slaviation]

Посмотрите на объявление в строке 263:
MacroUGO: Reference;
И далее, в строке 346 вы пытаетесь создать атрибут для MacroUGO, который нигде в теле процедуры CreatAttrs не определен.
Может в этом дело?

[psiv]

Может быть, но я не знаю как это сделать, мой уровень знаний в программировании - начальный.
В исходном коде этой процедуры действительно макроэлемент Шайба создается внутри ее, у меня - в другой. Как мне перенести это определение внутрь процедуры CreatAttrs? Причем, это мне придется делать многократно для множества атрибутов.

[Slaviation]

строку 263 закомментируйте.
строку 251 поправьте так: procedure CreatAttrs(iDoc: ksDocument2D; MacroUGO: Reference);
строку 440 так: CreatAttrs(iDoc, MacroUGO);

[psiv]

Большое спасибо! Атрибут создается.

[psiv]

Научите, пожалуйста, начинающего выносить процедуру в другой модуль.
В Unit1 в строках 50...54 описана procedure Kontur, вызывается в этом же модуле в строках 83 и 90, работает нормально.
Описал ее в модуле Unit2, в первом модуле закоментировал - не работает, хотя ShowMessage('Test') показывается.

[Sabahs]

Зачем эти переменные, на картинке?
Может так объявить процедуру - procedure Kontur(iDoc:ksDocument2D);
PS. Почитайте в книге про переменные.

[psiv]

Спасибо, заработало!