取代redrawall命令的函数

ObjectArx

调用C++的acedRedraw函数。
这个函数还是挺有用的，可以用于：

• 重新绘制屏幕
• 显示/隐藏实体后更新实体
• 高亮显示/不高亮实体显示后更新实体
  

对于本贴的问题，应该是第一个。但下面的代码中包含了高亮显示的内容。

1. #define ACADR16
   
2. using System ;
   
3. using System.Runtime.InteropServices ;
   
4. using Autodesk.AutoCAD.Runtime ;
   
5. using Autodesk.AutoCAD.ApplicationServices ;
   
6. using Autodesk.AutoCAD.EditorInput ;
   
7. using Autodesk.AutoCAD.DatabaseServices ;
   
8. using Autodesk.AutoCAD.Geometry ;
   
9. [assembly: CommandClass(typeof(Rivilis.Redraw))]
   
10. namespace Rivilis
    
11. {
    
12.   public class Redraw
    
13.   {
    
14.     [System.Security.SuppressUnmanagedCodeSecurity]
    
15.     [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
    
16.     private static extern Int32 acedRedraw(long [] name, Int32 mode);
    
17. #if ACADR16
    
18.     [DllImport("acdb16.dll", CallingConvention=CallingConvention.Cdecl, EntryPoint="?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AAY01JVAcDbObjectId@@@Z")]  
    
19. #elif ACADR17
    
20.     [DllImport("acdb17.dll", CallingConvention=CallingConvention.Cdecl, EntryPoint="?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AAY01JVAcDbObjectId@@@Z")]  
    
21. #endif
    
22.     private static extern int acdbGetAdsName(long [] name, ObjectId objId);
    
23.     [CommandMethod("MyRedraw")]
    
24.     static public void MyRedraw()
    
25.     {
    
26.       acedRedraw(null, 1);
    
27.     }
    
28.     // 高亮显示实体
    
29.     [CommandMethod("HlEnt")]
    
30.     static public void HlEnt()
    
31.     {
    
32.       PromptEntityOptions entityOpts = new PromptEntityOptions("\nSelect entity: ");
    
33.       PromptEntityResult rc = Application.DocumentManager.MdiActiveDocument.Editor.GetEntity(entityOpts);
    
34.       if (rc.Status == PromptStatus.OK)
    
35.       {
    
36.         long [] ent = new long [] { 0, 0};
    
37.         acdbGetAdsName(ent,rc.ObjectId);
    
38.         acedRedraw(ent, 3);
    
39.       }
    
40.     }
    
41.     // 取消实体高亮显示
    
42.     [CommandMethod("UlEnt")]
    
43.     static public void UlEnt()
    
44.     {
    
45.       PromptEntityOptions entityOpts = new PromptEntityOptions("\nSelect entity: ");
    
46.       PromptEntityResult rc = Application.DocumentManager.MdiActiveDocument.Editor.GetEntity(entityOpts);
    
47.       if (rc.Status == PromptStatus.OK)
    
48.       {
    
49.         long [] ent = new long [] { 0, 0};
    
50.         acdbGetAdsName(ent,rc.ObjectId);
    
51.         acedRedraw(ent, 4);
    
52.       }
    
53.     }
    
54.   }
    
55. }
    

#define ACADR16<br /> using System ;<br /> using System.Runtime.InteropServices ;<br /> using Autodesk.AutoCAD.Runtime ;<br /> using Autodesk.AutoCAD.ApplicationServices ;<br /> using Autodesk.AutoCAD.EditorInput ;<br /> using Autodesk.AutoCAD.DatabaseServices ;<br /> using Autodesk.AutoCAD.Geometry ;<br /> [assembly: CommandClass(typeof(Rivilis.Redraw))]<br /> namespace Rivilis<br /> {<br />   public class Redraw<br />   {<br />     [System.Security.SuppressUnmanagedCodeSecurity]<br />     [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]<br />     private static extern Int32 acedRedraw(long [] name, Int32 mode);<br /> #if ACADR16<br />     [DllImport("acdb16.dll", CallingConvention=CallingConvention.Cdecl, EntryPoint="?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AAY01JVAcDbObjectId@@@Z")]  <br /> #elif ACADR17<br />     [DllImport("acdb17.dll", CallingConvention=CallingConvention.Cdecl, EntryPoint="?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AAY01JVAcDbObjectId@@@Z")]  <br /> #endif<br />     private static extern int acdbGetAdsName(long [] name, ObjectId objId);<br />     [CommandMethod("MyRedraw")]<br />     static public void MyRedraw()<br />     {<br />       acedRedraw(null, 1);<br />     }<br />     // 高亮显示实体<br />     [CommandMethod("HlEnt")]<br />     static public void HlEnt()<br />     {<br />       PromptEntityOptions entityOpts = new PromptEntityOptions("\nSelect entity: ");<br />       PromptEntityResult rc = Application.DocumentManager.MdiActiveDocument.Editor.GetEntity(entityOpts);<br />       if (rc.Status == PromptStatus.OK) <br />       {<br />         long [] ent = new long [] { 0, 0};<br />         acdbGetAdsName(ent,rc.ObjectId);<br />         acedRedraw(ent, 3);<br />       }<br />     }<br />     // 取消实体高亮显示<br />     [CommandMethod("UlEnt")]<br />     static public void UlEnt()<br />     {<br />       PromptEntityOptions entityOpts = new PromptEntityOptions("\nSelect entity: ");<br />       PromptEntityResult rc = Application.DocumentManager.MdiActiveDocument.Editor.GetEntity(entityOpts);<br />       if (rc.Status == PromptStatus.OK) <br />       {<br />         long [] ent = new long [] { 0, 0};<br />         acdbGetAdsName(ent,rc.ObjectId);<br />         acedRedraw(ent, 4);<br />       }<br />     }<br />   }<br /> }<br />

请注意开头的#define ACADR16，这个表示现在的CAD版本是2006，如果你用的是2007/2008的话，请把它改成#define ACADR17

1.     <System.Security.SuppressUnmanagedCodeSecurity()> _
   
2.     <System.Runtime.InteropServices.DllImport("acad.exe", CallingConvention:=System.Runtime.InteropServices.CallingConvention.Cdecl)> _
   
3.     Private Shared Function acedRedraw(ByVal name As Long(), ByVal mode As Integer) As Integer
   
4.     End Function
   
5. 
   
6.     <CommandMethod("MyRedraw")> _
   
7.     Public Sub MyRedraw()
   
8.         acedRedraw(Nothing, 1)
   
9.     End Sub
   
10. 
    

    <System.Security.SuppressUnmanagedCodeSecurity()> _<br />     <System.Runtime.InteropServices.DllImport("acad.exe", CallingConvention:=System.Runtime.InteropServices.CallingConvention.Cdecl)> _<br />     Private Shared Function acedRedraw(ByVal name As Long(), ByVal mode As Integer) As Integer<br />     End Function<br /> <br />     <CommandMethod("MyRedraw")> _<br />     Public Sub MyRedraw()<br />         acedRedraw(Nothing, 1)<br />     End Sub<br /> <br />