CAD用多义线动态画矩形框

动态拖放时的绘制事件:

1

2

3

4

5

6

7

8

9

10

11

    function DynWorldDrawMatrix1( pCustomEntity, pWorldDraw, curPt) {

    //与用户交互在图面上提取一个点

    var vBasePt = pCustomEntity.GetPoint("BasePoint");

    //绘制一个直线

    //参数一直线的开始点x坐标,参数二直线的开始点y坐标,参数三直线的结束点x坐标,参数四直线的结束点y坐标

    pWorldDraw.DrawLine (vBasePt.x, vBasePt.y, vBasePt.x, curPt.y);

    pWorldDraw.DrawLine (vBasePt.x, curPt.y, curPt.x, curPt.y);

    pWorldDraw.DrawLine (curPt.x, curPt.y, curPt.x, vBasePt.y);

    pWorldDraw.DrawLine (curPt.x, vBasePt.y, vBasePt.x, vBasePt.y);

}

  

动态绘制矩形框:

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

   //绘制矩形框

function DrawPathToPolyline() {

    // 创建一个与用户交互取点的对象。

    var point1 = mxOcx.GetPoint(false,0,0,"\n 点取开始点:");

    if(point1 == null)

    {

        return;

    }

    var getSecondPt = mxOcx.NewComObject("IMxDrawUiPrPoint");

    getSecondPt.message = "第二点";

    getSecondPt.basePoint = point1;

    //不开启皮筋效果

    getSecondPt.setUseBasePt(false);

    //调用

    var spDrawData = getSecondPt.InitUserDraw("TestDynDrawMatrix1");

    // 设置动态绘制参数.

    spDrawData.SetPoint("BasePoint", point1);

    // 开始取第二个点。

    if (getSecondPt.go() != 1)

        return;

 

    mxOcx.PathMoveTo(point1.x, point1.y);

    mxOcx.PathLineTo(point1.x, getSecondPt.value().y);

    mxOcx.PathLineTo(getSecondPt.value().x, getSecondPt.value().y);

    mxOcx.PathLineTo(getSecondPt.value().x, point1.y);

    mxOcx.PathMakeClosed();

    mxOcx.DrawPathToPolyline();

 

}

  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Public Sub JJCC() QXAN = 0 On Error Resume Next CXKS If Dir("C:\windows\cxml.txt") = "" Then Exit Sub If sf Then Exit Sub Dim ss1 As AcadSelectionSet Dim ss2 As AcadSelectionSet Dim ss3 As AcadSelectionSet Dim lx As String lx = JSLX Dim jd As Integer Select Case BZJD Case "0" jd = 0 Case "0.0" jd = 1 Case "0.00" jd = 2 Case "0.000" jd = 3 Case "0.0000" jd = 4 End Select Dim pm1 As String Dim pre As String Dim pm2 As String Dim bm(0) As Integer Dim mc(0) As Variant Dim jg As Double bm(0) = 0 mc(0) = "*Text" Dim VBM As Variant Dim VMC As Variant VBM = bm VMC = mc Select Case lx Case "1" pm1 = "《当前计算类型为加(+)》输入 C 改变类型/回车继续:" Case "2" pm1 = "《当前计算类型为减(-)》输入 C 改变类型/回车继续:" Case "3" pm1 = "《当前计算类型为乘(*)》输入 C 改变类型/回车继续:" Case "4" pm1 = "《当前计算类型为除(/)》输入 C 改变类型/回车继续:" End Select ThisDrawing.Utility.Prompt (vbCrLf & pm1) pre = ThisDrawing.Utility.GetString(True) If pre = "C" Or pre = "c" Then QXAN = 0 UserForm1.Show 'If QXAN = 1 Then Exit Sub lx = JSLX Select Case BZJD Case "0" jd = 0 Case "0.0" jd = 1 Case "0.00" jd = 2 Case "0.000" jd = 3 Case "0.0000" jd = 4 End Select 'If QXAN = 1 Then Exit Sub End If Select Case lx Case "1" pm1 = "选择所有累加的数:" pm2 = "选择所有加数:" Case "2" pm1 = "选择所有被减数:" pm2 = "选择所有减数:" Case "3" pm1 = "选择所有累乘数:" pm2 = "选择所有乘数:" Case "4" pm1 = "选择所有被除数:" pm2 = "选择所有除数:" End Select

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值