(XD::Geom:9pt)获得实体或选集的9个特征点

Lispboy

1. ;|
   
2. 获得实体或选集的9个特征点
   
3. 参数：
   
4.    e --- 实体或选择集
   
5. 返回值：
   
6.    点表
   
7. 说明：特征点，左下第一点，然后逆时针，中心点最后
   
8. |;
   
9. (defun XD::Geom:9pt (e / box)
   
10.    (setq box (XD::Entity:BOX e))
    
11.    (XD::Geom:BOX->9PT box)
    
12. )
    
13. 
    

;|<br /> 获得实体或选集的9个特征点<br /> 参数：<br />    e --- 实体或选择集<br /> 返回值：<br />    点表<br /> 说明：特征点，左下第一点，然后逆时针，中心点最后<br /> |;<br /> (defun XD::Geom:9pt (e / box)<br />    (setq box (XD::Entity:BOX e))<br />    (XD::Geom:BOX->9PT box)<br /> )<br /> <br />

renyong119

好东西！！就得顶

dyjwyqz5221

顶顶顶，好

maker_lv

好东西！！就得顶