lisp编写一程序

xuyan769078907

求lisp程序，如何做到图片中内容？！
谢谢高手指点！！！
(defun c:guanwang(/ ss lenofpipe index ename)
(setq ss(ssget))
(setq lenofpipe(sslength ss))
(repeat lenofpipe
(setq ename(entget (entlast)))
)
)