浓缩精典vlisp/vba函数

希望大家在此贴上自已写的精典vlisp/vba函数,要求是程序短小精练,不超过二十行,但是功能实用

我先来

;;;获取样条曲线,多段线各顶点坐标,返回顶点坐标组成的表
;;;师兄 2007/4/3 QQ361865648
(vl-load-com)
(defun c:getallpt(/ en enlst x)
(setq en(car(entsel)));_获得对象,提示时请选择符合条件的对象
(setq enlst(entget en));_取对象数据表
(vl-remove-if ’(lambda (x) (/= (car x) 10)) ;_稍加修改可改变程序功能
;;;在此可作进一步处理,获得更强之功能
enlst)
)