主要用到函数说明：

IMxDrawUtility::GetEntity

与用户交互到在图面上选择一个实体，详细说明如下：

参数 说明

[out] IMxDrawPoint** pPickPoint

返回实体的选择点

[in] BSTR prompt

选择实体时的提示字符串

代码实现如下：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Set mxUtility = New MxDrawXLib.MxDrawUtility
Dim getPt As MxDrawXLib.MxDrawPoint
Set ent = mxUtility.GetEntity(getPt, Chr(13) + Chr(10) + "选择读取扩展数据的实体:")
 
If (ent Is Nothing) Then
     MsgBox "没有选择实体.."
     Exit Sub
End If
 
Dim xData As MxDrawXLib.MxDrawResbuf
 
 
Set xData = ent.GetXData("")
 
If (xData.Count = 0) Then
     MsgBox "没有扩展数据"
Else
     xData.PrintData
End If

CAD与用户交互在图面上选择一个实体（com接口VB语言）的更多相关文章

  1. CAD隐藏或显示工具条上的按钮（com接口VB语言）

    主要用到函数说明: MxDrawXCustomFunction::Mx_HideToolBarControl 隐藏或显示工具条上的按钮.详细说明如下: 参数 说明 IN LPCTSTR pszTool ...

  2. CAD直接打印，不出现打印对话框（com接口VB语言）

    主要用到函数说明: MxDrawXCustomFunction::Mx_Print 直接打印,不出现打印对话框,详细说明如下: 参数 说明 double ptLBx 打印的范围左下角x double ...

  3. CAD处理键盘被按下事件（com接口VB语言）

    主要用到函数说明: MxDrawXCustomEvent::KeyDown 键盘被按下,详细说明如下: 参数 说明 LONG lVk 是按钮码,如F8,的值为#define VK_F8 0x77 返回 ...

  4. CAD与用户互在图面上得到一个矩形框（com接口VB语言）

    主要用到函数说明: MxDrawXCustomFunction::ExApp_CutDwg 与用户互在图面上得到一个矩形框,详细说明如下: 参数 说明 IN DOUBLE dX1 保存范围的左下角位置 ...

  5. CAD得到0层上的所有实体（com接口VB语言）

    主要用到函数说明: IMxDrawSelectionSet::Select 构造选择集.详细说明如下: 参数 说明 [in] MCAD_McSelect Mode 构造选择集方式 [in] VARIA ...

  6. 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 ...

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

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

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

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

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

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

随机推荐

  1. .NET Core/.NET之Stream简介 Rx.NET 简介

    .NET Core/.NET之Stream简介   之前写了一篇C#装饰模式的文章提到了.NET Core的Stream, 所以这里尽量把Stream介绍全点. (都是书上的内容) .NET Core ...

  2. 【Struts2五】ValueStack以及ognl表达式二（经常使用标签）

    Ognl经常使用标签:   1.s:debug       假设把该标签放入到s:iterator中能够看到当前正在迭代的元素的状态    2.s:property       1.输出       ...

  3. hdu1115 Lifting the Stone（几何，求多边形重心模板题）

    转载请注明出处:http://blog.csdn.net/u012860063 题目链接:pid=1115">http://acm.hdu.edu.cn/showproblem.php ...

  4. JQuery图例

  5. expand_dims

    tf.expand_dims  |  TensorFlow https://tensorflow.google.cn/api_docs/python/tf/expand_dims tf.expand_ ...

  6. Open Source Computer Vision Library

    https://opencv.org/ OpenCV (Open Source Computer Vision Library) is released under a BSD license and ...

  7. android developer官网不能打开怎么办

    映射网站: http://wear.techbrood.com

  8. 雅礼集训 2017 Day1

    T1:loj 6029 市场 题目大意: 维护一个数据结构支持区间加 区间除法 区间求最小值 区间求和 思路: 用线段树维护区间加 区间求最小值 区间和 对于区间除法 注意到除数d很大而加法的w很小 ...

  9. shell判断文件,目录是否存在或者具有权限 （转载）

    转自:http://cqfish.blog.51cto.com/622299/187188 文章来源:http://hi.baidu.com/haigang/blog/item/e5f582262d6 ...

  10. MySQL基础 — 详细安装

    MySQL--安装 打开MySQL 5.5 安装文件开始: 点击Next 打上勾,再点击Next 点击Custom,说明如下: Typical(典型安装)        Installs the mo ...