如何与用户互在图面上得到一个矩形框？

• 回答：

  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
  

• 回答：

  主要用到函数说明：

  
  

  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值