lisp循环读取列表，lsp循环遍历列表，while使用，vl-princ-to-string字符转换显示

很多人都不明白lsp里面的循环如何使用或者怎么把一个列表里面的值依次读取出来，在通过窗口显示在弹窗上面，来确认是否读的和自己想要的一样，下面小例子，如何循环历遍列表值。并显示出来，lsp循环我知道的有两个函数，一个是repeat，另一个是while，

(defun C:xhh(/ bcc a1 b0 k)

(setq b0 '(1 5 1.1 2 huojibk_com 结束));列表值

(setq bcc (length b0));表的长度

;开始循环

(setq k 0)

(while (> bcc k) ;循环条件

(setq a1 (nth k b0)) ;读取第K位置的值huojibk.com

(alert (vl-princ-to-string a1))

(setq k (1+ K));循环一次记录一次

)

)
复制

其实只要多摸索几次就明白这个循环如何使用了！！