CAD绘制一个图象标记对象（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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
Private Sub DrawImageMarkImp() \'Dim mxUtility As MxDrawXLib.MxDrawUtility
\'Set mxUtility = New MxDrawXLib.MxDrawUtility
\'Dim getPt1 As MxDrawXLib.MxDrawPoint
\'Set getPt1 = mxUtility.GetPoint(, Chr(13) + Chr(10) + "点取插入点:")
\'If (getPt1 Is Nothing) Then
\' MsgBox "用户取消.."
\' Exit Sub
\'End If
\' 定义调用动态取点的函数参数
Dim getParam As MxDrawXLib.MxDrawResbuf
Set getParam = New MxDrawXLib.MxDrawResbuf
\'动态拖放时显示的图片
getParam.AddString MxDrawX1.GetOcxAppPath + "\mxdraw.png"
\'图片显示缩放比例
getParam.AddDouble 0.4
Dim retParam As MxDrawXLib.MxDrawResbuf
\'开始态拖放取点
Set retParam = MxDrawX1.CallEx("ExApp_GetImageMarkPosition", getParam)
If retParam.AtString(0) <> "Ok" Then
Exit Sub
End If
Dim param As MxDrawXLib.MxDrawResbuf
Set param = New MxDrawXLib.MxDrawResbuf
\'第一个参数，图形的文件名
param.AddString MxDrawX1.GetOcxAppPath + "\mxdraw.png"
\'第二个参数，插入点的x坐标
param.AddDouble retParam.AtDouble(1)
\'第三个参数，插入点的x坐标
param.AddDouble retParam.AtDouble(2)
\'第四个参数，图形缩放比例
param.AddDouble 0.4
\'第五个参数，图片在绘图时，是否参于打印，出图
param.AddLong 1
\'第6个参数，图片显示时，是否绘制它的在文档中的外框标记
param.AddLong 0
\'第7个参数，图片在数据库中的宽度
param.AddDouble 30
\'第8个参数，图片在数据库中的高度
param.AddDouble 30
\'第9个参数，闪烁时使用的image
param.AddString MxDrawX1.GetOcxAppPath + "\mxdrawt.png"
\'第10个参数，标文字内容
param.AddString "Text"
\'第11个参数，标文字高度
param.AddDouble 20
\'第12个参数，标文字的CAD颜色索引,颜色1为红色，具体颜色索引为多少是什么颜色，可以参数AutoCAD说明
param.AddLong 1
\'调用插入图形标记函数
MxDrawX1.CallEx "Mx_DrawImageMark", param
End Sub
|