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