SAP与CAD图集成

最新推荐文章于 2024-02-02 10:05:30 发布

SAP天元

最新推荐文章于 2024-02-02 10:05:30 发布

阅读量2.2k

点赞数

分类专栏： ABAP 文章标签： SAP与CAD集成 ABAP与CAD集成 CAD CAD图纸

本文链接：https://blog.csdn.net/saptianyuan/article/details/14225777

版权

ABAP 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

爱思普信息咨询/SAP Partner网(SAP软件/ERP介绍/SAP All-in one介绍)

有时因实施公司的需求，可能需要在物料主数据或采购订单、生产订单上需要能查看到对应的物料CAD图纸。那如何在SAP中实现查看CAD的图纸呢？可以通过类CL_GUI_ECL_3DVIEWER跟CL_GUI_ECL_2DVIEWER分别实现查看CAD 3D跟CAD 2D图，如下所示：

CAD 3D图：

CAD 2D图：

实现代码：

REPORT  zdxu_2dviewer.
PARAMETERS: url(2048) TYPE c DEFAULT 'd:\AU-100DG-22.dwg'.

START-OF-SELECTION.

AT SELECTION-SCREEN OUTPUT.
  DATA: dockingright  TYPE REF TO cl_gui_docking_container,
        ecl_viewer   TYPE REF TO cl_gui_ecl_2dviewer,
        repid TYPE syrepid.

  repid = sy-repid.
  CHECK dockingright IS INITIAL.

  CREATE OBJECT dockingright
    EXPORTING
      repid     = repid
      dynnr     = sy-dynnr
      side      = dockingright->dock_at_right
      ratio     = 50
      extension = 1000.

  CREATE OBJECT ecl_viewer
    EXPORTING
      parent            = dockingright
    EXCEPTIONS
      cntl_error        = 1
      cntl_system_error = 2
      create_error      = 3
      lifetime_error    = 4
      OTHERS            = 5.

  CALL METHOD ecl_viewer->create_toolbar
    EXPORTING
      close_button      = 'X'
      tools             = 'X'
      viewer            = 'X'
      navigation        = 'X'
      options           = 'X'
      viewer_openfile   = 'X'
      viewer_savefile   = 'X'
      tool_measurement  = 'X'
      remove_document   = ' '
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      cntb_btype_error  = 3
      dp_error          = 4.
  IF url IS NOT INITIAL.
    CALL METHOD ecl_viewer->open_document( file = url ).
  ENDIF.