注释菜单

vnanhvu · 发表于 2022-7-6 09:25:42

我有些Lisp程序。我在一个LISP文件中输入所有内容。有时我会使用一些命令，我不记得了。
你能帮我，创建一个LISP显示菜单的所有命令！
谢谢大家！：眨眼：

ReMark · 发表于 2022-7-6 09:29:54

您正在寻找一个lisp例程，它将读取这个“主”lisp文件，并告诉您文件中包含的所有lisp例程的名称？

Lee Mac · 发表于 2022-7-6 09:33:47

http://lee-mac.com/getsyntax.html

vnanhvu · 发表于 2022-7-6 09:36:46

示例：我有3个命令：Defun:cb。。。。。Defun:cd。。。德芬：ce。
我写注释：Cb：用于更改点插入块，cd：用于更改尺寸样式，ce：。。。。等
lisp将显示内容注释！

vnanhvu · 发表于 2022-7-6 09:38:45

嗨，李！
Getsuntax好！但我会把笔记附在命令上！
你能帮助我吗！
非常感谢你！

Lee Mac · 发表于 2022-7-6 09:44:06

注释是否在单独的文件中？

如果是这样，这只会将内容打印到命令行：

copy


(defun c:notes ( / file line )
[color=red]  (setq file "C:\\MyNotes.txt")  ;; Filename of Notes file[/color]
 (cond
   ( (not (setq file (findfile file)))
     (princ "\n--> Notes File not Found.")
   )
   ( (not (setq file (open file "r")))
     (princ "\n--> Error Opening File.")
   )
   (t
     (while (setq line (read-line file)) (terpri) (princ line))
     (setq file (close file))
     (textscr)
   )
 )
 (princ)
)

或者，您可以只打开文件：

copy

(defun c:notes2 ( / file )
[color=red]  (setq file "C:\\MyNotes.txt")  ;; Filename of Notes file[/color]
 (if (setq file (findfile file))
   (startapp "notepad" file)
   (princ "\n--> Notes File not Found.")
 )
 (princ)
)