关于V2二次开发中的最后生成实体显示到图形区的问题

在图加入CAXA系统图形数据库之前 图形在跟随鼠标动态移动的实现
  
如零件 里面的效果
  
请达人帮帮忙，我的怎么做也没有
DRAGING 的图形跟随鼠标

CAXA二次开发例子里有这样一段代码 但我怎么用也没有那种效果
请达人帮帮忙 谢谢～～
  
//  以下的代码是为了实现绘制时的拖动效果,
    if(flag == ERASE_TRACE) //  如果当前绘图标志为擦除时
  {
    ebDrawXOR(TRUE);  //  打开异或绘图方式
    ebDrawNode(line);  //  绘制一遍直线
    ebFirstFlag=TRUE;  //  置首次绘制标志为真
  
    ebDrawXOR(FALSE);  //  关闭异或绘图方式
    return;
    }
    if(flag == UPDATE_TRACE) //  如果当前绘图标志为更新时
  {
    ebDrawXOR(TRUE);
    if(ebFirstFlag==TRUE)  //  如果这条直线从未画过,则将首次绘制标志置为假
      ebFirstFlag = FALSE;
    else          //  如果这条直线已经画过,则将再次绘制一遍这条直线,在异或方式下即擦除该直线
      ebDrawNode(line);
  
    ebGetPoint([$p2)]  //  得到直线的第二点坐标
    ebSetLineData(line,p1,p2);  //  修改直线的两端点坐标
  
    ebDrawNode(line);  //  将修改后的直线重画一遍
    ebDrawXOR(FALSE);
  
    return;
  }
  
  

求助阿

求助～～

帮顶

实现平移拖动代码:

请教怎样贴图,我有好多图要往上贴