求助：如何找出封闭图形的最大水平距离？？急

june_24

请教高手，如何找出封闭图形的最大水平距离？？就是封闭图形与一水平线相交，相交的最大距离。急啊。

wyj7485

Obj.GetBoundingBox MinP, MaxP

june_24

<br>

是封闭图形与一水平线相交，相交的最大距离呀. 这两个点在这个封闭图形中,必须x坐标相等啊。<br>

et27

我的解题思路：

将封闭图形的边界画成多段线，取多段线顶点，在各顶点画水平直线与多段线求交点。取出交点并与顶点形成多个四边形，通过一个函数，输入四个顶点求其最大水平距离，考察这个四边形，如果左右两边均是直线，最大距离可以通过两直线的斜率直接用公式算，如果为二次曲线，可能要用插值法求，可以利用几何知识去掉很多区间，例如两曲线都是外凸的话，所求点必然在两曲线中点之间。等等。三次曲线也一样的。

求出所有四边形的最大水平距离后，进行比较，就可以得出结果。

仅是构思，没有动手，楼主看看有否帮助。

june_24

谢谢各位的解答。

MJTD_7777

也许这个程序能给你一点帮助，虽然他是LISP的

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=41455&extra=&page=3

(DEFUN C:MJ ()
  (if (not (entlast))
    (progn
      (alert "老大图形里总得有点东西再用吧。")
      (exit)
      )
    )
 (SETvar "CMDECHO" 0)
 (SETQ TXTH (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETvar "CMLSTYLE")))))
 (COMMAND ".UNDO" "BE")
 (SETvar "CECOLOR" "1")
 (WHILE (SETQ PT (GETPOINT "\nSelect a Point 选取点："))
   (setq LastHand  (cdr(assoc 5 (entget (entlast)))))
   (COMMAND "BPOLY" PT "")
   (SETQ EN (ENTLAST))
   (IF (/= LastHand (cdr(assoc 5 (entget en)))) ;不等于才能说明已经有实体生成  
     (PROGN
       (COMMAND "AREA" "O" EN)
       (SETQ AA (GETvar "AREA"))
       (IF (> TXTH 0)
  (COMMAND "TEXT" PT 0 (RTOS AA 2 3))
  (COMMAND "TEXT" PT 3 0 (RTOS AA 2 3))
  )
       (ENTDEL EN)
       )
     (alert "你应该选择内部点，不然我不干。")
     )
   )
  (COMMAND ".UNDO" "E")
  (SETvar "CECOLOR" "BYLAYER")
 
  (PRIN1)
  )
(princ "\n虽然这个 MJ 的命令名总能让你想起‘麻将’但是我真的是用来计算面积的。\n\n")