Question

谁有求面积的lisp小程序撒

Answer 1

;从图中选取图元求其面积 by DnBc1
(defun c:qmj()
(vl-load-com)
(while (setq ent (car (entsel "\n请选取图元<回车退出>:")))
(setq obj (vlax-ename->vla-object ent)
mj (vl-catch-all-apply 'vla-get-area (list obj))
)
(if (vl-catch-all-error-p mj)
(progn
(princ "\n所选取的图元不具有面积属性!")
(alert "所选取的图元不具有面积属性!")
)
(progn
(princ (strcat "\n所选取图元的面积=" (rtos mj 2 3)))
(alert (strcat "所选取图元的面积=" (rtos mj 2 3)))
)
)
)
(princ)
)

Answer 2

平行四边形：
(defun pingxingsibianxing-S(a h)
(* a h)
)
三角形：
(defun tri-S(a h)
(/ (* a h) 2)

)
梯形：
(defun tixing-S(a b h)
(* h (/ (+ a b) 2 ))

)