CAD对象的夹点被编辑完成后调用事件（com接口VB语言）

发布时间：2020-12-17 07:18:10 所属栏目：百科来源：网络整理

导读：主要用到函数说明： ? _DMxDrawXEvents::ObjectGripEdit ? 对象的夹点被编辑完成后,会调用该事件，详细说明如下： ? 参数说明 LONGLONG lId 对象的id LONG iGridIndex 被编辑的夹点索引 ? VB代码实现如下： ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

主要用到函数说明：

_DMxDrawXEvents::ObjectGripEdit

对象的夹点被编辑完成后,会调用该事件，详细说明如下：

参数	说明
LONGLONG lId	对象的id
LONG iGridIndex	被编辑的夹点索引

VB代码实现如下：

 
       ???? 
       ‘查看对象是否是ImageMark对象，并返回对象数据。 
      
        ? 
      
       ???? 
       Dim?data?As?MxDrawXLib.MxDrawResbuf 
      
        ? 
      
       ???? 
       Set?data?=?MxDrawX1.CallLongParam1("Mx_GetImageMarkData",?lId) 
      
       ???? 
       If?data.AtString(0)?=?"Ok"?Then 
      
        ? 
      
       ‘? 
       得到Mark对象的文件名. 
      
       ???? 
       MsgBox?(data.AtString(1)) 
      
       ‘插入点x 
      
       ???? 
       MsgBox?(data.AtDouble(2)) 
      
       ‘ 
       插入点y 
      
       ???? 
       MsgBox?(data.AtDouble(3)) 
      
       ‘缩放比例 
      
       ???? 
       data.AtDouble?(4) 
      
       ‘ 
       图片在绘图时，是否参于打印，出图 
      
       ???? 
       data.AtLong?(5) 
      
       ‘否绘制它的在文档中的外框标记 
      
       ???? 
       data.AtLong?(6) 
      
       ‘ 
       图片在数据库中的宽度 
      
       ???? 
       data.AtDouble?(7) 
      
       ‘图片在数据库中的高度 
      
       ???? 
       data.AtDouble?(8) 
      
       ‘ 
       闪烁时使用的ImageFile 
      
       ???? 
       data.AtString?(9) 
      
       ‘标注文本 
      
       ???? 
       data.AtString?(10) 
      
       ‘ 
       标注文本高度 
      
       ???? 
       data.AtDouble?(11) 
      
       ‘颜色索引 
      
       ???? 
       data.AtLong?(12) 
      
        ? 
      
       ???? 
       ‘ 
       修改Mark的文本数据。 
      
       ????? 
       Dim?setParam?As?MxDrawXLib.MxDrawResbuf 
      
       ????? 
       Set?setParam?=?New?MxDrawXLib.MxDrawResbuf 
      
       ????? 
       ‘输入对象id 
      
       ????? 
       setParam.AddLong?lId 
      
        ? 
      
       ????? 
       ‘ 
       输入对象新的文字内容 
      
       ????? 
       setParam.AddString? 
       "Text" 
      
       ????? 
       setParam.AddString? 
       "对象被修改" 
      
        ? 
      
       ????? 
       ‘输入对象新文字高度,TextHeight是设置标记 
      
       ????? 
       setParam.AddString?"TextHieght" 
      
        ? 
      
       ????? 
       ‘ 
       文字高度值 
      
       ????? 
       setParam.AddDouble?50 
      
       ????? 
       MxDrawX1.CallEx? 
       "Mx_SetImageMarkData" 
       ,?setParam

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!