查找文字后进行标记

弘毅

图形中有许多单行文本，具体内容类似：AA1-11m、AA2-34m、AA34-6m、AA3、AA55等等，要求查找某一文字，并用圆圈将选择的文字圈住，同时统计出文字数量，例如以查找AA34为例，执行命令后，效果如下
1、在命令行内输入或鼠标选择已有的AA34，
2、将选中的AA34画圈做个标记（方便醒目地直观看到）
3、同时得到结果，例如命令行内显示：找到AA34，共**个

LIYOGNZHI

你好，你是想用lisp程序来实现这个功能吗

LIYOGNZHI

我写了一个，不一定是最好的，但能实现你需要的功能，希望能帮到你
(defun c:cz(/ aa bb xx yy ss i k os en en_data txt str p1 p2 pc rad)
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq aa (getstring "\n需要选择的文字："))
  (princ "\n选择文字范围！")
  (setq ss (ssget))
  (setq i 0 k 0)
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (setq en_data (entget en))
    (setq txt (cdr (assoc 0 en_data)))
    (if (= txt "TEXT")
      (progn
        (setq str (cdr (assoc 1 en_data)))
        (if (= str aa)
          (progn
            (setq bb (textbox en_data))
            (setq p1 (cadr bb))
            (setq xx (/ (car p1) 2))
            (setq yy (/ (cadr p1) 2))
            (setq p2 (cdr (assoc 10 en_data)))
            (setq pc (polar (polar p2 0 xx) (/ pi 2) yy))
            (setq rad (sqrt (+ (* xx xx) (* yy yy))))
            (command "circle" pc rad)
            (command "chprop" (entlast) "" "c" 1 "")
            (setq k (1+ k))
          )
        )
      )
    )
    (setq i (1+ i))
  )
  (princ (strcat "\n找到" aa "，共" (itoa k) "个!"))
  (setvar "osmode" os)
  (prin1)
)

弘毅

LIYOGNZHI 发表于 2014-12-25 00:49
我写了一个，不一定是最好的，但能实现你需要的功能，希望能帮到你
(defun c:cz(/ aa bb xx yy ss i k os  ...

多谢前辈啊。。。

DYWE

啥也不说了，感谢楼主分享哇！