(XD::Pnt:NearPoint)获得点附近的较近或指定距离的点

newer

1. ;|
   
2. 获得点附近的较近或指定距离的点
   
3. 参数：
   
4.    PNT --- 点
   
5.    DIS --- 距离 （如果0，那么距离取拾取框PICKBOX宽度的1.5倍）
   
6.    sym --- 方向，-：左、下，+：右上
   
7. |;
   
8. (defun XD::Pnt:NearPoint (pnt dis sym)
   
9.   (if (= dis 0)
   
10.     (setq dis (* 1.5 (XD::Doc:GetPickboxHeight)))
    
11.   )
    
12.   (mapcar
    
13.     '+
    
14.     pnt
    
15.     (xdrx_vector_product (getvar "UCSXDIR") (apply
    
16.                                               sym
    
17.                                               (list dis)
    
18.                                             )
    
19.     )
    
20.   )
    
21. )
    
22. 
    

;|<br /> 获得点附近的较近或指定距离的点<br /> 参数：<br />    PNT --- 点<br />    DIS --- 距离 （如果0，那么距离取拾取框PICKBOX宽度的1.5倍）<br />    sym --- 方向，-：左、下，+：右上<br /> |;<br /> (defun XD::Pnt:NearPoint (pnt dis sym)<br />   (if (= dis 0)<br />     (setq dis (* 1.5 (XD::Doc:GetPickboxHeight)))<br />   )<br />   (mapcar<br />     '+<br />     pnt<br />     (xdrx_vector_product (getvar "UCSXDIR") (apply<br />                                               sym<br />                                               (list dis)<br />                                             )<br />     )<br />   )<br /> )<br /> <br />

zytyd

经常来学习学习，谢谢

kkt123

经常来学习学习，谢谢
:@:@