CAD得到ImageMark数据（com接口VB语言）
Posted yzy0224
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了CAD得到ImageMark数据（com接口VB语言）相关的知识，希望对你有一定的参考价值。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
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 |
以上是关于CAD得到ImageMark数据（com接口VB语言）的主要内容，如果未能解决你的问题，请参考以下文章