【求助】三维实体的投影二维轮廓（算法原理）

EL_JAY

三维实体的投影二维轮廓（算法原理）
求助一个算法，已知三维实体的各个面的轮廓点。求出它的投影轮廓。
也就是：已知三维轮廓点的List，求出投影二维轮廓的算法原理。
本该在算法板块发的，在这发帖是因为看Lisp板块比较活跃，关键是不少算法高手在此。
图示以正方体为例：

vectra

只是求点的投影还是很方便的，但如果你要求外轮廓就不是那么容易了。

.net里可以用Point3d的Convert2d方法，
lisp可以研究一下trans函数，坛子里有专门的文章介绍这个函数。

ivde

点到平面的投影 Point3d.OrthoProject

EL_JAY

主要是求外轮廓

ivde

command slice

鱼与熊掌

论坛里的高飞鸟讨论过这个问题  黄工已经给出了源代码.
具体思路是根据物体的矩阵.先转换回世界坐标系.  获取get~~bpx之后
在转回原来的位置. 实现求得外框.

EL_JAY

精确外轮廓，不是要外框。不知道这么理解对不对？
主要是三维实体的面轮廓投影后有点，线，面 三个情况，去掉点，线，利用面域合并。
可以实现轮廓。因为我会是CAD之外用，不能用面域合并。看看高手们有没有好的算法

Gu_xl

加载XLRX_API:

1. (defun c:tt ()
   
2.   (setq e (car (entsel "\n选择三维实体:")))
   
3.   (xlrx-copy e)
   
4.   (setq s (xlrx-explode e))
   
5.   (setq s (xlrx-region->poly s))
   
6.   (setq s (XLRX-Curve-GetOutPoly s))
   
7.   (setq pt (getpoint "\n基点："))
   
8.   (if (null pt)
   
9.     (setq pt (getvar 'lastpoint))
   
10.   )
    
11.   (xlrx-move s
    
12.              (trans pt 1 0)
    
13.              (trans (getpoint pt "\n位置点:") 1 0)
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   (setq e (car (entsel "\n选择三维实体:")))<br />   (xlrx-copy e)<br />   (setq s (xlrx-explode e))<br />   (setq s (xlrx-region->poly s))<br />   (setq s (XLRX-Curve-GetOutPoly s))<br />   (setq pt (getpoint "\n基点："))<br />   (if (null pt)<br />     (setq pt (getvar 'lastpoint))<br />   )<br />   (xlrx-move s<br />              (trans pt 1 0)<br />              (trans (getpoint pt "\n位置点:") 1 0)<br />   )<br />   (princ)<br /> )

【KAIXIN】

极少用CAD整3维

999999

谢谢楼主分享