把一个实体显示保存到一个jpg文件
VB开发|黄洪辉|2018-05-30 10:04
-
回答:
ElseIf iCommandId = 77 Then Set mxUtility = New MxDrawXLib.MxDrawUtility Set ent = mxUtility.GetEntity(getPt3, Chr(13) + Chr(10) + "选择读取扩展数据的实体:") If (ent Is Nothing) Then MsgBox "没有选择实体.." Exit Sub End If Set param = New MxDrawXLib.MxDrawResbuf param.AddLong ent.ObjectID, -10 param.AddString "c:ff3.jpg" MxDrawX1.CallEx "Mx_DrawEntityToJpg", param ElseIf iCommandId = 66 Then