Im Folgenden finden Sie ein einfaches AutoLISP-Programm, das zeigt, wie die WCS-Einfügepunktkoordinaten für eine Auswahl von Blockverweisen in eine durch Kommas getrennte CSV-Datei extrahiert werden.
(defun c:blk2csv ( / e f i p s ) (if (and (setq s (ssget '((0 . "INSERT")))) (setq f (getfiled "" "" "csv" 1)) (setq f (open f "w")) ) (progn (repeat (setq i (sslength s)) (setq i (1- i) e (ssname s i) p (trans (cdr (assoc 10 (entget e))) e 0) ) (write-line (apply 'strcat (mapcar 'strcat (mapcar 'rtos p) '("," "," ""))) f) ) (close f) ) ) (princ) )