CAD绘制一个图象标记对象（com接口VB语言）

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