请教，能否给下面的程序新增一个框选的功能，谢谢！

cxs259 · 发表于 2013-4-26 11:53:54

;;统计文字
(defun C:TT (/       TT-TEMP  LIST-SAME    FILE    FILENAME
      I       LEN    PRE_LIST RETURN    SS    STR
      TEXT_LIST          X
      )
  (princ "\n统计文字并写入文本文档 ")
  (defun TT-TEMP (A B / RETURN I)
(setq I -1)
(repeat (+ (- B A) 1)
   (setq RETURN (cons (chr (+ A (setq I (1+ I)))) RETURN))
)
(reverse RETURN)
  )

  (defun LIST-SAME (LST / A LEN X RETURN)
(while LST
   (setq A (car LST))
   (setq LEN (length LST))
   (setq LST (vl-remove-if '(lambda (X) (= A X)) LST))
   (setq RETURN (cons (list A (- LEN (length LST))) RETURN))
)
RETURN
  )

  (if (and (setq FILENAME (getfiled "选择保存的位置" "" "txt" 1))
   (setq PRE_LIST
   (append (TT-TEMP 65 90)
   (TT-TEMP 97 122)
   (TT-TEMP 48 57)
   )
   )
   )
;;(48 57)0-9
;;(65 90)A-Z
;;(97 122)a-z
(progn
   (setq FILE (open FILENAME "w"))
   (close FILE)
   (foreach PRE PRE_LIST
(if (setq SS
   (ssget "x"
   (list (cons 0 "TEXT") (cons 1 (strcat PRE "*")))
   )
      )
   (progn

      (setq TEXT_LIST NIL
   TOTAL NIL
      )
      (repeat (setq I (sslength SS))
      (setq
TEXT_LIST
   (cons
   (cdr (assoc 1 (entget (ssname SS (setq I (1- I)))))
   )
   TEXT_LIST
   )
      )
      )

      (setq TEXT_LIST (vl-sort TEXT_LIST '>))
      (setq RETURN (LIST-SAME TEXT_LIST))
      (foreach X RETURN
      (setq TOTAL (cons (cadr X) TOTAL))
      )

      (setq ALL (apply '+ TOTAL))

      (setq FILE (open FILENAME "a"))
      (mapcar '(lambda (X)
         (setq STR (strcat (car X) " " (itoa (cadr X))))
         (write-line STR FILE)
      )
      RETURN
      )
      (write-line (strcat PRE "开头合计" (itoa ALL)) FILE)
      (write-line " " FILE)
      (close FILE)
   )
)
   )
   (startapp "notepad.exe" FILENAME)
)
  )
  (princ)
)

Andyhon · 发表于 2013-4-26 12:13:25

(setq SS (ssget "x" (list (cons 0 "TEXT") (cons 1 (strcat PRE "*")))))
===>
(setq SS (ssget (list (cons 0 "TEXT") (cons 1 (strcat PRE "*")))))

cxs259 · 发表于 2013-4-26 12:30:12

可以框选对象了，但选择不了，详见附图

Andyhon · 发表于 2013-4-26 13:53:12

Try This one ...

cxs259 · 发表于 2013-4-26 13:56:47

有框选的功能，但选择不了对象
;;统计文字
(defun C:TT (/             TT-TEMP  LIST-SAME       FILE       FILENAME
            I             LEN    PRE_LIST       RETURN       SS       STR
            TEXT_LIST             X
         )
(princ "\n统计文字并写入文本文档 ")
(defun TT-TEMP (A B / RETURN I)
   (setq I -1)
   (repeat (+ (- B A) 1)
   (setq RETURN (cons (chr (+ A (setq I (1+ I)))) RETURN))
   )
   (reverse RETURN)
)

  (defun LIST-SAME (LST / A LEN X RETURN)
   (while LST
   (setq A (car LST))
   (setq LEN (length LST))
   (setq LST (vl-remove-if '(lambda (X) (= A X)) LST))
   (setq RETURN (cons (list A (- LEN (length LST))) RETURN))
   )
   RETURN
)

  (if (and (setq FILENAME (getfiled "选择保存的位置" "" "txt" 1))
         (setq PRE_LIST
               (append (TT-TEMP 65 90)
                        (TT-TEMP 97 122)
                        (TT-TEMP 48 57)
               )
         )
   )
   ;;(48 57)0-9
   ;;(65 90)A-Z
   ;;(97 122)a-z
   (progn
   (setq FILE (open FILENAME "w"))
   (close FILE)
   (foreach PRE PRE_LIST
      (if (setq SS
                  (ssget
                        (list (cons 0 "TEXT") (cons 1 (strcat PRE "*")))
                  )
         )
         (progn

         (setq TEXT_LIST NIL
               TOTAL       NIL
         )
         (repeat (setq I (sslength SS))
            (setq
               TEXT_LIST
               (cons
                  (cdr       (assoc 1 (entget (ssname SS (setq I (1- I)))))
                  )
                  TEXT_LIST
               )
            )
         )

         (setq TEXT_LIST (vl-sort TEXT_LIST '>))
         (setq RETURN (LIST-SAME TEXT_LIST))
         (foreach X RETURN
            (setq TOTAL (cons (cadr X) TOTAL))
         )

         (setq ALL (apply '+ TOTAL))

         (setq FILE (open FILENAME "a"))
         (mapcar '(lambda (X)
                     (setq STR (strcat (car X) " " (itoa (cadr X))))
                     (write-line STR FILE)
                  )
                  RETURN
         )
         (write-line (strcat PRE "开头合计" (itoa ALL)) FILE)
         (write-line " " FILE)
         (close FILE)
         )
      )
   )
   (startapp "notepad.exe" FILENAME)
   )
)
(princ)
)

cxs259 · 发表于 2013-4-26 14:02:53

Andyhon 发表于 2013-4-26 13:53
Try This one ...

谢谢Andyhon ，真是及时雨

云中孤鹰 · 发表于 2013-4-26 14:54:57

路过学习学习

峰峰兒 · 发表于 2013-10-20 07:35:06

提示: 作者被禁止或删除内容自动屏蔽

903242237 · 发表于 2015-7-22 16:58:05

楼主是否可以将此插件改成不限制文字类型的，即不是字母文本也可统计数量，谢谢！

账号		自动登录	找回密码
密码			注册

[讨论] 请教，能否给下面的程序新增一个框选的功能，谢谢！

本帖子中包含更多资源

本帖子中包含更多资源

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2013-10-20 07:35:06 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡