89楼的图不显示，不知道什么问题。如果是天正实体的问题，请传个图上来。
曲线面积可以简单由下面函数求得：
(defun lwarea (ent)
(if (= (type ent) 'ENAME) (setq ent (vlax-ename->vla-object ent)))
(if (wcmatch (vla-get-ObjectName ent) "AcDbPolyline,AcDbEllipse,AcDbCircle,AcDbArc,AcDb2dPolyline,AcDbSpline")
(vla-get-area ent)
);;if
);;defun
不考虑是否封闭，自己添加一个附加过滤就可以了，下次升级时我会加上
支持一下，
楼主有心了，多谢。
可以方便选择过滤，使用啊
89楼应该是我弄错了，程序没问题，不好意思。建议增加几个对象：MULTILEADER、VIEWPORT，通用里面增加个天正比例，还有颜色选择上，不管图元的颜色是不是随层，都直接获取颜色号（这个在晓东的时候就提过）
mj0000 发表于 2011-7-2 08:56 static/image/common/back.gif
89楼应该是我弄错了，程序没问题，不好意思。建议增加几个对象：MULTILEADER、VIEWPORT，通用里面增加个天正 ...
严重支持关于颜色的这个提议——希望可以不管颜色是否随层，都可以准确提取颜色编号并且可以按编号进行过滤
按颜色选择是比较简单的，只是用这个软件选速度慢一点，过几天加上这个功能。要选择速度快还是要另写个专用的颜色选择程序。颜色的“Byblock"一般显示是黑白的，是否就按7号颜色选择？
MULTILEADER的哪些特性适合过滤选择？VIEWPORT我还不会弄，好象选样本实体的时候总是选中VIEWPORT的多义线边框？
天正比例本来觉得没啥用，就没放进去，有实用价值？
颜色选择我原来加过，没感觉到慢，方便第一。
天正比例我自己添加过，用的时候还是比较多的，因为我图纸用参照的，很多比例会放同一个图纸里面，但是天正会把相同的图元放到同一个图层，所以有时需要选择不同的比例放不同的图层。
MULTILEADER偶尔会用下，特性可以显示 箭头样式和文字内容。
VIEWPORT我曾经弄过，不过多变形视口不知道怎么弄
("VIEWPORT"
((-4 "视口")
(69 "视口 ID")
)
("FJ" ("FJ1" "比例 1:" (rtos (/ (DXF 45 slent) (DXF 41 slent)) 2 0)))
)
VIEWPORT 用 entsel 选样本是只能选择多段线，可以用(ssget ":S"）选择后用(ssname ss index)取得。
期待新版。。。。。。。。。。
楼主确实是太强了，我脑中构想的准备写的，不及楼主的十分之一功能，大开眼界了
好东西是要支持的。