请教各位大侠能否完善下列程序，谢谢！

cxs259 · 发表于 2012-7-24 15:37

在本论坛中，偶得一非常之实用程序，能对相同编号统计出数量，并标示颜色，唯一不足只能对单行文字进行上述操作，请教各位大侠能否完善对多行文字进行操作，谢谢！
;相同串变红色,并统计数量
(defun c:TT ()
(setvar "CMDECHO" 0)
(if (setq sst (getstring "\n要查找字串 :"))
(if       (setq ss (ssget  (list '(0 . "TEXT") (cons 1 sst))))
   (progn
      (command "chprop" ss "" "c" 1 "")
      (print (sslength ss))
   )
)
  )
(setvar "CMDECHO" 1)
(princ)
)

yjr111 · 发表于 2012-7-24 15:40

无语。。。

xiaxiang · 发表于 2012-7-24 15:42

(setq ss (ssget (list '(0 . "TEXT") (cons 1 sst))))
改成
(setq ss (ssget (list '(0 . "*TEXT") (cons 1 sst))))

cxs259 · 发表于 2012-7-24 16:45

哦！yir111原作者出现了，xiaxiang版主您上述的改法实现不了啊，请试试附图

preone · 发表于 2012-7-24 19:18

本帖最后由 preone 于 2012-7-24 19:19 编辑

cxs259 发表于 2012-7-24 16:45
哦！yir111原作者出现了，xiaxiang版主您上述的改法实现不了啊，请试试附图

对于多行文字因为其文字的样式的多样性在第一次输入QB1时前后加上*，即输入 *QB1*,即可使用。
注意需要按照xiaxiang版主的回复修改后，才可选择多行文字。

cxs259 · 发表于 2012-7-25 09:50

谢谢！若输入*QB1*后,就会把QB10--QB19的数量统计在一起了...？

账号		自动登录	找回密码
密码			注册

请教各位大侠能否完善下列程序，谢谢！

相关帖子

本帖子中包含更多资源