> CONTSEEK関数で円を指定した場合、
> CONTINFO関数で各パラメータは取得出来るのですが、
> 返り値のID番号がその前に選択した要素になってしまうのは仕様でしょうか？
基本的に円は輪郭構成要素になり得ないので、IDは不定です。
エラーではじいて下さい。
// 輪郭ダンプより抜粋
Message('輪郭構成要素を選択して下さい。');
Ans := ContSeek(ContLen);
InitEditor('輪郭ダンプリスト'); // エディタ初期化
case Ans of
0 : s := '検索異常です。';
1 : s := '開輪郭です。';
2 : s := '閉輪郭です。';
3 : begin
s := '円です。';
OkMsgBox(s + ' 構成要素数:' + IntToStr(ContLen));
ContInfo(0, EType, v1, v2, v3, v4, v5);
Writeln('CIRCLE :'+ FloatToStr(v1) +' Y:'+FloatToStr(v2) + ' R:'+FloatToStr(v3));
exit; // 円の場合終わる
end;
end;