Свойства выделенных примитивов.

Как получить свойства выделенных примитивов. Если можно код программы с коментариями. Нашёл на Delphi просто замечательный пример хотелось бы аналогичный на C++.
Очень надо. Спасибо.
var Acad:IAcadApplication;
    SelSet:IAcadSelectionSet;
    i:integer;
begin
  Acad:=GetActiveOleObject('AutoCAD.Application') as IAcadApplication;
  with Acad.ActiveDocument do
    begin
      for i:=0 to SelectionSets.Count-1 do
        if SelectionSets.Item(i).Name='SelSet' then
          begin
            SelectionSets.Item(i).Delete;
            Break;
          end;
      SelSet:=SelectionSets.Add('SelSet');
      SelSet.SelectOnScreen(EmptyParam,EmptyParam);
      Memo1.Clear;
      for i:=0 to SelSet.Count-1 do
        begin
          case SelSet.Item(i).EntityType of
          acLine:   with (SelSet.Item(i) as iAcadLine) do
                      begin
                          //работы с примитивом line
                      end;
          acCircle: with (SelSet.Item(i) as iAcadCircle) do
                      begin
                          //работы с примитивом Circle
                      end;
          end; //case
        end; //for
        SelSet.Delete;
    end; //with
    Acad:=nil;
end;