使用 acedInvoke 调用 LISP函数

newer

Calling Lisp function using acedInvoke

问题：

I am using acedInvoke to call a Lisp function but I get a return value that equals RTERROR (5001). What am I missing ?

解答：

The Lisp function must be defined as a command as shown here :

1. ;;; (defun DoIt() Define the Lisp function as a command using c:
   
2. 
   
3. (defun c:DoIt()
   
4. 
   
5.   (setq pntA (getpoint "\nPick A")
   
6. 
   
7.         pntB (getpoint pntA "\nPick B")
   
8. 
   
9.   )
   
10. 
    
11.   (grdraw pntA pntB 1 2)
    
12. 
    
13. )
    

;;; (defun DoIt() Define the Lisp function as a command using c:<br /> <br /> (defun c:DoIt()<br /> <br />   (setq pntA (getpoint "\nPick A")<br /> <br />         pntB (getpoint pntA "\nPick B")<br /> <br />   )<br /> <br />   (grdraw pntA pntB 1 2)<br /> <br /> )<br />

Here is the sample code to call the Lisp command using acedInvoke :

1. <DllImport("acad.exe", CallingConvention:=CallingConvention.Cdecl, EntryPoint:="acedInvoke")> _
   
2. 
   
3. Private Shared Function acedInvoke(ByVal args As IntPtr, ByRef result As IntPtr) As Integer
   
4. 
   
5. End Function
   
6. 
   
7. 
   
8. 
   
9. . . .
   
10. 
    
11. 
    
12. 
    
13. Dim m_args As New Autodesk.AutoCAD.DatabaseServices.ResultBuffer()
    
14. 
    
15. 
    
16. 
    
17. 'Returns RTERROR (5001)
    
18. 
    
19. 'm_args.Add(New Autodesk.AutoCAD.DatabaseServices.TypedValue(5005, "DoIt"))
    
20. 
    
21. 
    
22. 
    
23. 'Returns RTNORM (5100)
    
24. 
    
25. m_args.Add(New Autodesk.AutoCAD.DatabaseServices.TypedValue(5005, "c:DoIt"))
    
26. 
    
27. 
    
28. 
    
29. Dim m_ResultBuf As IntPtr = IntPtr.Zero
    
30. 
    
31. Dim m_Return As Integer = acedInvoke(m_args.UnmanagedObject, m_ResultBuf)
    
32. 
    
33. 
    
34. 
    
35. m_args.Dispose()
    
36. 
    
37. MsgBox(String.Format("Return value {0}", m_Return))
    

<DllImport("acad.exe", CallingConvention:=CallingConvention.Cdecl, EntryPoint:="acedInvoke")> _<br /> <br /> Private Shared Function acedInvoke(ByVal args As IntPtr, ByRef result As IntPtr) As Integer<br /> <br /> End Function<br /> <br /> <br /> <br /> . . .<br /> <br /> <br /> <br /> Dim m_args As New Autodesk.AutoCAD.DatabaseServices.ResultBuffer()<br /> <br /> <br /> <br /> 'Returns RTERROR (5001)<br /> <br /> 'm_args.Add(New Autodesk.AutoCAD.DatabaseServices.TypedValue(5005, "DoIt"))<br /> <br /> <br /> <br /> 'Returns RTNORM (5100)<br /> <br /> m_args.Add(New Autodesk.AutoCAD.DatabaseServices.TypedValue(5005, "c:DoIt"))<br /> <br /> <br /> <br /> Dim m_ResultBuf As IntPtr = IntPtr.Zero<br /> <br /> Dim m_Return As Integer = acedInvoke(m_args.UnmanagedObject, m_ResultBuf)<br /> <br /> <br /> <br /> m_args.Dispose()<br /> <br /> MsgBox(String.Format("Return value {0}", m_Return))<br />