（XDRX API）AutoLisp SHELL 扩展

XDSoft

XDRX API 从 2017.1215版本，提供SHELL扩展给LISP，例子如下，关于SHELL可以做什么，可以百度。

SHELL函数：xdrx_shell_open
xdrx_shell_readdata
xdrx_shell_writedata
xdrx_shell_close
xdrx_shell_getlasterror

1. ;;; Test 2
   
2. ;;; 改变目录到 D盘的drivers目录, 获取目录
   
3. ;;; 列表并打印到AUTOCAD命令行
   
4. ;;; 如何使用 && 和命令的组合的例子。
   
5. (defun c:test2 (/ handle sResult)
   
6.   (setq        handle (xdrx_shell_open "c:\\windows\\system32\\cmd.exe"
   
7.                           "/c d: && cd \\drivers\\ && dir"
   
8.                )
   
9.   )
   
10.   (if (/= nil handle)
    
11.     (progn
    
12.       (while (/= nil (setq sResult (xdrx_shell_readdata handle)))
    
13.         (princ sResult)
    
14.       )
    
15.       (xdrx_shell_close handle)
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    
20. 
    

;;; Test 2<br /> ;;; 改变目录到 D盘的drivers目录, 获取目录<br /> ;;; 列表并打印到AUTOCAD命令行<br /> ;;; 如何使用 && 和命令的组合的例子。<br /> (defun c:test2 (/ handle sResult)<br />   (setq        handle (xdrx_shell_open "c:\\windows\\system32\\cmd.exe"<br />                           "/c d: && cd \\drivers\\ && dir"<br />                )<br />   )<br />   (if (/= nil handle)<br />     (progn<br />       (while (/= nil (setq sResult (xdrx_shell_readdata handle)))<br />         (princ sResult)<br />       )<br />       (xdrx_shell_close handle)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

1. ;;; test 3
   
2. ;;; 改变目录到 D盘的drivers目录, 获取目录
   
3. ;;; 列表并打印到AUTOCAD命令行
   
4. ;;; 如何使用管道和 && 和命令的组合的例子。
   
5. (defun c:test3 (/ handle sResult)
   
6.   (setq        handle (xdrx_shell_open "c:\\windows\\system32\\cmd.exe"
   
7.                           "/c d: && cd \\drivers\\ && dir | sort"
   
8.                )
   
9.   )
   
10.   (if (/= nil handle)
    
11.     (progn
    
12.       (while (/= nil (setq sResult (xdrx_shell_readdata handle)))
    
13.         (princ sResult)
    
14.       )
    
15.       (xdrx_shell_close handle)
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    
20. 
    

;;; test 3<br /> ;;; 改变目录到 D盘的drivers目录, 获取目录<br /> ;;; 列表并打印到AUTOCAD命令行<br /> ;;; 如何使用管道和 && 和命令的组合的例子。<br /> (defun c:test3 (/ handle sResult)<br />   (setq        handle (xdrx_shell_open "c:\\windows\\system32\\cmd.exe"<br />                           "/c d: && cd \\drivers\\ && dir | sort"<br />                )<br />   )<br />   (if (/= nil handle)<br />     (progn<br />       (while (/= nil (setq sResult (xdrx_shell_readdata handle)))<br />         (princ sResult)<br />       )<br />       (xdrx_shell_close handle)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

1. (defun c:test4 (/ handle sResult sContents)
   
2.   (setq        handle (xdrx_shell_open "c:\\windows\\system32\\cmd.exe"
   
3.                           "/c type \\Windows\\system.ini"
   
4.                )
   
5.   )
   
6.   (if (/= nil handle)
   
7.     (progn
   
8.       (setq sContents "")
   
9.       (while (/= nil (setq sResult (xdrx_shell_readdata handle)))
   
10.         (setq sContents (strcat sContents sResult))
    
11.       )
    
12.       (xdrx_shell_close handle)
    
13.     )
    
14.   )
    
15.   (princ sContents)
    
16.   (princ)
    
17. )

(defun c:test4 (/ handle sResult sContents)<br />   (setq        handle (xdrx_shell_open "c:\\windows\\system32\\cmd.exe"<br />                           "/c type \\Windows\\system.ini"<br />                )<br />   )<br />   (if (/= nil handle)<br />     (progn<br />       (setq sContents "")<br />       (while (/= nil (setq sResult (xdrx_shell_readdata handle)))<br />         (setq sContents (strcat sContents sResult))<br />       )<br />       (xdrx_shell_close handle)<br />     )<br />   )<br />   (princ sContents)<br />   (princ)<br /> )

1. ;;; Opens cmd.exe shell using the envirnment variable %comspec% if set.
   
2. ;;; The sort program is run and input is provided via the xdrx_shell_writedata
   
3. ;;; function. This test provides a single string with carriage seperating
   
4. ;;; the words of the input. This is one way to provide line buffered input.
   
5. 
   
6. (defun c:Test5 (/ handle sResult)
   
7.   (setq handle (xdrx_shell_open "%comspec%" "/c sort"))
   
8.   (if (/= nil handle)
   
9.     (progn
   
10.       (xdrx_shell_writedata handle "There\nis\na\nfly\n")
    
11.       (setq sResult (xdrx_shell_readdata handle))
    
12.       (if (/= nil sResult)
    
13.         (princ sResult)
    
14.       )
    
15.     )
    
16.     (xdrx_shell_close handle)
    
17.   )
    
18.   (princ)
    
19. )
    

;;; Opens cmd.exe shell using the envirnment variable %comspec% if set.<br /> ;;; The sort program is run and input is provided via the xdrx_shell_writedata<br /> ;;; function. This test provides a single string with carriage seperating<br /> ;;; the words of the input. This is one way to provide line buffered input.<br /> <br /> (defun c:Test5 (/ handle sResult)<br />   (setq handle (xdrx_shell_open "%comspec%" "/c sort"))<br />   (if (/= nil handle)<br />     (progn<br />       (xdrx_shell_writedata handle "There\nis\na\nfly\n")<br />       (setq sResult (xdrx_shell_readdata handle))<br />       (if (/= nil sResult)<br />         (princ sResult)<br />       )<br />     )<br />     (xdrx_shell_close handle)<br />   )<br />   (princ)<br /> )<br />

2. 
   
3. ;;; Opens cmd.exe shell using the envirnment variable %comspec% if set.
   
4. ;;; The sort program is run and input is provided to it through xdrx_shell_writedata
   
5. ;;; by calling it multiple times.
   
6. (defun c:Test6 (/ aList handl sResult)
   
7.   (setq aList (list "Lost" "in" "the" "swamp" "with" "the" "gaters"))
   
8.   (setq handle (xdrx_shell_open "%comspec%" "/c sort"))
   
9.   (if (/= nil handle)
   
10.     (progn
    
11.       (foreach s aList (xdrx_shell_writedata handle (strcat s "\n")))
    
12.       (setq sResult (xdrx_shell_readdata handle))
    
13.       (if (/= nil sResult)
    
14.         (princ sResult)
    
15.       )
    
16.     )
    
17.     (xdrx_shell_close handle)
    
18.   )
    
19.   (princ)
    
20. )
    
21. 
    

<br /> ;;; Opens cmd.exe shell using the envirnment variable %comspec% if set.<br /> ;;; The sort program is run and input is provided to it through xdrx_shell_writedata<br /> ;;; by calling it multiple times.<br /> (defun c:Test6 (/ aList handl sResult)<br />   (setq aList (list "Lost" "in" "the" "swamp" "with" "the" "gaters"))<br />   (setq handle (xdrx_shell_open "%comspec%" "/c sort"))<br />   (if (/= nil handle)<br />     (progn<br />       (foreach s aList (xdrx_shell_writedata handle (strcat s "\n")))<br />       (setq sResult (xdrx_shell_readdata handle))<br />       (if (/= nil sResult)<br />         (princ sResult)<br />       )<br />     )<br />     (xdrx_shell_close handle)<br />   )<br />   (princ)<br /> )<br /> <br />