发送命令加载lisp

jun353835273

搬运http://www.theswamp.org/index.php?topic=49944.0

复制代码

2.     class LaunchAutoCAD
   
3.     {
   
4.         private static IAcadApplication vAcadApp = null;
   
5.         private static IAcadDocument vAcadDoc = null;        
   
6.         private static string vAcadID = "AutoCAD.Application.20";
   
7. 
   
8.         public static void StartAutoCAD()
   
9.         {
   
10.             try
    
11.             {
    
12.                 // Check for instance of AutoCAD
    
13.                 vAcadApp = (IAcadApplication)System.Runtime.InteropServices.Marshal.GetActiveObject(vAcadID);
    
14.             }
    
15.             catch (Exception) // None found so start a new instance of AutoCAD
    
16.             {
    
17.                 Type AcadProg = Type.GetTypeFromProgID(vAcadID);
    
18.                 vAcadApp = (IAcadApplication)System.Activator.CreateInstance(AcadProg);
    
19.             }
    
20. 
    
21.             if (vAcadApp != null)
    
22.             {
    
23.                 vAcadApp.Visible = true;
    
24.                 vAcadDoc = vAcadApp.Documents.Open(myDrawingTemplate.dwg", true);
    
25.                 vAcadDoc.SendCommand("(load "" + LispPath + "myLisp.lsp" "The load failed") ");
    
26.                 vAcadDoc.SendCommand(LISPVariables.PrepareAcadCmd() + " ");
    
27.                 vAcadDoc.SendCommand("(setq svPath "" + (ReadDefaults.vsSaveAutoDwgPath).Replace("\", "/") + "") ");
    
28.                 vAcadDoc.SendCommand("(setq *erp 1) ");
    
29.                 vAcadDoc.SendCommand("startLisp ");
    
30.             }
    
31.             else
    
32.             {
    
33.                 Console.WriteLine("ERROR: The drawing file is missing.");
    
34.             }
    
35.         }
    
36.     }
    
37. }

    class Launch<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a><br />     {<br />         private static IAcadApplication vAcadApp = null;<br />         private static IAcadDocument vAcadDoc = null;        <br />         private static string vAcadID = "AutoCAD.Application.20";<br /> <br />         public static void StartAutoCAD()<br />         {<br />             try<br />             {<br />                 // Check for instance of AutoCAD<br />                 vAcadApp = (IAcadApplication)System.Runtime.InteropServices.Marshal.GetActiveObject(vAcadID);<br />             }<br />             catch (Exception) // None found so start a new instance of AutoCAD<br />             {<br />                 Type AcadProg = Type.GetTypeFromProgID(vAcadID);<br />                 vAcadApp = (IAcadApplication)System.Activator.CreateInstance(AcadProg);<br />             }<br /> <br />             if (vAcadApp != null)<br />             {<br />                 vAcadApp.Visible = true;<br />                 vAcadDoc = vAcadApp.Documents.Open(myDrawingTemplate.dwg", true);<br />                 vAcadDoc.SendCommand("(load "" + LispPath + "myLisp.lsp" "The load failed") ");<br />                 vAcadDoc.SendCommand(LISPVariables.PrepareAcadCmd() + " ");<br />                 vAcadDoc.SendCommand("(setq svPath "" + (ReadDefaults.vsSaveAutoDwgPath).Replace("\", "/") + "") ");<br />                 vAcadDoc.SendCommand("(setq *erp 1) ");<br />                 vAcadDoc.SendCommand("startLisp ");<br />             }<br />             else<br />             {<br />                 Console.WriteLine("ERROR: The drawing file is missing.");<br />             }<br />         }<br />     }<br /> }

wo870711

太难了，看不懂