Autocad lisp how does one select entlast

and dialog def'n is okay? (progn (set_tile 'title' fn) Place filename in dialog title area (start_list 'list_box') Read file's contents into list box ) progn ) if-1 -(SetQ ly fn j (StrLen ly) n 1 endname 0 startname 1)(Repeat j (SetQ sub$ (SubStr ly n 1)) (if (or (= (Ascii sub$) 58) (= (Ascii sub$) 92)) (SetQ startname n)) (if (= (Ascii sub$) 46) (SetQ endname (1- n))) (SetQ n (1+ n)))(SetQ ly (SubStr ly (+ 1 startname)))(if (/= endname 0) (SetQ ly (SubStr ly 1 (- endname startname))))(SetQ extension (Strcase (substr fn (+ 2 endname))))) k = Length of number inc = number of digis after decimal point(defun DecPlace (z kk) (setq inc -1) (while (not (or (and (/= kk (setq inc (1+ inc))) (= '.' (substr z (- kk inc) 1)) ))))) - Removes spaces left and right of string(Defun LspcR () (SetQ nn 1) (While (= (Substr rec nn 1) ' ') (SetQ nn (1+ nn)) ) (SetQ rec (SubStr rec nn)) (SetQ n 1) (While (/= (Substr rec n 1) ' ') (SetQ n (1+ n)) )) -PTFILE Main prog- Drawing a point list with/without eleveation. 00 will cause the computer to freeze.The lisp routine is as follows: Dialog for point list file(defun ddopen (koteret ext) (setQ fn '~' Assume a ~ fd nil Assume no file descriptor ) (while (= '~' fn) (if (= 1 (setq fn (getfiled koteret '' ext 4))) (setq fn (getstring ' List of Files ')) ) ) while (if (and fn Got filename? -1 (setq fd (open fn 'r')). for instance 78.00, the other file consist of the same points but with elevations that that ends with digits other then zero. I submit here two files in which one of them has elevations that ends with zeros. the elevation of the point are converted from real numbers to a string and is noted next to the point.

Here is a Lisp routine that will draw some points with elevations.

Autocad lisp how does one select entlast