CAD实现自定义实体夹点移动(com接口VB语言)
2024-08-24 01:00:56
主要用到函数说明:
MxDrawXCustomEvent::MxDrawXCustomEntity::moveGripPointsAt
自定义实体事件,自定义实体夹点被移动,详细说明如下:
参数 | 说明 |
---|---|
LONGLONG lEntity |
自定义实体id |
IN LONG lGridIndex |
夹点索引号 |
IN McGePoint3d vec |
夹点移动的向量 |
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
|
If sEventName = "MxDrawXCustomEntity::moveGripPointsAt" Then Dim param88 As MxDrawResbuf Set param88 = MxDrawX1.CustomEventParam() Set customEntity = MxDrawX1.CallEx( "Mx_GetCustomEntity" , param88) Set sPt = customEntity.GetPoint( "startpoint" ) Set ePt = customEntity.GetPoint( "endpoint" ) Dim lIndex As Long lIndex = param88.AtLong(1) Dim offsetPt As MxDrawPoint Set offsetPt = param88.AtPoint(2) If lIndex = 0 Then sPt.x = sPt.x + offsetPt.x sPt.y = sPt.y + offsetPt.y customEntity.SetPoint "startpoint" , sPt Else ePt.x = ePt.x + offsetPt.x ePt.y = ePt.y + offsetPt.y customEntity.SetPoint "endpoint" , ePt End If End If |
最新文章
- Python_Day_05 计数器(counter),有序字典(OrderDict),默认字典(defaultdict),可命名元祖(namedtuple),双向队列(deque),单项队列(deuqe.Queue)
- JQuery validate.js 在ajax提交form时如何触发
- 100726A
- Excel文件读写
- leetcode 121. Best Time to Buy and Sell Stock ----- java
- 在Visual Studio 的 “一般处理程序 ” .ashx 文件中如何创建Session 对象
- sscanf、strsep
- Linux Device Driver 3th 中的一些坑
- 生产环境中CentOS7部署NET Core应用程序
- [转]Geoserver全面了解
- [转]取代cookie的网站追踪技术:”帆布指纹识别”初探
- Python IDLE 快捷键
- jQuery.noConflict() 函数详解
- 0. 迷之 ->; 和 .
- 前端项目中常用es6知识总结 -- 箭头函数及this指向、尾调用优化
- angularJs实现数据双向绑定的原理
- Bipartite Segments CodeForces - 901C (区间二分图计数)
- 使用MyEclipse开发Java EE应用:用XDoclet创建EJB 2 Session Bean项目(一)
- tumblr热度
- C# 判断ip地址是否正确
热门文章
- centos6.2安装kvm虚拟机
- STL 笔记(五) 算法 algorithm
- hdu 4193 单调队列
- LeetCode 788. Rotated Digits (旋转数字)
- Java原型模式之浅拷贝-深拷贝
- 应用程序无法正常启动 0xc0000013 vs2013
- CountDownTimer完整具体演示样例
- java.io.IOException: The same input jar is specified twice
- XAML实例教程系列 - 依赖属性和附加属性(四)
- sql server数据库添加记录