(defun C:listLSP ( / lst L i S fl fn)
;---------------------------
;(setq lst CORE-SYMBOL-LIST)
;(setq lst COM-SYMBOL-LIST)
(setq lst (vl-remove-if-not (function (lambda (x) (wcmatch x "C:*"))) (atoms-family 1)))
;(vlax-safearray->list (vlax-variant-value (vlax-invoke-method (vlax-get-acad-object) 'listarx)))
;---------------------------
(setq fl (open (setq fn "List.txt") "w" ))
(setq lst (vl-sort lst '<) L (length lst) i 0 S "")
(repeat L
(write-line (nth i lst) fl)
(setq i (1+ i))
);repeat
(close fl)
(startapp "notepad" fn)
);
(c:listlsp)

Advertisements