因此，我试图了解到底是如何创建自定义TypeLib的（由该线程提示），意外地发现了这个很棒（现在没有文档记录）的编译器函数，名为PRAGMA，它使您能够保护/取消保护LISP符号。
你们中的许多人可能早在2000年初就知道这一点，但我就像一个刚找到他们最喜欢的新玩具的孩子！在论坛中搜索没有结果，所以我想与大家分享。
例如，如果您有一些常用的子函数或自定义变量，PRAGMA将使您能够保护VLIDE中的符号（使其变为蓝色）：
- (setq acadApp (vlax-get-acad-object))
- (setq activeDoc (vla-get-activedocument acadApp))
- (defun FOO () "FOO")
- (pragma '((protect-assign acadApp activeDoc FOO)))
。。。请注意，加载pragma语句后，符号“acadApp”、“activeDoc”和“FOO”变为蓝色。
要取消对符号的保护，只需加载以下pragma语句：
你可以将protect语句添加到你的ACADDOC中。lsp，甚至*。MNL文件。这对于定制应用程序来说甚至是件好事。
享受 | 
置顶卡
