CAD与用户互在图面上得到一个矩形框（com接口VB语言）
2020-12-13 01:44
标签：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值
CAD与用户互在图面上得到一个矩形框（com接口VB语言） 标签：end sub aci cut rowspan space out head top 原文地址：https://www.cnblogs.com/yzy0224/p/11007985.html
参数
说明
参数
说明
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
上一篇：使用gcc编译c语言
下一篇：网页嵌入视频播放器
文章标题：CAD与用户互在图面上得到一个矩形框（com接口VB语言）
文章链接：http://soscw.com/essay/24133.html