lyqiezi 发表于 2014-4-17 15:49:14

好傻，选SS2的时候，把SS1也含进去就不用重新编程了

lyqiezi 发表于 2014-4-17 20:14:00

测试图片

重慶崽兒 发表于 2014-4-20 22:29:39

(defun c:tt()
(setq nr (cdr (assoc 1 (entget (car (entsel "\n请选择对象:"))))))
(setq ss (ssget '((0 . "TEXT"))))
(setq i 0)
(setq j 0)
(repeat (sslength ss)
    (setq name (ssname ss i))
    (setq en (entget name))
    (setq nr1 (cdr (assoc 1 en)))
    (cond
      ((and (= nr nr1) (assoc 62 en)) (progn (entmod (subst (cons 62 1) (assoc 62 en) en)) (setq j (+ j 1))))
      ((and (= nr nr1) (not (assoc 62 en))) (progn (entmod (append en (list (cons 62 1)))) (setq j (+ j 1))))
    )
    (setq i (1+ i))
)
(print (strcat "相同内容字的个数为：" (itoa j) "个。"))
(princ)
)
我就随便写写，练练手！

93619320 发表于 2016-5-17 11:23:27

谢谢分享。

hotson 发表于 2016-10-14 20:45:26

能把相同的文字画圈圈出来？
页: 1 2 [3]
查看完整版本: 求点选一文字，框选一定区域内的文字，如果该文字与点选文字相同