用ssget函数怎么创建一个圆形的选择集？

NEU_XWN

如题，如何用ssget函数选择指定点一定距离以内的图元呢？


该贴已经同步到 NEU_XWN的微博

edata

1. ;;圆形转PL点表 cen 圆心 rad半径 divs分段数 fuzz外偏值
   
2. ;;code by edata 2014-8-1
   
3. (defun sk_c->PL(cen rad divs fuzz / i ang lst)
   
4.       (setq i        (/ (* pi 2) divs)
   
5.             ang        0.0
   
6.             lst        '()
   
7.       )
   
8.       (repeat divs
   
9.         (setq lst (cons (polar cen ang (+ rad fuzz)) lst)
   
10.               ang (+ ang i)
    
11.         )
    
12.       )
    
13.       lst
    
14.     )
    
15. ;;测试
    
16. (defun c:tt(/ ss)
    
17.   (and(setq ss(ssget "Wp" (sk_c->PL '(0 0 0) 10 500 0.1)))
    
18.   (sssetfirst nil ss))
    
19.   )

;;圆形转PL点表 cen 圆心 rad半径 divs分段数 fuzz外偏值<br /> ;;code by edata 2014-8-1 <br /> (defun sk_c->PL(cen rad divs fuzz / i ang lst)<br />       (setq i        (/ (* pi 2) divs)<br />             ang        0.0<br />             lst        '()<br />       )<br />       (repeat divs<br />         (setq lst (cons (polar cen ang (+ rad fuzz)) lst)<br />               ang (+ ang i)<br />         )<br />       )<br />       lst<br />     )<br /> ;;测试<br /> (defun c:tt(/ ss)<br />   (and(setq ss(ssget "Wp" (sk_c->PL '(0 0 0) 10 500 0.1)))<br />   (sssetfirst nil ss))<br />   )

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持
   
3. ;; 指定半径的圆形选择集
   
4. (defun c:tt ()
   
5.   (setq dist (Udist 1 "" "半径<输入或鼠标直接量取>" dist nil))
   
6.   (if (and (setq p1 (getpoint "\n基点<退出>: "))
   
7.            (setq ptn (xyp-CirclePtn p1 dist 360))
   
8.            (setq ss (ssget "Wp" ptn))
   
9.       )
   
10.     (progn
    
11.       (xyp-Grvecs-Ptlst ptn 1)
    
12.       (sssetfirst nil ss)
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

;; 需要e派工具箱(XCAD)的支持<br /> ;; 指定半径的圆形选择集<br /> (defun c:tt ()<br />   (setq dist (Udist 1 "" "半径<输入或鼠标直接量取>" dist nil))<br />   (if (and (setq p1 (getpoint "\n基点<退出>: "))<br />            (setq ptn (xyp-CirclePtn p1 dist 360))<br />            (setq ss (ssget "Wp" ptn))<br />       )<br />     (progn<br />       (xyp-Grvecs-Ptlst ptn 1)<br />       (sssetfirst nil ss)<br />     )<br />   )<br />   (princ)<br /> )

434939575

edata 发表于 2014-8-1 16:43

大力支持！

434939575

xyp1964 发表于 2014-8-1 18:00

同样支持！

NEU_XWN

edata 发表于 2014-8-1 16:43

可以实现，非常感谢！