统计相同曲线(复制)数量并制表

西楚河神 · 发表于 2014-3-12 22:00:34

st788796 发表于 2014-3-12 19:14
你这个还是文字统计，论坛上写过很多，用最新的 Table:Make 函数就可以出表格，连线的写过程序

当然完 ...

只要查找后成汇总表就行连线的不考虑, 有汇总表后的连线插件有请 Free-Lancer大师已经给写好了,在7楼的样图链接里找过去就可见插件了

st788796 · 发表于 2014-3-12 22:01:18

西楚河神发表于 2014-3-12 21:52
刚试了只能是查找后会亮显要效果是:查找到后先亮显,这样可以先目测大体可检查下看看是否有漏选的,目测 ...

制表要2005+，Table:Make要单独下载，函数库里不包括的

st788796 · 发表于 2014-3-13 00:35:55

西楚河神发表于 2014-3-12 22:00
只要查找后成汇总表就行连线的不考虑, 有汇总表后的连线插件有请 Free-Lancer大师已经给 ...

API 过期，暂时用 Free-lancer 的几个函数

;;str -- string
;;h -- height
;;scl -- 宽度比例
(defun XD::String:ActualWidth (str sty h scl)
(and
(or (not sty)
(= sty "")
(not (tblsearch "style" sty))
)
(setq sty (getvar "textstyle"))
)
(abs (car (apply
'mapcar
(cons '-
(textbox (list (cons 1 str)
(cons 7 sty)
(cons 40 h)
(cons 41 scl)
)
)
)
)
)
)
)
(defun XD::String:MaxActualWidth (strl sty h scl)
(apply 'max
(mapcar '(lambda (x)
(XD::String:ActualWidth x sty h scl)
)
strl
)
)
)
(defun c:L (/ ss h lst p i tb)
(fy:begin)
(if (and (setq ss (ssget '((0 . "text") (1 . "*L*"))))
(progn (sssetfirst nil ss) t)
(setq p (getpoint "\nInsert Point: "))
)
(progn
(setq lst (fy:cset->objs)
h (vlax-get (car lst) "height")
lst (mapcar '(lambda (x)
(list (vlax-get x "Textstring")
x
)
)
lst
)
lst (XD::List:GroupByIndex lst 0)
i 0
lst (mapcar '(lambda (x)
(list (itoa (setq i (1+ i)))
(car x)
(itoa (length (cdr x)))
)
)
lst
)
tb (Table:make
(cons '("编号" "构件名称" "数量") lst)
p
(* 2.25 h)
h
)
)
)
)
(fy:end)
(princ)
)

;;str -- string 
;;h   -- height 
;;scl -- 宽度比例 
(defun XD::String:ActualWidth (str sty h scl) 
  (and 
    (or        (not sty) 
        (= sty "") 
        (not (tblsearch "style" sty)) 
    ) 
    (setq sty (getvar "textstyle")) 
  ) 
  (abs (car (apply 
              'mapcar 
              (cons '- 
                    (textbox (list (cons 1 str) 
                                   (cons 7 sty) 
                                   (cons 40 h) 
                                   (cons 41 scl) 
                             ) 
                    ) 
              ) 
            ) 
       ) 
  ) 
) 
(defun XD::String:MaxActualWidth (strl sty h scl) 
  (apply 'max 
         (mapcar '(lambda (x) 
                    (XD::String:ActualWidth x sty h scl) 
                  ) 
                 strl 
         ) 
  ) 
) 
(defun c:L (/ ss h lst p i tb) 
  (fy:begin) 
  (if (and (setq ss (ssget '((0 . "text") (1 . "*L*")))) 
           (progn (sssetfirst nil ss) t) 
           (setq p (getpoint "\nInsert Point: ")) 
      ) 
    (progn 
      (setq lst        (fy:cset->objs) 
            h        (vlax-get (car lst) "height") 
            lst        (mapcar        '(lambda (x) 
                           (list (vlax-get x "Textstring") 
                                 x 
                           ) 
                         ) 
                        lst 
                ) 
            lst        (XD::List:GroupByIndex lst 0) 
            i        0 
            lst        (mapcar        '(lambda (x) 
                           (list (itoa (setq i (1+ i))) 
                                 (car x) 
                                 (itoa (length (cdr x))) 
                           ) 
                         ) 
                        lst 
                ) 
            tb        (Table:make 
                  (cons '("编号" "构件名称" "数量") lst) 
                  p 
                  (* 2.25 h) 
                  h 
                ) 
      ) 
    ) 
  ) 
  (fy:end) 
  (princ) 
)

hzj268 · 发表于 2014-3-21 11:04:05

老大现在这个lsp只能统计 (setq i 64 ;_编号数量不大於 52 个 A-Z a-z 我要是想统计更多的数量改这个函数呀。

st788796 · 发表于 2014-3-21 11:38:51

hzj268 发表于 2014-3-21 11:04
老大现在这个lsp只能统计 (setq i 64 ;_编号数量不大於 52 个 A-Z a-z 我要是想统计更 ...

直接用数字序号

hzj268 · 发表于 2014-3-22 13:54:12

st788796 发表于 2014-3-21 11:38
直接用数字序号

(IF(< I 52))
老大我替换成这个后语法错误

chbddzx12 · 发表于 2014-10-10 08:01:28

不错~~~~~~~~~~~~

liuchong1988 · 发表于 2014-10-18 18:30:28

要修改完善

grs432 · 发表于 2014-10-29 17:14:17

这个不错呀！！

lff763 · 发表于 2014-11-4 20:38:34

方便使用，，，

haoryh · 发表于 2015-9-7 22:15:10

能统计圆吗？

bai0371 · 发表于 2020-5-11 09:10:01

老帖，很有用，但是14楼的程序用不了啊

XDSoft · 发表于 2020-5-11 09:13:33

bai0371 发表于 2020-5-11 09:10
老帖，很有用，但是14楼的程序用不了啊

用不了请把提示帖出来

bai0371 · 发表于 2020-5-11 09:18:00

14楼的lisp运行不了啊，只能亮显，不能插入表格，大神修复一下

bai0371 · 发表于 2020-5-11 09:48:42

XDSoft 发表于 2020-5-11 09:13
用不了请把提示帖出来

14楼的lisp运行不了啊，只能亮显，不能插入表格，大神修复一下

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

[工具] 统计相同曲线(复制)数量并制表

点评

点评

点评