CAD实现自定义实体夹点移动，com接口VB语言 - 梦想CAD控件

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