- 积分
- 28255
- 明经币
- 个
- 注册时间
- 2003-4-2
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|

楼主 |
发表于 2011-6-22 20:24:27
|
显示全部楼层
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
不考虑是否封闭,自己添加一个附加过滤就可以了,下次升级时我会加上 |
|