选择文字并统计列表？大佬们请帮忙 谢谢

linheyuanpcb

(defun c:1125()
(setq wz (ssget "X" '((0 . "TEXT,MTEXT")(8 . "*D*") )))
(if (/= wz nil);;如果有选择了文字
  (progn
   (setq L (sslength wz))
   )
         (vl-cmdf "text" "J" "BC" "0,0" "8" "0" "DDZ"  "" )
         )
(setq wz (ssget "X" '((0 . "TEXT,MTEXT")(8 . "*P*")  )))
(if (/= wz nil);;如果有选择了文字
  (progn
   (setq L (sslength wz))
   )
         (vl-cmdf "text" "J" "BC" "0,0" "8" "0" "PPH"  "" )
         )
目的是想达到下述图示的结果。对表不熟悉 是否可达成？谢谢各位 请大展身手
         )

vitalgg

如果无法播放，请点击此处在新窗口打开

vitalgg

linheyuanpcb 发表于 2023-9-12 09:15
感谢回复，但不是只统计呢

2. (@:menu-stat-text)
   
3. (defun match-to-obj (char / res)
   
4.   (setq obj '("Apple" "Book" "Cat" "Dog"))
   
5.   (setq n 0)
   
6.   (while (null (wcmatch (nth n obj) (strcat char"*")))
   
7.     (setq n (1+ n)))
   
8.   (setq res (nth n obj))
   
9.   (if res res "")
   
10.   )
    
11. ;; 将实物与字符组成表格
    
12. (setq n 0)
    
13. (table:make
    
14. (getpoint)
    
15. "分类统计"
    
16. '("序号""对象""数量""名称")
    
17. (mapcar 'cons
    
18.          '("1" "2" "3" "4" "5")
    
19.          (vl-sort
    
20.           (mapcar '(lambda(x)
    
21.                     (list
    
22.                      (car x)
    
23.                      (cdr x)
    
24.                      (match-to-obj (car x))))
    
25.                   @:tmp-stat-result)
    
26.           '(lambda(x y)
    
27.             (< (car x)
    
28.              (car y)))
    
29.           )))
    

(@:menu-stat-text)<br /> (defun match-to-obj (char / res)<br />   (setq obj '("Apple" "Book" "Cat" "Dog"))<br />   (setq n 0)<br />   (while (null (wcmatch (nth n obj) (strcat char"*")))<br />     (setq n (1+ n)))<br />   (setq res (nth n obj))<br />   (if res res "")<br />   )<br /> ;; 将实物与字符组成表格<br /> (setq n 0)<br /> (table:make<br /> (getpoint)<br /> "分类统计"<br /> '("序号""对象""数量""名称")<br /> (mapcar 'cons<br />          '("1" "2" "3" "4" "5")<br />          (vl-sort<br />           (mapcar '(lambda(x)<br />                     (list<br />                      (car x)<br />                      (cdr x)<br />                      (match-to-obj (car x))))<br />                   @:tmp-stat-result)<br />           '(lambda(x y)<br />             (< (car x)<br />              (car y)))<br />           )))<br />

视频已更新

vitalgg

linheyuanpcb 发表于 2023-9-12 10:08
很高兴你的回复，但你的程序无法支行，应该是缺少了很多函数，谢谢

需要安装 @lisp,  及@lisp中的数学工具， 不然程序不会这么短。
光一个统计代码就不止这几行就能实现的。还有绘制表格的代码。

@lisp数学工具 是开源的。
见 https://gitee.com/atlisp/packages  下的 at-math。
有开发能力的可自行研究。

linheyuanpcb

vitalgg 发表于 2023-9-12 08:37

感谢回复，但不是只统计呢

linheyuanpcb

vitalgg 发表于 2023-9-12 09:58
视频已更新

很高兴你的回复，但你的程序无法支行，应该是缺少了很多函数，谢谢

AndyWang

http://bbs.mjtd.com/thread-188562-1-1.html我这个求助帖里面的程序适合你，你去试试吧。

linheyuanpcb

AndyWang 发表于 2023-9-12 11:10
http://bbs.mjtd.com/thread-188562-1-1.html我这个求助帖里面的程序适合你，你去试试吧。

谢谢你，我去试了，只出了表格没有文字

linheyuanpcb

AndyWang 发表于 2023-9-12 11:10
http://bbs.mjtd.com/thread-188562-1-1.html我这个求助帖里面的程序适合你，你去试试吧。

找到原作者的程序了，后面怎么加上对应备注是个头疼事

linheyuanpcb

http://bbs.mjtd.com/thread-179722-1-1.html