谁有求面积的lisp小程序撒

微信公开课小程序热门讨论「谁有求面积的lisp小程序撒」最新回复-;从图中选取图元求其面积byDnBc1(defunc:qmj()(vlloadcom)(while(setqent(car(entsel\n请选取图元回车退出:)))(setqobj(vlaxenamevlaobjectent)mj(vlcatchallapplyvlagetarea(listobj)))(if(vlcatchallerrorpmj)(progn(princ\n所选取的图元不具有面积属性!)(alert所选取的图元不具有面积属性!))(progn(princ(strcat\n所选取图元的面积=(rtosmj23)))(alert(strcat所选取图元的面积=(rtosmj23))))))(princ))
平行四边形：(defunpingxingsibianxing-S(ah)(*ah))三角形：(defuntri-S(ah)(/(*ah)2))梯形：(defuntixing-S(abh)(*h(/(+ab)2 ))) 更多有关「谁有求面积的lisp小程序撒」的疑问请扫码关注微信公开课+小程序！了解更多