| 
积分6886明经币 个注册时间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没反应
 | 
 |