关于CAD图中文字统计程序！

wuxuloveguo

不知道谁有这方面的LISP，目的是选取CAD图中的文字并且统计，网上的大多都是有一个字符不一样就统计一种！

有没有（比方说：“A12，A45，A56，B78，B45，C65。。。。”等）可以指定需要选取的TEXT文字的前一个字母或者数字，分类汇总呢，就象CAD图中以“A”开头的TEXT有多少，“B”开头的有多少等等，不知道那位朋友有这样的程序可以提供给我！谢谢了！

cocoorange

caiqs 发表于 2009-2-11 12:55
;;;师兄 QQ 361865648(defun c:test ()  (setq searchstr (getstring    &n ...

CAD中加载输入字符串之后提示错误
“错误: 参数类型错误: symbolp 46”
请问是怎么回事呢？

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

caoyin

(sslength (ssget "_X" '((0 . "TEXT") (1 . "A#"))))

wuxuloveguo

zzxxqq斑竹的程序有问题，“参数太少“

不知道可不可以把选取的内容存成文本或者其他格式，比方说：

A1   2个

A2   5个

A14    7个

B1    6个

。。。。

最后有个合计：”A“开头的合计多少个

前一个是按A，B，C等顺序排序 A、B、C。。。后面的数字就是1，2，3。。。。排序

 请ZZXXQQ CAOYIN斑竹帮忙给写一个！

caoyin

;;已经修改，只是 acad_strlsort 会把 A3  排在 A11后面

(defun C:TT (/ SS I STR I REL LST X RLST ILST)
  (if (setq SS (ssget '((0 . "TEXT") (1 . "@#*"))))
    (progn
      (repeat (setq I (sslength SS))
        (setq STR (cdr (assoc 1 (entget (ssname SS (setq I (1- I)))))))
        (if (setq REL (distof (substr str 2)))
          (setq LST (cons STR LST))
        )
      )
      (setq LST (acad_strlsort LST))
      (while (setq X (car LST))
        (setq LEN  (length LST)
              LST  (vl-remove X LST)
              RLST (append RLST (list (cons X (- LEN (length LST)))))
        )
      )
    )
  )
)

wuxuloveguo

caoyin斑竹出现这样的情况！

(E1 . 17)
(F2 . 0)
(E2 . 10)
(E3 . 3)
(E4 . 2)
(E5 . 1)
(D5 . 19)
(D9 . 18)
(A9 . 124)
(E10 . 16)
(A10 . 247)
(E12 . 15)

怎么不是按字母按A，B，C的顺序排列呢？

比方说“

A1 共2个

A2 共4个

B5 共4个

1AJK   共8个

2SFGK   共10个

..............

分类合计如下

A开头的合计6个

B开头的合计4个

1开头的合计8个

等等

我让一个朋友帮我整了，她也是让她一个网上的朋友帮忙编辑的，我试了下不是太合理，能不能加个人为的选取和自动选取的选择，并且输出为TXT的文本格式

caoyin

;;5楼已经修改

;; 只能统计一个起首字母，多个统计程序有些烦
;; (("D3" . 1) ("D4" . 3))------> 1和3表示个数
(defun C:TT (/ SY SS I STR I REL LST X LEN RLST)
  (if (and (or (/= (setq SY (getstring "\n指定起首字母: ")) "")
               (setq SY nil)
           )
           (setq SY (strcase SY)
                 SS (ssget (list '(0 . "TEXT") (cons 1 (strcat SY "#*"))))
           )
      )
    (progn
      (repeat (setq I (sslength SS))
        (setq STR (cdr (assoc 1 (entget (ssname SS (setq I (1- I)))))))
        (if (setq REL (distof (substr str 2)))
          (setq LST (cons REL LST))
        )
      )
      (setq LST (vl-sort LST '>=))
      (while (setq X (car LST))
        (setq LEN  (length LST)
              LST  (vl-remove X LST)
              RLST (cons (cons (strcat SY (itoa (fix X))) (- LEN (length LST))) RLST)
        )
      )
    )
  )
)

wuxuloveguo

caoyin斑竹 最好能象这样输出并且保存文本格式！

A10   10
A13   2
A14   2

 
B102   1
B103   16
B104   1
 
D5   1
D9   1
 
1AU   1
1AY   18
1AZ   19
1B   3

2   4
2AA   1
2AB   12
2BA   1
2BB   3
 
3AS   4
3AV   1
3AX   2
 
分类合计如下：

A开头的合计 14个

B开头的合计 18个

D开头的合计 2个

1开头的合计 41个

2开头的合计 21个

3开头的合计 7个

wuxuloveguo

caoyin斑竹！再麻烦你了！

输出的方式能象8楼我说的那样（因为如果数量多的话找起来不方便，如果能在最后写合计，那直接到TXT文本最后查看就很清晰了） 并且最好能给添加上手动选取和自动选取（因为毕竟不是每次都要对全图进行统计，有可能需要局部选取）！

wuxuloveguo

请caoyin斑竹帮忙啊！急用中！在此麻烦你了！