(XD::Entity:3DMESH-getVertexAt)获得3DMESH指定索引顶点(UCS)

Lispboy

1. ;|
   
2. 获得3DMESH指定索引顶点(UCS)
   
3. 参数：
   
4.   e ---- 实体名
   
5.   index- 索引值
   
6. 
   
7. 返回值：如果顶点0<=index<index,返回指定顶点，否则返回所有顶点
   
8. |;
   
9. (defun XD::Entity:3DMESH-getVertexAt (e index / _pl m n)
   
10.   (if (setq info (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))
    
11.     (assoc "Border" (cadr info))
    
12.     (progn
    
13.       (setq _pl (xdrx_getpropertyvalue e "vertices")
    
14.             m (xdrx_getpropertyvalue e "mSize")
    
15.             n (xdrx_getpropertyvalue e "nSize")
    
16.       )
    
17.       (setq _pl (XD::Pnts:WCS2UCS _pl))
    
18.       (if (and
    
19.             (>= index 0)
    
20.             (< index (* m n))
    
21.           )
    
22.         (nth index _pl)
    
23.         _pl
    
24.       )
    
25.     )
    
26.   )
    
27. )

;|<br /> 获得3DMESH指定索引顶点(UCS)<br /> 参数：<br />   e ---- 实体名<br />   index- 索引值<br /> <br /> 返回值：如果顶点0<=index<index,返回指定顶点，否则返回所有顶点<br /> |;<br /> (defun XD::Entity:3DMESH-getVertexAt (e index / _pl m n)<br />   (if (setq info (assoc e $XDTB_GLOBAL_VAR_3DMESH_ENTITY_LIST))<br />     (assoc "Border" (cadr info))<br />     (progn<br />       (setq _pl (xdrx_getpropertyvalue e "vertices")<br />             m (xdrx_getpropertyvalue e "mSize")<br />             n (xdrx_getpropertyvalue e "nSize")<br />       )<br />       (setq _pl (XD::Pnts:WCS2UCS _pl))<br />       (if (and<br />             (>= index 0)<br />             (< index (* m n))<br />           )<br />         (nth index _pl)<br />         _pl<br />       )<br />     )<br />   )<br /> )