CAD绘制一个图象标记对象（com接口VB语言）
Posted yzy0224
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了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 |
以上是关于CAD绘制一个图象标记对象（com接口VB语言）的主要内容，如果未能解决你的问题，请参考以下文章