主要用到函数说明:
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
|