设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 多段线点集最小包围盒
1234下一页
返回列表 发新帖
查看: 5493|回复: 52

[原创] 多段线点集最小包围盒

[复制链接]
/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2017-12-10 14:26:58 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
游客，如果您要查看本帖隐藏内容请回复

  1. ;;[功能] 点集包围盒--短边最短
  2. ;;(_EntmakeLWPOLYLINE (_BoxminB (_HH:GetLwPts (car (entsel)))))
  3. (defun _BoxminB (P / A ANG B C L P1 P2 S X)
  4.   (setq p1 p)
  5.   (setq p2 (cons (last p) p))
  6.   (while (setq a (car p1))
  7.     (setq p1 (cdr p1))
  8.     (setq b (car p2))
  9.     (setq p2 (cdr p2))
  10.     (setq ang (- (angle a b)))
  11.     (setq c (mapcar '(lambda (x) (rotate_pnt x a ang)) p))
  12.     (setq c (list
  13.                (apply 'mapcar (cons 'min c))
  14.                (apply 'mapcar (cons 'max c))
  15.              )
  16.     )
  17.     (setq c (_pnts:box c))
  18.     ;;最小面积
  19.     (setq s (min (distance (car c) (cadr c))
  20.                (distance (cadr c) (caddr c))
  21.             )
  22.     )
  23.     (setq c (mapcar '(lambda (x) (rotate_pnt x a (- ang))) c))
  24.     (setq L (cons (list s c) L))
  25.   )
  26.   (cadar (vl-sort L '(lambda(x y) (< (car x)(car y)))))
  27. )

  29. ;;[功能] 点集包围盒--最小面积
  30. ;;(_EntmakeLWPOLYLINE (_BoxminA (_HH:GetLwPts (car (entsel)))))
  31. (defun _BoxMinA (P / A ANG B C L P1 P2 S X)
  32.   (setq p1 p)
  33.   (setq p2 (cons (last p) p))
  34.   (while (setq a (car p1))
  35.     (setq p1 (cdr p1))
  36.     (setq b (car p2))
  37.     (setq p2 (cdr p2))
  38.     (setq ang (- (angle a b)))
  39.     (setq c (mapcar '(lambda (x) (rotate_pnt x a ang)) p))
  40.     (setq c (list
  41.               (apply 'mapcar (cons 'min c))
  42.               (apply 'mapcar (cons 'max c))
  43.             )
  44.     )
  45.     (setq c (_pnts:box c))
  46.     ;;最小面积
  47.     (setq s (* (distance (car c) (cadr c))
  48.                (distance (cadr c) (caddr c))
  49.             )
  50.     )
  51.     (setq c (mapcar '(lambda (x) (rotate_pnt x a (- ang))) c))
  52.     (setq L (cons (list s c) L))
  53.   )
  54.   (cadar (vl-sort L '(lambda (x y) (< (car x) (car y)))))
  55. )

  57. ;;[功能] 点集包围盒--最小周长
  58. ;;(_EntmakeLWPOLYLINE (_BoxminL (_HH:GetLwPts (car (entsel)))))
  59. (defun _BoxMinL (P / A ANG B C L P1 P2 S X)
  60.   (setq p1 p)
  61.   (setq p2 (cons (last p) p))
  62.   (while (setq a (car p1))
  63.     (setq p1 (cdr p1))
  64.     (setq b (car p2))
  65.     (setq p2 (cdr p2))
  66.     (setq ang (- (angle a b)))
  67.     (setq c (mapcar '(lambda (x) (rotate_pnt x a ang)) p))
  68.     (setq c (list
  69.               (apply 'mapcar (cons 'min c))
  70.               (apply 'mapcar (cons 'max c))
  71.             )
  72.     )
  73.     (setq c (_pnts:box c))
  74.     ;;最小面积
  75.     (setq s (+ (distance (car c) (cadr c))
  76.                (distance (cadr c) (caddr c))
  77.             )
  78.     )
  79.     (setq c (mapcar '(lambda (x) (rotate_pnt x a (- ang))) c))
  80.     (setq L (cons (list s c) L))
  81.   )
  82.   (cadar (vl-sort L '(lambda(x y) (< (car x)(car y)))))
  83. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2017-12-10 14:29:29 | 显示全部楼层
看看 黄总 的代码。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2017-12-10 14:46:44 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
是不是 做个 通用的 点集的 最小包围盒更好呢？ 如果是多段线的话，求出顶点表，然后调用这个函数。

点评

/db_自贡黄明儒_
通用的不是highflybird大师和N版已经做了么？  发表于 2017-12-10 18:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

liunian0524

已领礼包: 812个

财富等级: 财运亨通
发表于 2017-12-10 16:55:36 | 显示全部楼层
感谢黄大侠的分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2017-12-10 18:20:48 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 /db_自贡黄明儒_ 于 2017-12-10 19:29 编辑
marting 发表于 2017-12-10 14:46

后来我想了一下，以上方法并不严谨，还是要先凸包扫描。highflybird大师发的那个MinAreaRectangle确实难理解，我这个通俗些。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2017-12-10 22:28:46 | 显示全部楼层
aeo，如果您要查看本帖隐藏内容请回复
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2017-12-10 23:00:34 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
c++代码在这里，需要转换成 arx
http://blog.csdn.net/mypsq/article/details/40076075

描述过程在这里 ，反正光看描述，是没法理解的
http://bbs.xdcad.net/thread-706965-1-1.html


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2017-12-10 23:28:50 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2017-12-10 18:20

用凸包，那不就是旋转卡壳法了嘛。

点评

/db_自贡黄明儒_
旋转卡壳求得凸包是第一步，最小周长或者面积是第二步。本程序是第二步。  发表于 2017-12-11 10:21
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

sicky111

已领礼包: 6468个

财富等级: 富甲天下
发表于 2017-12-11 00:01:58 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
回复看看。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

HLCAD

已领礼包: 5679个

财富等级: 富甲天下
发表于 2017-12-11 08:41:34 | 显示全部楼层
感谢黄大侠的分享程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yjch

已领礼包: 3191个

财富等级: 富可敌国
发表于 2017-12-11 08:54:03 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢，思路打开，好好学习天天向上
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

819534890

已领礼包: 2963个

财富等级: 家财万贯
发表于 2017-12-11 11:00:03 | 显示全部楼层
回复学习，学习分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yoyoho

已领礼包: 9333个

财富等级: 富甲天下
发表于 2017-12-11 11:19:39 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
感谢分享学习！！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
发表于 2017-12-11 12:02:20 | 显示全部楼层
(list (apply 'mapcar (cons 'min pts)) (apply 'mapcar (cons 'max pts)))
跟这个有什么不同??
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2017-12-11 12:11:47 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
q3_2006 发表于 2017-12-11 12:02

点集最小包围盒，不一定是正交方向的矩形框

搜狗截图20171211121142.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
1234下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-25 21:33 , Processed in 0.395659 second(s), 64 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表