|
www.mxdraw.com
|
   |
   |
MxDrawXCustomFunction::Mx_GetImageMarkData 方法
|
www.mxdraw.com
|
|
|
得到ImageMark数据
static void Mx_GetImageMarkData(LONG lId, CString& sImageFile, double& ptPosX, DOUBLE& ptPosY, double& dImageScale, bool& isCDCDraw, bool& isDrawFlag, double& dDocWidth, double& dDocHeight, CString& pszTwinkeImageFile, CString& pszText, double& dTextHieght, int& iTextColor);
|
参数 |
说明 |
|
LONG lId |
输入对象id，或传句柄也可以。 |
|
CString& sImageFile |
得到Mark对象的文件名,1 |
|
double& ptPosX |
得到 插入点x,2 |
|
DOUBLE& ptPosY |
得到插入点y,3 |
|
double& dImageScale |
得到缩放比例,如果输入-1.0表示图片随视区大小缩放,4 |
|
bool& isCDCDraw |
得到图片在绘图时，是否参于打印，出图,5 |
|
bool& isDrawFlag |
得到否绘制它的在文档中的外框标记,6 |
|
double& dDocWidth |
得到图片在数据库中的宽度,7 |
|
double& dDocHeight |
得到图片在数据库中的高度,8 |
|
CString& pszTwinkeImageFile |
得到闪烁时使用的ImageFile,9
|
|
CString& pszText |
得到标注文本,10 |
|
double& dTextHieght |
得到标注文本高度,11 |
|
int& iTextColor |
得到颜色索引,12 |
例如:VB例子
Private Sub MxDrawX1_CustomEvent(ByVal sEventName As String)
If sEventName = "ObjectGripEdit" Then
Dim eventParam As MxDrawXLib.MxDrawResbuf
' 得到事件参数
Set eventParam = MxDrawX1.CustomEventParam
Dim lId As Long
' 得到夹点被编辑的对象id
lId = eventParam.AtLong(0)
'查看对象是否是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)
End If
End If
End Sub