LISP/VLISP程序

yecaiping

搜索整个论坛都没有关于统计文字个数的lisp，文字修改大师虽然可以但不是lisp，不方便自己使用，而且还加上自己的广告！！请问各位高手能解决这个问题吗？

coolzhb

文字修改大师有什么广告，不明白！

mann_ygw

我觉得加上自己的邮箱地址，不妥！

gysjy

[PHP](defun c:nn ( / l ss)
;;统计文字;;
  (setq ss (ssget '((0 . "TEXT"))) l (sslength ss))
  (princ "\n=================共有") (princ l)
  (princ "个文字。====================")
  (princ)
)[/PHP]

yecaiping

首先感谢楼上的高手，可能我没有说清楚，我是想分类统计，例如“门窗”有多少个，“楼梯”有多少个。谢谢了！！

gysjy

最初由 yecaiping 发布
[B]我是想分类统计，例如“门窗”有多少个，“楼梯”有多少个。[/B]

[PHP](defun to(n)
  (cdr (assoc n (entget sn)))
)
(defun c:nn ( / l sn ss tr)
;;统计指定的文字;;
  (setq sn (car (entsel "\n点取需要统计的文字:")) tr (to 1))
  (if tr
    (progn
      (setq ss (ssget '((0 . "TEXT")))
            ss (ssget "p" (list (cons 1 tr))) l (sslength ss)
      )
      (princ (strcat "\n=================共有" (rtos l)
         "个" tr "。====================")
      )
    )
    (princ "\n *** 你刚才点取的不是文字。***")
  )
  (princ)
)[/PHP]

xyp1964

文本统计：

yecaiping

6楼的高手你的程序有两个问题：1.不能全选2.点选后只能统计一种。麻烦你再修改一下你的程序。7楼的版主我用过你这个程序，可惜只能生成AUTOCAD，我想统计后生成EXCEL或者txt文件，谢谢了，我找了很久都没有找到这种程序，真的很需要。

coolzhb

最初由 mann_ygw 发布
[B]我觉得加上自己的邮箱地址，不妥！ [/B]

没有加邮箱地址呀！

mann_ygw

我说错了，应该是加了这句话“*** 文字修改大师(dd)Ctt [V11.4新春版 恒易空间 作者:周海兵] 新春版***”，可能不方便别人编程序吧，呵呵。

yecaiping

这个问题真的很难吗？为什么一直到现在都没有人能够解决啊？

eachy

2. 
   
3. ;;Author: eachy 2009.1.17
   
4. (defun c:tt (/ ss ssl i str ll l pt hi v p)
   
5.   (if (setq ss (ssget '((0 . "text"))))
   
6.     (progn
   
7.       (setq ssl        (sslength ss)
   
8.             i        -1
   
9.       )
   
10.       (repeat ssl
    
11.         (setq str (cdr (assoc 1 (entget (ssname ss (setq i (1+ i)))))))
    
12.         ;;Count number
    
13.         (if ll
    
14.           (if (setq l (assoc str ll))
    
15.             (setq ll (subst (cons str (1+ (cdr l))) l ll))
    
16.             (setq ll (cons (cons str 1) ll))
    
17.           )
    
18.           (setq ll (cons (cons str 1) ll))
    
19.         ) ;_end count
    
20.       )
    
21.       (if (setq pt (getpoint "\nInsert point: "))
    
22.         (progn
    
23.           (setq        hi (getvar "textsize")
    
24.                 v  (* 1.5 hi)
    
25.                 p  (list 0. (- v) 0.)
    
26.           )
    
27.           (foreach x (mapcar 'vl-princ-to-string ll)
    
28.             (vl-cmdf ".text" pt "" "" x)
    
29.             (setq pt (mapcar '+ pt p))
    
30.           )
    
31.         )
    
32.       )
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )

<br /> ;;Author: eachy 2009.1.17<br /> (defun c:tt (/ ss ssl i str ll l pt hi v p)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (repeat ssl<br />         (setq str (cdr (assoc 1 (entget (ssname ss (setq i (1+ i)))))))<br />         ;;Count number<br />         (if ll<br />           (if (setq l (assoc str ll))<br />             (setq ll (subst (cons str (1+ (cdr l))) l ll))<br />             (setq ll (cons (cons str 1) ll))<br />           )<br />           (setq ll (cons (cons str 1) ll))<br />         ) ;_end count<br />       )<br />       (if (setq pt (getpoint "\nInsert point: "))<br />         (progn<br />           (setq        hi (getvar "textsize")<br />                 v  (* 1.5 hi)<br />                 p  (list 0. (- v) 0.)<br />           )<br />           (foreach x (mapcar 'vl-princ-to-string ll)<br />             (vl-cmdf ".text" pt "" "" x)<br />             (setq pt (mapcar '+ pt p))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

yecaiping

程序很好，我想统计后生成EXCEL或者txt文件，可以吗？

forestwind

用7楼的配合truetable就可以满足你的要求了

yecaiping

呵呵，还要配合其他程序太麻烦啦，我只想纯lisp的，不知道如何实现！