主要用到函数说明:

MxDrawXCustomFunction::ExApp_CutDwg

与用户互在图面上得到一个矩形框,详细说明如下:

IN DOUBLE dX1

保存范围的左下角位置X值

IN DOUBLE IN dY1

保存范围的左下角位置Y值

IN DOUBLE dX2

保存范围的右上角位置X值

IN DOUBLE IN dY2

保存范围的右上角位置Y值

sFile

保存的文件名

主要用到函数说明:

MxDrawXCustomFunction::Mx_GetCorner

与用户互在图面上得到一个矩形框,详细说明如下:

IN DOUBLE dX1

矩形框的左下角位置X值

IN DOUBLE IN dY1

矩形框的左下角位置Y值

DOUBLE IN dZ1

矩形框的左下角位置Z值

IN LPCTSTR pszPrompt

命令行提示,可以为空

OUT DOUBLE dX2

返回得到的点X值

OUT DOUBLE OUT dY2

返回得到的点Y值

DOUBLE OUT dZ2

返回得到的点Z值

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
Set mxUtility = New MxDrawXLib.MxDrawUtility
 
      Dim getPt As MxDrawXLib.MxDrawPoint
 
      Set getPt = mxUtility.GetPoint(, Chr(13) + Chr(10) + "输入矩形框左下角点:")
 
      If (getPt Is Nothing) Then
        Exit Sub
      End If
 
      Set param = New MxDrawXLib.MxDrawResbuf
      param.AddDouble getPt.x, -10
      param.AddDouble getPt.y, -10
 
 
      Set retParam = MxDrawX1.CallEx("Mx_GetCorner", param)
      If retParam.AtString(0) = "Ok" Then
 
            Set param2 = New MxDrawXLib.MxDrawResbuf
            param2.AddDouble retParam.AtDouble(1), -10
            param2.AddDouble retParam.AtDouble(2), -10
            param2.AddDouble getPt.x, -10
            param2.AddDouble getPt.y, -10
            param2.AddString "c:11111.dwg", -10
 
            MxDrawX1.CallEx "ExApp_CutDwg", param2
 
      End If
05-18 20:33
查看更多