（XD::Geom:Pnts2Rec）求给定点表的、最小包围框的、对角矩形点表

HLCAD

1. ;;; （XD::Geom:Pnts2Rec）求给定点表的、最小包围框的、对角矩形点表
   
2. ;;; 程序适应WCS和UCS。
   
3. ;;; EX: (XD::Geom:Pnts2Rec (list(getpoint)(getpoint)(getpoint)(getpoint)))
   
4. (defun XD::Geom:Pnts2Rec (pts)
   
5.   (mapcar '(lambda(x) (apply 'mapcar (cons x pts))) (list 'min 'max))
   
6.   )
   

;;; （XD::Geom:Pnts2Rec）求给定点表的、最小包围框的、对角矩形点表<br /> ;;; 程序适应WCS和UCS。<br /> ;;; EX: (XD::Geom:Pnts2Rec (list(getpoint)(getpoint)(getpoint)(getpoint)))<br /> (defun XD::Geom:Pnts2Rec (pts)<br />   (mapcar '(lambda(x) (apply 'mapcar (cons x pts))) (list 'min 'max))<br />   )<br />

1. ;;; （XD::Geom:Pnts2Rec4）求给定点表的、矩形外围框的、4个角点表
   
2. ;;; 参数: Pts ----2个以上的、2维或3维点列表
   
3. ;;; EX: (XD::Geom:Pnts2Rec4 (list(getpoint)(getpoint)(getpoint)(getpoint)))
   
4. (defun XD::Geom:Pnts2Rec4 (pts)
   
5.   (setq pts (mapcar '(lambda(x) (apply 'mapcar (cons x pts))) (list 'min 'max)))
   
6.   (list (car pts) (list(caar pts)(cadadr pts)) (cadr pts) (list(caadr pts)(cadar pts)))
   
7.   )
   
8. 
   

;;; （XD::Geom:Pnts2Rec4）求给定点表的、矩形外围框的、4个角点表<br /> ;;; 参数: Pts ----2个以上的、2维或3维点列表<br /> ;;; EX: (XD::Geom:Pnts2Rec4 (list(getpoint)(getpoint)(getpoint)(getpoint)))<br /> (defun XD::Geom:Pnts2Rec4 (pts)<br />   (setq pts (mapcar '(lambda(x) (apply 'mapcar (cons x pts))) (list 'min 'max)))<br />   (list (car pts) (list(caar pts)(cadadr pts)) (cadr pts) (list(caadr pts)(cadar pts)))<br />   )<br /> <br />

yjch

很是感谢，先、向您学习，好好学习天天向上

守仁格竹GM

应该不是最小  只能算是 外接矩形框

HLCAD

守仁格竹GM 发表于 2016-9-14 08:41

你是对的，不能说是严格意义上的最少包围框

newer

能不能加个方向向量，也能适合UCS轴和任意方向上的包围盒？

HLCAD

newer 发表于 2016-9-14 10:29

程序是适应UCS和WCS的。这个跟你的点表有关系，如果点表是UCS中取的值，则角点值也是UCS的，WCS道理也一样

newer

HLCAD 发表于 2016-9-14 11:43

我看你用的 MIN MAX， 如果要得到矩形四个点，不还得根据UCS去算吗， 能不能直接返回矩形的四个点 。 这个矩形 可以平行于WCS,也可以平行UCS，甚至给个方向，平行于那个方向。

HLCAD

newer 发表于 2016-9-14 12:02

1. ;;; （XD::Geom:Pnts2Rec4）求给定点表的、矩形外围框的、4个角点表
   
2. ;;; 参数: Pts ----2个以上的、2维或3维点列表
   
3. ;;; EX: (XD::Geom:Pnts2Rec4 (list(getpoint)(getpoint)(getpoint)(getpoint)))
   
4. (defun XD::Geom:Pnts2Rec4 (pts)
   
5.   (setq pts (mapcar '(lambda(x) (apply 'mapcar (cons x pts))) (list 'min 'max)))
   
6.   (list (car pts) (list(caar pts)(cadadr pts)) (cadr pts) (list(caadr pts)(cadar pts)))
   
7.   )
   
8. 
   

;;; （XD::Geom:Pnts2Rec4）求给定点表的、矩形外围框的、4个角点表<br /> ;;; 参数: Pts ----2个以上的、2维或3维点列表<br /> ;;; EX: (XD::Geom:Pnts2Rec4 (list(getpoint)(getpoint)(getpoint)(getpoint)))<br /> (defun XD::Geom:Pnts2Rec4 (pts)<br />   (setq pts (mapcar '(lambda(x) (apply 'mapcar (cons x pts))) (list 'min 'max)))<br />   (list (car pts) (list(caar pts)(cadadr pts)) (cadr pts) (list(caadr pts)(cadar pts)))<br />   )<br /> <br />

XDSoft

HLCAD 发表于 2016-9-14 14:45

编辑下，提供到一楼的帖子吧，谢谢！