【越飞越高讲堂12】最小包围盒和最大距离点对

zark

楼主花了很多时间和精力，太无私了

dkj0322

谢谢  楼上的分享与分析

JQKA

谢谢  楼主花了很多时间和精力，太无私了
凸包扫描法效率确实很高!

xjf

    强烈学习楼主的分享精神

iuguhsnait

学习一下，看看有没有目前用的上的代码。。

llyidong

很需要一个能求三维实体的程式不知楼主能否帮忙

xyp1964

2. (defun c:tt ()
   
3.   (CMDLA0)
   
4.   (setq ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
   
5. i   -1
   
6. ptn '()
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (setq ptn (append (xyp-get-CurveDivEqualDist s1 100) ptn))
   
10.   )
    
11.   (xyp-MinBoxWithPtn ptn nil)
    
12.   (CMDLA1)
    
13. )
    

(defun c:tt ()<br />   (CMDLA0)<br />   (setq ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))<br /> i   -1<br /> ptn '()<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq ptn (append (xyp-get-CurveDivEqualDist s1 100) ptn))<br />   )<br />   (xyp-MinBoxWithPtn ptn nil)<br />   (CMDLA1)<br /> )<br />

yoyoho

感谢highflybir版主分享学习
谢谢您!

zlg258369

强烈支持

dengtui

楼主好人，先学习一下。