标签：end sub aci cut rowspan space out head top
主要用到函数说明：
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 |
标签：end sub aci cut rowspan space out head top
原文地址：https://www.cnblogs.com/yzy0224/p/11007985.html
