Cómo obtener datos mediante lisp dentro de cad; cómo escribir;

;* Convierta la tabla representada por cadenas en una tabla representada por números reales

(lanzamiento defun (l / recuento de banderas, longitud, lista de elementos de datos únicos, temperatura)

(if l (progn

(para cada elemento l

(setq count 1 flag T slength (stren item) itemlist nil)

(mientras (<= longitud de recuento)

(setq single (substr item count 1))

(if (member single '("X" "x" "*" ))

(progn

(setq data (atof (substr elemento 1 (1 recuento)))))

(repeat (atoi (substr elemento 1 (1 recuento) (1+ recuento) )))

(setq itemlist (añadir lista de elementos (lista de datos))))

(setq count (1+ longitud) marca nula)

); progn

(setq recuento (1+ recuento))

); if flag

（setq temp (añadir temp (lista (atof item))))

(setq temp (añadir temp itemlist) )

); -flag

); foreach

temp

)); if-pgn

);