- 积分
- 5041
- 明经币
- 个
- 注册时间
- 2006-11-9
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2024-2-1 15:54:28
|
显示全部楼层
Public Shared Sub ZoomAll()
Dim res As New ResultBuffer From {
New TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "._ZOOM"),
New TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "_A")
}
acedCmd(res.UnmanagedObject)
End Sub
<DllImport("accore.dll", EntryPoint:="acedCmd", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.Cdecl)>
Private Shared Function acedCmd(ByVal rbp As IntPtr) As Integer
End Function
为何我这个zoomall没反应 |
|