[求助]：搞定 3q

SOO

请问怎么把要统计的文字加到过滤器里面呢？

(defun c:tj (/ txt ss)                        ;统计文字

(setq txt "FCU-6.3")
  (setq ss (ssget (list '(0 . "text") ( cons 1 txt)))

  (progn
    (prompt
      (strcat "\n图中有 " (itoa (sslength ss)) " 个文字" txt)
    )
  )

  (princ)
)

XDSoft

最初由 SOO 发布
[B]请问怎么把要统计的文字加到过滤器里面呢？

(defun c:tj (/ txt ss)                        ;统计文字

(setq txt "FCU-6.3")
  (setq ss (ssget (list '(0 . "text") ( cons 1 txt)))

  (progn
    (prompt
      (strcat "\... [/B]

什么“过滤器”？

SOO

ssget不是有个过滤器表吗？
我是想构造含有某文字的选择集，再取其个数
就可以完成统计文字啦


我是初学自我摸索中
先谢谢斑竹

XDSoft

最初由 SOO 发布
[B]ssget不是有个过滤器表吗？
我是想构造含有某文字的选择集，再取其个数
就可以完成统计文字啦


我是初学自我摸索中
先谢谢斑竹 [/B]

你上面的帖子里面的：

2. 
   
3. (setq ss (ssget (list '(0 . "text") ( cons 1 txt)))
   

<br /> (setq ss (ssget (list '(0 . "text") ( cons 1 txt)))<br />

就是构建实体是text类型，文字内容是变量txt 的选择集。

构建后的选择集保存在变量ss中。

你要想获得选择集的实体个数，用函数sslength 得到

2. 
   
3. (setq len (sslength ss))
   

<br /> (setq len (sslength ss))<br />

关于SSGET函数的组码的应用，你可以看看LISP联机帮助里面的ssget 函数相关介绍。

aeo

写的蛮好呀
"text")  .大写

SOO

我想先构造选择集,然后统计文字,但是如何在ssget里面使用同一选择集呢?

(defun c:tj (/ txt ss)                        ;统计文字


  (prompt "请选择需要统计的实体:")
  (setq ss (ssget))

  (foreach txt '("FCU-8" "FCU-6.3")
    (if        (setq ss (ssget "P" (list '(0 . "TEXT") (cons 1 txt))))

      (progn
        (prompt
          (strcat "\n图中有 " (itoa (sslength ss)) " 个文字" txt)
        )
        (princ)
      )
    )
  )
  (princ)
  (gc)
)

陌生人

最初由 aeo 发布
[B]写的蛮好呀
"text")  .大写 [/B]

大小写无关的。

楼上，加一句：
(foreach txt '( .... ))
(command ".select" ss "")
(if (setq ss2 (ssget "p" filter))
...
)

SOO

程序随小,但应该能提高效率不少,谢谢大家

(defun c:tj (/ txt ss)                        ;统计文字

                                       
  (prompt "请选择需要统计的实体:")
  (setq ss (ssget))

  (FOREACH TXT '("FCU-8" "FCU-6.3" "FCU-5")
    (setvar "cmdecho" 0)
    (command ".select" ss "")

    (if        (setq ss1 (ssget "P" (list '(0 . "text") (cons 1 txt))))

      (progn
        (prompt
          (strcat "\n图中有 " (itoa (sslength ss1)) " 个文字" txt)
        )
        (princ)
      )
    )
  )
  (textscr)
  (princ)
  (setvar "cmdecho" 1)
)