谢谢Gilsoto,
您可以使用atoms系列获得已定义符号(所有命令和符号枚举)的列表。
例子:
- (defun c:GetBoundedSymbols (/ f)
- (if (and (setq f (getfiled "Output" "" "txt" 1))
- (setq f (open f "w")))
- (progn
- (foreach x (atoms-family 1)
- (write-line x f))
- (close f)))
- (princ))
或者这颗议员的宝石
atoms15.zip |