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语言）的更多相关文章

  1. CAD由一个自定义实体事件中的id得到自定义实体对象(com接口VB语言)

    由一个自定义实体事件中的id得到自定义实体对象.该函数只能在自定义实体事件中调用. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 2 ...

  2. CAD处理键盘按钮被释放（com接口VB语言）

    主要用到函数说明: MxDrawXCustomEvent::KeyUp 键盘按钮被释放,详细说明如下: 参数 说明 iVk 是按钮码,如F8,的值为#define VK_F8 0x77 返回0消息继续 ...

  3. CAD设置当前显示的光标（com接口VB语言）

    主要用到函数说明: MxDrawXCustomFunction::Mx_SetCursor 设置当前显示的光标,光标可以从cur文件加载,详细说明如下: 参数 说明 CString sCursorFi ...

  4. CAD把当前图上数据保存为一个二进流对象（com接口VB语言）

    主要用到函数说明: MxDrawXCustomFunction::WriteBinStreamEx 把当前图上数据保存为一个二进流对象,详细说明如下: 参数 说明 LPCTSTR pszPasswor ...

  5. CAD绘制一个单行文字（com接口VB语言）

    主要用到函数说明: _DMxDrawX::DrawText 绘制一个单行文字.详细说明如下: 参数 说明 DOUBLE dPosX >文字的位置的X坐标 DOUBLE dPosY 文字的位置的Y ...

  6. CAD绘制一个对齐标注（com接口VB语言）

    主要用到函数说明: _DMxDrawX::DrawDimAligned 绘制一个对齐标注.详细说明如下: 参数 说明 DOUBLE dExtLine1PointX 第一条界线开始点X值 DOUBLE ...

  7. CAD绘制一个角度标注（com接口VB语言）

    主要用到函数说明: _DMxDrawX::DrawDimAngular 绘制一个角度标注.详细说明如下: 参数 说明 DOUBLE dAngleVertexX 角度标注的顶点的X值 DOUBLE dA ...

  8. CAD绘制一个直径标注（com接口VB语言）

    主要用到函数说明: _DMxDrawX::DrawDimDiametric 绘制一个直径标注.详细说明如下: 参数 说明 DOUBLE dChordPointX 在被标注的曲线上的第一个点X值 DOU ...

  9. CAD绘制一个线型标注（com接口VB语言）

    主要用到函数说明: _DMxDrawX::DrawDimRotated 绘制一个线型标注.详细说明如下: 参数 说明 DOUBLE dExtLine1PointX 输入第一条界线的起始点X值 DOUB ...

随机推荐

  1. 工作总结 EF GroupBy() Select() Select() 中 Count() 分组 求总

    using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.T ...

  2. Android解析程序包时出现问题

    Android用户下载我们wcc应用时,偶尔会出现“解析程序包出现问题”的的现象,以下是逐步排查的相关经验: 1. 首先确保这个包本身没有问题. 检测方法:其他手机采用同样的下载方式再下载一次. 解决 ...

  3. 【手势交互】8. Nimble Sense

    早在2012.2013年度,手势识别领域就发生了几起重要的行业并购.比方英特尔对Omek的收购,谷歌对Flutter的收购.而苹果公司更是以3.45亿美金得高价收购了之前为微软Kinect提供技术支持 ...

  4. MySQL测试代码

    MySQL测试代码 # 注释内容 -- 注释内容 -- 创建maizi数据库 CREATE DATABASE IF NOT EXISTS `maizi` DEFAULT CHARACTER SET ' ...

  5. Razor基础,视图里如何调用controller里的函数

    1.单行代码书写 @代码 2.多行代码书写 @{ //@加个大括号就可以在里面写C#代码了. C#代码第一行 C#代码第二行 } 3.Razor模板引擎会自动判别代码块,但是当代码存在二义性的时候,可 ...

  6. linux之安装软件出现Could not open lock file /var/lib/dpkg/lock - open (13: Permission denied)解决总结

    sudo rm -rf /var/lib/dpkg/lock sudo rm -rf /var/cache/apt/archives/lock

  7. python-----tuple用法

    有一种有序列表叫元组:tuple.tuple和list非常类似,但是tuple一旦初始化就不能修改,比如同样是列出同学的名字: >>> classmates = ('Michael' ...

  8. Tool：Adobe Photoshop

    ylbtech-Tool-Adobe:Adobe Photoshop 1.返回顶部 1. Adobe Photoshop,简称“PS”,是由Adobe Systems开发和发行的图像处理软件. Pho ...

  9. echart x轴 type

    x轴类型有三种(y轴类似) 1 category 类目轴,适用于离散的类目数据 ,就是x周的类别是自定义的,都是字符串,需要通过data设置类目数据 与series 中data对应,data是一维数组 ...

  10. bzoj 1666: [Usaco2006 Oct]Another Cow Number Game 奶牛的数字游戏【模拟】

    模拟 #include<iostream> #include<cstdio> using namespace std; int n,ans; int main() { scan ...