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