CAD与用户互在图面上得到一个矩形框（com接口VB语言）

主要用到函数说明：

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