[求助]如何取面域內部空位最大的地方?

BDYCAD

我用这个方式来取的这个点, 如果在碰到鞋的样板太奇怪, 这个点O-reg-cpt1 就不在面域内部, 不知是否还有更好的解决方法, 所以请教大家,

(setq O-reg(CAR (ENTSEL"\n请选择一个面域:"))
      vlax-O-reg(vlax-ename->vla-object O-reg)
      O-reg-cpt1(vlax-safearray->list (vlax-variant-value(vla-get-centroid vlax-O-reg)))
      )

LONGXIN

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=36424

BDYCAD