CAD实现自定义实体夹点移动(com接口VB语言)

Posted yzy0224

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了CAD实现自定义实体夹点移动(com接口VB语言)相关的知识,希望对你有一定的参考价值。

主要用到函数说明:

 

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

以上是关于CAD实现自定义实体夹点移动(com接口VB语言)的主要内容,如果未能解决你的问题,请参考以下文章

CAD绘制自定义实体(com接口)

CAD向控件注册一个命令(com接口VB语言)

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

CAD得到ImageMark数据(com接口VB语言)

CAD执行一个带参数的命令(com接口VB语言)

CAD隐藏或显示工具条上的按钮(com接口VB语言)