求修改yjr111大师的文本统计代码

lpl

(DEFUN C:TJWB(/ N SS  STR_LST LST_STR STR1 SHUL STRLST )
  (defun initexcel ()
  (setq appxls (vlax-get-or-create-object "excel.application")
        xlsworkbooks (vlax-get-property appxls "workbooks")
        newbook (vlax-invoke-method xlsworkbooks "add")
        newsheet (vlax-get-property newbook "sheets")
        newitem (vlax-get-property newsheet "item" 1)
        xlscells (vlax-get-property newitem "cells")
  )
        (vla-put-visible appxls :vlax-true)
)
(defun endexcel ()
  (vlax-release-object xlscells)
  (vlax-release-object newitem)
  (vlax-release-object newsheet)
  (vlax-release-object newbook)
  (vlax-release-object xlsworkbooks)
  (vlax-release-object appxls)
)
(defun datacell (nurow col value)
  (vlax-put-property xlscells "item" numrow col (vl-princ-to-string value))
  )
  (VL-LOAD-COM)
  (SETQ SS(SSGET '((0 . "*TEXT"))))
  (SETQ N 0)
  (WHILE (< N (SSLENGTH SS))
    (SETQ LST_STR (APPEND LST_STR (LIST(CDR(ASSOC 1 (ENTGET (SSNAME SS N)))))))
    (SETQ N (1+ N))
   )
  (SETQ LST_STR (vl-sort LST_STR(function(lambda(x y) (<  x y)))))
  (SETQ STRLSTLEN (LENGTH LST_STR))
  (WHILE LST_STR
    (SETQ SHUL(-  STRLSTLEN(LENGTH(SETQ LST_STR(VL-REMOVE (SETQ STR1 (CAR LST_STR))LST_STR)))))
    (SETQ STRLST (APPEND STRLST (LIST(LIST STR1 SHUL))))
    (SETQ STRLSTLEN (LENGTH LST_STR))
    )
(SETQ STRLST (append (list (list "编号" "数量(个)"))STRLST ))
(initexcel)
(setq numrow 1 )
(setq i 0)
(repeat (length STRLST)
(SETQ txt (nth i  STRLST))
(datacell numrow (setq numcol 1) (car txt))
(datacell numrow (setq numcol 2) (cadr txt))
(setq i (1+ i) numrow (1+ numrow) )      
)
(endexcel)
(princ)
  )
以上代码为yjr111的文本统计输出excel代码，哪位大虾能否改下，文本统计结果直接以表格样式输出图上，谢谢

tianyi1230

貌似严大师写过一个，没有提供源码，你在论坛上再找找

lpl

自己顶下，看了高手都潜水了

tianyi1230

严大师不玩lsp了，我问过了，确实可惜啊，对于喜欢用一些小功能的人来说

lpl

再顶下，看能否有高手愿意帮忙下......

lpl

再顶顶，希望路过的高手帮帮忙........

用户3766035971

再顶顶，希望路过的高手帮帮忙........

664571221

顶顶..........

xyp1964