知识库 / VB开发 / 详情
如何实现自定义实体夹点移动?
如何实现自定义实体夹点移动?
VB开发|黄洪辉|2018-06-12 15:52
回答:

主要用到函数说明:


MxDrawXCustomEvent::MxDrawXCustomEntity::moveGripPointsAt


自定义实体事件,自定义实体夹点被移动,详细说明如下:


参数说明

LONGLONG lEntity

自定义实体id

IN LONG lGridIndex

夹点索引号

IN McGePoint3d vec

夹点移动的向量


VB代码实现如下:


        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
相关问题
如何直接打印,不出现打印对话框?
如何向控件注册一个命令?
如何绘制一个线型标注?
如何绘制一个半径标注?
如何绘制一个直径标注?
如何绘制一个角度标注?
如何绘制一个对齐标注?
如何得到多行文本?
如何得到0层上的所有实体?
如何把自定义实体,变成普通实体?
梦想CAD是专业的CAD插件(控件),可轻松在网页、手机及BS/CS程序中浏览编辑DWG文件,不需安装AutoCAD即可运行。经十余年累积已非常稳定可靠,有关键的空间搜索算法,并使用汇编优化,可同时处理50万级实体,有非常高的图形显示和处理效率。
技术服务
TEL:400-888-5703
185-8173-1060
客服I QQ: 3570505660
技术I QQ: 827867134
技术II QQ:6884123
产品购买
TEL:156-8136-8971
QQ:710714273
用户交流
控件QQ交流群1:73281982
控件QQ交流群2:112199959
MxCAD软件群 1:515771658
技术I:QQ
827867134
客服I:QQ
3570505660
销售QQ
710714273
联系电话400-888-5703