hsr///////////////////////////////////////////////////////////////
제가 GIS쪽에 있기에 GIS회사의 엔진(OCX, DLL등)으로 하는것이
변환후 편집 및 기타 도면작업등에 확장할 수 있어서 권해드립니다.

국내업체중.....
한국통신데이타(www.ktdata.co.kr) : ZEUS
지오매니아  (www.GEOMania.com) : GEOMania
GIS815  (www.gis815.co.kr)
.....
참고로 샘플이 자료실에 있습니다. 단 이는 위 회사중 데모버젼(DLL)을 사용한거라 기능이 단순하며 기능제한이 있습니다.

예전 자료실에 'GIS맛보기소스2'라는 제목을 찾아서
파일오픈소스부분을 아래걸로 바꾸세요(DWG형식추가)

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
     Import_FileName, _FileName : string;
begin
    OpenDialog1.InitialDir := ExtractFilePath(gOpenFileName);
    OpenDialog1.Filter := 'GEO File(*.GEO)|*.GEO|DXF File(*.DXF)|*.DXF|DWG File(*.DWG)|*.DWG';
    OpenDialog1.DefaultExt := OpenDialog1.Filter;
     if OpenDialog1.Execute then begin
        Import_FileName := OpenDialog1.FileName;
        _FileName := ExtractFileName(Import_FileName);
        gOpenFileName := ExtractFilePath(Import_FileName) + copy(_FileName,1,pos('.',_FileName)-1) + '.GEO';
        if XMap <> nil then
           MAP_CLOSE;

        if OpenDialog1.FilterIndex = 1 then begin
           Xmap :=XM_Open(pchar(gOpenFileName));
        end
        else if OpenDialog1.FilterIndex = 2 then begin
           xmap := XM_New(pchar(gOpenFileName));
           XM_ImportTable(xmap,Pchar('DXF'),PChar(Import_FileName));
        end
        else if OpenDialog1.FilterIndex = 3 then begin
           xmap := XM_New(pchar(gOpenFileName));
           XM_ImportTable(xmap,Pchar('DWG'),PChar(Import_FileName));
        end;
        XMS_AttachWindow(Xmap,Form1.Handle);
        XIS_EvtSetXmap(xMap);
     end;

end;

Autodesk 공식 써드파티프로그램중에 Voloview 가 있습니다.
뷰잉용으로는 기능도 강력하고 .. !! 공짭니다. !