品茗新秀 发表于 2014-1-29 18:54:03

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

本帖最后由 品茗新秀 于 2014-1-29 18:56 编辑

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

xyp1964 发表于 2014-1-29 18:54:04


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

品茗新秀 发表于 2014-1-30 12:46:52

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

xyp1964 发表于 2014-1-30 14:07:23

品茗新秀 发表于 2014-1-30 12:46 static/image/common/back.gif
有几个函数看不懂xyp-ss2list
xyp-get-CurveDivNumPtlst

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

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

品茗新秀 发表于 2014-1-30 17:36:02

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

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

品茗新秀 发表于 2014-2-1 11:21:54

自已顶一顶，看看有没全的源码学习
页: [1]
查看完整版本: 如何批量选取指定直径范围圆中的文字，并将该文字变色