LISP编写命令行his

martyn3200 · 发表于 2022-7-5 20:27:13

有没有办法通过lisp例程将选定数量的命令行历史记录写入文件？

使用MASSPROP命令时，会弹出一个将分析写入文件的选项（请参阅随附的屏幕截图）。我想知道是否有可能为命令行上出现的lisp结果复制类似的内容

提前谢谢。

hanhphuc · 发表于 2022-7-5 20:47:32

martyn，欢迎来到CADTutor
对于显示结果，可以使用textpage、princ、prin1、vl princ to string、strcat等。。
例子：


(defun c:test (/ i)
 (textpage)
 (setq i 64)
 (repeat 26 (princ (strcat "\nascii " (itoa (setq i (1+ i)))" is "(chr i))))
 (princ)
 ) ;_ end of defun

变量last命令行

copy


(getvar "lastprompt")

我们不知道您想要在命令行中显示什么数据？
你也可以发布你的例子。
HTH公司

Hippe013 · 发表于 2022-7-5 20:57:57

我在想，也许这就是你想要的。

copy


;clears the log file
(defun clrlogfile ( / f)
 (setq f (open (getvar "LogFileName") "w"))
 (write-line "" f)
 (close f)
 )
(clrlogfile);clears the logfile
(setvar "logfilemode" 1);begin logging
;PRINT WHAT YOU WANT TO COMMAND LINE....
(setvar "logfilemode" 0);end logging
(startapp "Notepad" (getvar "LogFileName"));open it up in notepad