(XD::Entity:3DMESH-Border)获得正方格子3DMESH的边界顶点表

Lispboy

1. ;|
   
2. 获得正方格子3DMESH的边界顶点表
   
3. 参数：
   
4.   e ---- 实体名
   
5. 返回值：边界顶点表
   
6. |;
   
7. (defun XD::Entity:3DMESH-Border (e / grids info m n num vts)
   
8.   (if (= "AcDbPolygonMesh" (cadr (xdrx_object_classname e)))
   
9.     (progn
   
10.       (if (setq info (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))
    
11.         (assoc "Border" (cadr info))
    
12.         (progn
    
13.           (setq vts (XD::Entity:3DMESH-getVertexAt e -1)
    
14.                 grids (XD::Entity:3DMESH-MNCount e)
    
15.                 m (car grids)
    
16.                 n (cadr grids)
    
17.                 num (* m n)
    
18.           )
    
19.           (list (car vts) (nth (1- n) vts) (last vts) (nth (- num n) vts))
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24. )

;|<br /> 获得正方格子3DMESH的边界顶点表<br /> 参数：<br />   e ---- 实体名<br /> 返回值：边界顶点表<br /> |;<br /> (defun XD::Entity:3DMESH-Border (e / grids info m n num vts)<br />   (if (= "AcDbPolygonMesh" (cadr (xdrx_object_classname e)))<br />     (progn<br />       (if (setq info (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))<br />         (assoc "Border" (cadr info))<br />         (progn<br />           (setq vts (XD::Entity:3DMESH-getVertexAt e -1)<br />                 grids (XD::Entity:3DMESH-MNCount e)<br />                 m (car grids)<br />                 n (cadr grids)<br />                 num (* m n)<br />           )<br />           (list (car vts) (nth (1- n) vts) (last vts) (nth (- num n) vts))<br />         )<br />       )<br />     )<br />   )<br /> )