[求助][LISP]紧急求救

wb0815 · 发表于 2003-11-25 17:05:00

帖一个吧摘自xdcad.com

给朵花吧

wb0815 · 发表于 2003-11-25 17:22:00

(defun C:GetArea ( / AcadObj AcadEnt pt msg)
(setq AcadEnt (car (entsel)))
(setq AcadObj (vlax-ename->vla-object AcadEnt))
(setq msg "")
(if (member (vla-get-objectname acadobj)
'("AcDbCircle" "AcDbCircle" "AcDbEllipse" "AcDbSpline"
"AcDbPolyline" "AcDb3dPolyline" "AcDb2dPolyline" "AcDbRegion" "AcDb3dSolid"))
(progn
(command "_.area" "object" acadent)
(setq msg (strcat msg "面积是："
(rtos (/ (getvar "area") 1000000))
"平方米\n"
))
(setq msg (strcat msg "周长是："
(rtos (/ (getvar "

erimeter") 1000))
"米\n"
))
)
(setq msg "没有面积或周长信息。\n")
)

(setq msg (strcat "物体：" (vla-get-objectname acadobj) "\n\n" msg))
(princ msg)
(alert msg)

(princ)
)

无痕 · 发表于 2004-4-14 23:30:00

本帖最后由作者于 2004-4-15 3:23:24 编辑

哈哈，该我上场了吧？！

哦，mm上来了。那。。。下次吧：（

楼上搞错了吧？人家是要求hatch的面积，龙龙仔说的得边界后如何求，不是说如何求曲线面积，而是说如何判断哪些面积该加，哪些该减。哪些要求交。。。

cqnj023 · 发表于 2004-4-21 23:17:00

能不能用填充时判断孤岛的办法来决定哪该加，哪该减。

账号		自动登录	找回密码
密码			注册

[求助][LISP]紧急求救

本帖子中包含更多资源