社区 › Auto Lisp › 注释菜单

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

 
注释是否在单独的文件中？
 
如果是这样，这只会将内容打印到命令行：
 

(defun c:notes ( / file line )

(setq file "C:\\MyNotes.txt");; Filename of Notes file

(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)
)或者，您可以只打开文件：
 
(defun c:notes2 ( / file )

(setq file "C:\\MyNotes.txt");; Filename of Notes file

(if (setq file (findfile file))
   (startapp "notepad" file)
   (princ "\n--> Notes File not Found.")
)
(princ)
)
 
在这两种情况下，更改标记为红色的部分以适合您的文件名。

vnanhvu 发表于 2022-7-6 09:45:39

你再帮我一个问题！
Txt文件此外，您可以显示其他文件类型。实例vlx，fas。。。

Lee Mac 发表于 2022-7-6 09:50:56

 
不，它们是受保护的文件。

vnanhvu 发表于 2022-7-6 09:51:18

有没有办法传输文件。VLX，FAS至。LSP！李，你知道吗？

Lee Mac 发表于 2022-7-6 09:56:35

 
不是。VLX的作者保护其内容是有原因的。

查看完整版本: 注释菜单