请教：提前命令行内容

jakewow

在CAD中，调用别的程序一个命令，输出了下面两个“*”之间的内容，有什么办法用lisp提取出来嘛，我只需要提取轨面高程冒号后面的数字。
命令: _SWPROMGC
请输入所要查询的里程: 10100
** 查询里程: 10100.0000, 设计高程: 24.5120, 轨面高程: 24.5120. **

csharp

搞清数据后自己直接写提取

st788796

试试 (getvar "LASTPROMPT")

命令 COPYHIST        将命令行历史记录文字复制到剪贴板

但是你从剪贴板把记录读出来要借助其他工具

XDSoft

等待最新的API下载

用下面代码就可以得到你要的文字内容了。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq txt1 (xdrx_document_getCmdLineText 1024))
   
4.         (setq txt2 (xdrx_string_split txt1 "命令: "))
   
5.       )
   
6.     (progn
   
7.       (princ "\n")
   
8.       (setq txt3 (cadr (reverse txt2)))
   
9.       (princ txt3)
   
10.       (princ "\n")
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    

(defun c:tt ()<br />   (if (and<br />         (setq txt1 (xdrx_document_getCmdLineText 1024))<br />         (setq txt2 (xdrx_string_split txt1 "命令: "))<br />       )<br />     (progn<br />       (princ "\n")<br />       (setq txt3 (cadr (reverse txt2)))<br />       (princ txt3)<br />       (princ "\n")<br />     )<br />   )<br />   (princ)<br /> )<br />