如何批量选取指定直径范围圆中的文字，并将该文字变色

品茗新秀

如何批量选取指定直径范围圆中的文字，并将该文字变色

xyp1964

2. 
   
3. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]
   
4. ;; 特定半径圆内文本变色
   
5. (defun c:tt ()
   
6.   (setq rr  (Udist 1 "" "半径<输入或鼠标直接量取>" rr nil)
   
7.         i -1
   
8.         lst '()
   
9.   )
   
10.   (if (setq ss (ssget (list '(0 . "*CIRCLE") (cons 40 rr))))
    
11.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.       (setq ptn (xyp-get-CurveDivNumPtlst s1 180))
    
13.       (if (setq ss1 (ssget "wp" ptn '((0 . "text"))))
    
14.         (setq lst (append (xyp-ss2list ss1) lst))
    
15.       )
    
16.     )
    
17.   )
    
18.   (if lst (xyp-SubUpd lst 62 1))
    
19.   (princ)
    
20. )

<br /> ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]<br /> ;; 特定半径圆内文本变色<br /> (defun c:tt ()<br />   (setq rr  (Udist 1 "" "半径<输入或鼠标直接量取>" rr nil)<br />         i -1<br />         lst '()<br />   )<br />   (if (setq ss (ssget (list '(0 . "*CIRCLE") (cons 40 rr))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq ptn (xyp-get-CurveDivNumPtlst s1 180))<br />       (if (setq ss1 (ssget "wp" ptn '((0 . "text"))))<br />         (setq lst (append (xyp-ss2list ss1) lst))<br />       )<br />     )<br />   )<br />   (if lst (xyp-SubUpd lst 62 1))<br />   (princ)<br /> )

品茗新秀

有几个函数看不懂xyp-ss2list
xyp-get-CurveDivNumPtlst

xyp1964

品茗新秀 发表于 2014-1-30 12:46
有几个函数看不懂xyp-ss2list
xyp-get-CurveDivNumPtlst

【函　　数】: XYP-SS2LIST
【功　　能】: 选择集转实体名列表
【语　　法】: (XYP-SS2LIST 选择集或实体)

【函　　数】: XYP-GET-CURVEDIVNUMPTLST
【功　　能】: 曲线上等分点集合
【语　　法】: (XYP-GET-CURVEDIVNUMPTLST 实体名 等分数)

品茗新秀

xyp1964 发表于 2014-1-30 14:07
【函　　数】: XYP-SS2LIST
【功　　能】: 选择集转实体名列表
【语　　法】: (XYP-SS2LIST 选择集或实 ...

祝你新年愉快，我还是不够明白

品茗新秀

自已顶一顶，看看有没全的源码学习