各位高手,如何统计文字的个数并生成表格,呀,
各位高手,如何统计文字的个数并生成表格,呀,像图1一样,那么多,我想统计一下生成像图2一样表格,那位有什么好的LSP不或高招不都下载不了, xujinhua 发表于 2012-8-8 22:46
(defun c:txt ()
(setq lst nilnewlst nil x1 0)
(setq a (ssget))
高手:lol(defun c:txt ()
(setq lst nilnewlst nil x1 0)
(setq a (ssget)) xujinhua 发表于 2012-8-8 22:46
(defun c:txt ()
(setq lst nilnewlst nil x1 0)
(setq a (ssget))
您好
請教一下，這個咝衅饋磲幔挥谐霈F「種類」和「數量」
數字都沒有顯現出來 本帖最后由 ㄘ丶转裑ㄧ灬 于 2014-11-15 21:27 编辑
百度：文字计数1.5.dvb
或者..http://pan.baidu.com/share/link?shareid=880667498&uk=4061147393
另：此插件用于32位系统时操作顺畅，
但用于64位操作系统并保存低版本后，保存图纸会卡半天，建议选用豪沃克3.0（64位）。
http://www.hwksoft.com/soft/%E8%B1%AA%E6%B2%83%E5%85%8B%E5%B9%95%E5%A2%99%E5%B7%A5%E5%85%B7%E5%8C%85X64.exe
2014.11.15更新，以前链接都失效了。。
动画演示：
本帖最后由 xujinhua 于 2012-8-3 14:21 编辑
将文字内容按(内容 1) 加入表内，然后再将内容相同的合并相加,得到最终的表,然后排列.....
内业太多了，没空搞...
本帖最后由 xujinhua 于 2012-8-8 22:47 编辑
(defun c:txt ()
(setq lst nilnewlst nil x1 0)
(setq a (ssget))
(setq n (sslength a))
(setq index 0)
(repeat n
(setq el (entget ( ssname a index)))
(setq index ( + index 1))
(setq e (assoc 0 el))
(if (= "TEXT" (cdr e))
(progn
(setq txt (cdr (assoc 1 el)))
(setq lst(cons(append(list 1) (list txt))lst))
)
)
)
(while lst
(setq n 0)
(foreach i lst(if (= (cadar lst) (cadr i))(setq n (+ n (car i)))))
(setq newlst (append newlst (list (list n (cadar lst)))))
(setq lst(vl-remove-if '(lambda (x) (= (cadar lst) (cadr x))) lst))
)
(setq x2 (getpoint "\起始位置"))
(setq x3 (polar x20 12))
(command "text" "j" "c" (polar x2 (* pi 0.5) 3) "2" "0" "种类" "")
(command "text" "j" "c" (polar x3 (* pi 0.5) 3) "2" "0" "数量" "")
(repeat (length newlst)
(command "text" "j" "c" x2 "1.5" "0" (nth 1 (nth x1 newlst)) "")
(command "text""j" "c" x3 "1.5" "0" (nth 0 (nth x1 newlst)) "")
(setq x2(polar x2 (* pi 1.5) 3))
(setq x3 (polar x20 12))
(setq x1(1+ x1))
)
)
xujinhua 发表于 2012-8-8 22:46 static/image/common/back.gif
(defun c:txt ()
(setq lst nilnewlst nil x1 0)
(setq a (ssget))
高手厉害啊
运行起来只有种类和数量，不见数字，啥情况？ 高手呀,服了 高手，能改改只统计所需要的文字的数量就好 运行起来只有种类和数量，不见数字，啥情况？