楼主花了很多时间和精力,太无私了
谢谢楼上的分享与分析
谢谢楼主花了很多时间和精力,太无私了
凸包扫描法效率确实很高!
强烈学习楼主的分享精神
学习一下,看看有没有目前用的上的代码。。
很需要一个能求三维实体的程式不知楼主能否帮忙
(defun c:tt ()
(CMDLA0)
(setq ss(ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
i -1
ptn '()
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ptn (append (xyp-get-CurveDivEqualDist s1 100) ptn))
)
(xyp-MinBoxWithPtn ptn nil)
(CMDLA1)
)
感谢highflybir版主分享学习
谢谢您!
强烈支持
楼主好人,先学习一下。