june_24 发表于 2005-7-21 10:13:00

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

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

wyj7485 发表于 2005-7-21 11:32:00

Obj.GetBoundingBox MinP, MaxP

june_24 发表于 2005-7-21 13:15:00


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

et27 发表于 2005-7-22 13:39:00

我的解题思路：
将封闭图形的边界画成多段线，取多段线顶点，在各顶点画水平直线与多段线求交点。取出交点并与顶点形成多个四边形，通过一个函数，输入四个顶点求其最大水平距离，考察这个四边形，如果左右两边均是直线，最大距离可以通过两直线的斜率直接用公式算，如果为二次曲线，可能要用插值法求，可以利用几何知识去掉很多区间，例如两曲线都是外凸的话，所求点必然在两曲线中点之间。等等。三次曲线也一样的。
求出所有四边形的最大水平距离后，进行比较，就可以得出结果。
仅是构思，没有动手，楼主看看有否帮助。

june_24 发表于 2005-9-21 10:10:00

谢谢各位的解答。

MJTD_7777 发表于 2005-9-21 11:02:00

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

(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")
页: [1]
查看完整版本: 求助：如何找出封闭图形的最大水平距离？？急