API应用-三角网生成工具

XDSoft

三角网生成工具，选取点实体对象。

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((0 . "POINT"))))
   
3.     (progn
   
4.       (setq pnts (apply
   
5.                    'append
   
6.                    (mapcar
   
7.                      '(lambda (x)
   
8.                         (xdrx_entity_getstretchpoint x)
   
9.                       )
   
10.                      (xdrx_pickset->ents (ssget))
    
11.                    )
    
12.                  )
    
13.       )
    
14.       (xdrx_points_Delaunay pnts t)
    
15.     )
    
16.   )
    
17. )
    
18. 
    

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "POINT"))))<br />     (progn<br />       (setq pnts (apply<br />                    'append<br />                    (mapcar<br />                      '(lambda (x)<br />                         (xdrx_entity_getstretchpoint x)<br />                       )<br />                      (xdrx_pickset->ents (ssget))<br />                    )<br />                  )<br />       )<br />       (xdrx_points_Delaunay pnts t)<br />     )<br />   )<br /> )<br /> <br />

summercad

最好有个GIF动画例子

XDSoft

summercad 发表于 2014-12-9 12:40
最好有个GIF动画例子

很简单了，就是屏幕上的点，框选下，就爱变成三角网了，如下图

dnbcgrass

XDSoft：
建议：
     1、(xdrx_points_Delaunay pnts t)也可以返回闭合三维多线形式的所有三角形组成的选择集。
     2、增加一个点在三角形的查询函数，如果查到则返回三角形三个点的坐标，否则返回nil，函数形式为：
        (xdrx_Delaunay_Tsearch  要查询的点  (xdrx_points_Delaunay pnts))。

newer

dnbcgrass 发表于 2014-12-28 11:28
XDSoft：
建议：
     1、(xdrx_points_Delaunay pnts t)也可以返回闭合三维多线形式的所有三角形组成的 ...

2 、 点在三角形内查询工具 开源函数库好像提供了。

1、你的意思是绘制同时也返回点表？ 其实你可以根据返回点表自己画这些的。

newer

dnbcgrass 发表于 2014-12-28 11:28
XDSoft：
建议：
     1、(xdrx_points_Delaunay pnts t)也可以返回闭合三维多线形式的所有三角形组成的 ...

你看下这个帖子：  http://bbs.xdcad.net/thread-677481-1-2.html

XD::Geom:QueryElev 查询三角网指定位置的高程值