《钢板重量计算器》

/db_自贡黄明儒_ · 发表于 2013-8-4 08:52:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我的几十位同事，桌子上都摆上计算器，主要用来计算明细表中钢板重量的，我这个比他们的快
想用正则表达式没有成功
想将下面的SplitInstead SplitHiflybir合而为一，也没成功

;;======================================自贡黄明儒 2013年8月*《钢板重量计算器》
(defun hh-mm (a / B)
;;1 字符串中非数字用空格替代
(defun SplitInstead (a / B C D)
(setq d "")
(while (/= a "")
(setq c (substr a 1 1))
(setq b (ascii c))
(setq a (substr a 2 (strlen a)))
(if (or (and (> b 47) (< b 58)) (= b 46))
(setq d (strcat d c))
(setq d (strcat d " "))
)
)
d
)
;;2 分割字符串 by highflybir
(defun SplitHiflybir (String Delimiter / LST STR)
(setq str (VL-STRING-TRANSLATE Delimiter " " String)) ;首先替换
(setq str (strcat "(" str ")")) ;然后加括号
(mapcar 'atof (mapcar 'VL-PRINC-TO-STRING (read str))) ;转化
)
;;3 钢管重量计算(外径*臂厚-长度)
(defun hh-js2 (b / A C)
(setq a (/ (car b) 2.0)) ;外半径
(setq c (- a (cadr b))) ;内半径
(/ (* pi (- (* a a) (* c c)) (caddr b) 7.85)
1000000
)
)
;;4 圆钢重量计算(外径-长度)
(defun hh-js3 (b / A)
(setq a (/ (car b) 2.0)) ;半径
(/ (* pi (* a a) (caddr b) 7.85)
1000000
)
)
;;5 筋板(厚)
(defun hh-js4 (b / AREA1)
(vl-cmdf "area"
"o"
(car (entsel "\n>>>>(面域)or(pline组成的封闭线)"))
)
(setq area1 (getvar "area"))
(/ (* area1 (car b) 7.85) 1000000)
)
;;6 钢板(长*宽*高)
(defun hh-js5 (b)
(/ (* (car b) (cadr b) (caddr b) 7.85)
1000000
)
)
;;7 计算
(setq b (SplitHiflybir (SplitInstead a) ""))
(cond ((and (wcmatch a "*钢管*") (= (length b) 3)) (hh-js2 b))
((and (wcmatch a "*圆钢*") (= (length b) 2)) (hh-js3 b))
((and (wcmatch a "*筋板*,*钢板*") (= (length b) 1))
(hh-js4 b)
)
((and (wcmatch a "*筋板*,*钢板*") (= (length b) 3))
(hh-js5 b)
)
)
)
(defun C:mm (/ CMD1 DCLID EN ENTL FN FNAME LIN RETURN# ZL)
(defun *error* (S)
(setvar "cmdecho" cmd1)
(princ S)
(princ)
)
(setvar "modemacro" "自贡运机集团")
(setq cmd1 (getvar "cmdecho"))
(setvar "cmdecho" 0)
(while (not (and (setq en (car (entsel "\n 点取文本，计算重量")))
(setq entl (entget en))
(wcmatch (cdr (assoc 0 entl)) "*TEXT")
(setq zl (cdr (assoc 1 entl)))
(wcmatch zl "*钢板*,*钢管*,*筋板*,*圆钢*")
)
)
)
(setq zl (rtos (hh-mm zl) 2 3))
(setq fname (vl-filename-mktemp nil nil ".dcl"))
(setq fn (open fname "w"))
(write-line "cjjskdcl : dialog{" fn)
(write-line "label=\"自贡运机集团黄明儒\";" fn)
(write-line
":edit_box{label=\"重量(Kg)\";key=\"cjjsedi\";value=\"1000\";mnemonic=\"K\";allow_accept=true;}"
fn
)
(write-line "ok_only;" fn)
(write-line "}" fn)
(close fn)
(setq fn (open fname "r"))
(setq dclid (load_dialog fname))
(while
(or (eq (substr (setq lin (vl-string-right-trim
"\" fn)"
(vl-string-left-trim "(write-line \"" (read-line fn))
)
)
1
2
)
"//"
)
(eq (substr lin 1 (vl-string-search " " lin)) "")
(not (eq (substr lin (+ (vl-string-search " " lin) 1) 9)
" : dialog"
)
)
)
)
;;以下根据情况处理
(new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
(set_tile "cjjsedi" zl)
(mode_tile "cjjsedi" 2)
(action_tile "accept" "(done_dialog 1)")
(setq return# (start_dialog))
(unload_dialog dclid)
(close fn)
(vl-file-delete fname)
(setvar "cmdecho" cmd1)
(princ)
)
;;======================================自贡黄明儒 2013年8月*《钢板重量计算器》

;;======================================自贡黄明儒 2013年8月*《钢板重量计算器》 
(defun hh-mm (a / B) 
  ;;1 字符串中非数字用空格替代 
  (defun SplitInstead (a / B C D) 
    (setq d "") 
    (while (/= a "") 
      (setq c (substr a 1 1)) 
      (setq b (ascii c)) 
      (setq a (substr a 2 (strlen a))) 
      (if (or (and (> b 47) (
        (setq d (strcat d c)) 
        (setq d (strcat d " ")) 
      ) 
    ) 
    d 
  ) 
  ;;2 分割字符串 by highflybir 
  (defun SplitHiflybir (String Delimiter / LST STR) 
    (setq str (VL-STRING-TRANSLATE Delimiter " " String)) ;首先替换 
    (setq str (strcat "(" str ")"))                  ;然后加括号 
    (mapcar 'atof (mapcar 'VL-PRINC-TO-STRING (read str))) ;转化 
  ) 
  ;;3 钢管重量计算(外径*臂厚-长度) 
  (defun hh-js2        (b / A C) 
    (setq a (/ (car b) 2.0))                          ;外半径 
    (setq c (- a (cadr b)))                          ;内半径 
    (/ (* pi (- (* a a) (* c c)) (caddr b) 7.85) 
       1000000 
    ) 
  ) 
  ;;4 圆钢重量计算(外径-长度) 
  (defun hh-js3        (b / A) 
    (setq a (/ (car b) 2.0))                          ;半径 
    (/ (* pi (* a a) (caddr b) 7.85) 
       1000000 
    ) 
  ) 
  ;;5 筋板(厚) 
  (defun hh-js4        (b / AREA1) 
    (vl-cmdf "area" 
             "o" 
             (car (entsel "\n>>>>(面域)or(pline组成的封闭线)")) 
    ) 
    (setq area1 (getvar "area")) 
    (/ (* area1 (car b) 7.85) 1000000) 
  ) 
  ;;6 钢板(长*宽*高) 
  (defun hh-js5        (b) 
    (/ (* (car b) (cadr b) (caddr b) 7.85) 
       1000000 
    ) 
  ) 
  ;;7 计算 
  (setq b (SplitHiflybir (SplitInstead a) "")) 
  (cond        ((and (wcmatch a "*钢管*") (= (length b) 3)) (hh-js2 b)) 
        ((and (wcmatch a "*圆钢*") (= (length b) 2)) (hh-js3 b)) 
        ((and (wcmatch a "*筋板*,*钢板*") (= (length b) 1)) 
         (hh-js4 b) 
        ) 
        ((and (wcmatch a "*筋板*,*钢板*") (= (length b) 3)) 
         (hh-js5 b) 
        ) 
  ) 
) 
(defun C:mm (/ CMD1 DCLID EN ENTL FN FNAME LIN RETURN# ZL) 
  (defun *error* (S) 
    (setvar "cmdecho" cmd1) 
    (princ S) 
    (princ) 
  ) 
  (setvar "modemacro" "自贡运机集团") 
  (setq cmd1 (getvar "cmdecho")) 
  (setvar "cmdecho" 0) 
  (while (not (and (setq en (car (entsel "\n 点取文本，计算重量"))) 
                   (setq entl (entget en)) 
                   (wcmatch (cdr (assoc 0 entl)) "*TEXT") 
                   (setq zl (cdr (assoc 1 entl))) 
                   (wcmatch zl "*钢板*,*钢管*,*筋板*,*圆钢*") 
              ) 
         ) 
  ) 
  (setq zl (rtos (hh-mm zl) 2 3)) 
  (setq fname (vl-filename-mktemp nil nil ".dcl")) 
  (setq fn (open fname "w")) 
  (write-line "cjjskdcl : dialog{" fn) 
  (write-line "label=\"自贡运机集团 黄明儒\";" fn) 
  (write-line 
    ":edit_box{label=\"重量(Kg)\";key=\"cjjsedi\";value=\"1000\";mnemonic=\"K\";allow_accept=true;}" 
    fn 
  ) 
  (write-line "ok_only;" fn) 
  (write-line "}" fn) 
  (close fn) 
  (setq fn (open fname "r")) 
  (setq dclid (load_dialog fname)) 
  (while 
    (or        (eq (substr (setq lin (vl-string-right-trim 
                                "\" fn)" 
                                (vl-string-left-trim "(write-line \"" (read-line fn)) 
                              ) 
                    ) 
                    1 
                    2 
            ) 
            "//" 
        ) 
        (eq (substr lin 1 (vl-string-search " " lin)) "") 
        (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) 
                 " : dialog" 
             ) 
        ) 
    ) 
  ) 
 
  ;;以下根据情况处理 
  (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid) 
  (set_tile "cjjsedi" zl) 
  (mode_tile "cjjsedi" 2) 
  (action_tile "accept" "(done_dialog 1)") 
  (setq return# (start_dialog)) 
  (unload_dialog dclid) 
  (close fn) 
  (vl-file-delete fname) 
  (setvar "cmdecho" cmd1) 
  (princ) 
) 
;;======================================自贡黄明儒 2013年8月*《钢板重量计算器》

游客，如果您要查看本帖隐藏内容请回复

dwg001 · 发表于 2013-8-4 10:21:20

回复，看隐藏春色。

zxz2003@qq.com · 发表于 2013-8-4 09:05:47

很强大哦，进来围观一个！！！:):)

newer · 发表于 2013-8-4 13:01:59

楼主，你应该用ODCL写对话框。

newer · 发表于 2013-8-4 13:03:26

楼主，你想用正则提出什么没成功？

/db_自贡黄明儒_ · 发表于 2013-8-4 14:06:58

newer 发表于 2013-8-4 13:03
楼主，你想用正则提出什么没成功？

就是我只想要数字，如"钢板δ6.333*666-555",我想用其中的数字(6.333 666 555) 进行计算,看了这么多正则表达式，就没有看到这个的查找规则。

newer · 发表于 2013-8-4 14:22:45

/db_自贡黄明儒_ 发表于 2013-8-4 14:06
就是我只想要数字，如"钢板δ6.333*666-555",我想用其中的数字(6.333 666 555) 进行计算,看了这么多正则 ...

帮你测试了下，可以啊

命令: (xd::string:regexps "(\\d+)?[.]?(\\d+)" "5.3*200-600" "")
("5.3" "200" "600")

/db_自贡黄明儒_ · 发表于 2013-8-4 14:36:53

本帖最后由 /db_自贡黄明儒_ 于 2013-8-4 14:38 编辑

newer 发表于 2013-8-4 14:22
帮你测试了下，可以啊

命令: (xd::string:regexps "(\\d+)?[.]?(\\d+)" "5.3*200-600" "")

(setq string "钢板2.3*5.2*60")
;;用正则表达式，提取数字
(defun SplitInstead (S / LST REGEX)
  (setq regex (vlax-create-object "VBScript.RegExp"))
  (vlax-put-property regex 'global actrue)
  (vlax-put-property
regex
'pattern
"([url=file://\\d+)?[.]?(\\d]\\d+)?[.]?(\\d[/url]+)"  )
  (vlax-for x (vlax-invoke regex 'execute s)
(setq lst (cons (atof (vlax-get x 'value)) lst))
  )
  (vlax-release-object regex)
  (reverse lst)
)
(SplitInstead string)

newer · 发表于 2013-8-4 14:50:07

/db_自贡黄明儒_ 发表于 2013-8-4 14:36
(setq string "钢板2.3*5.2*60")
;;用正则表达式，提取数字
(defun SplitInstead (S / LST REGEX)

确实，正则表达式可以减少很多代码的，关键是可靠啊。

st788796 · 发表于 2013-8-4 19:54:57

newer 发表于 5 小时前

 登录/注册后可看大图

确实，正则表达式可以减少很多代码的，关键是可靠啊。

所以在桌子这不必追求通用，针对特定应用写函数来自: Android客户端

yansu · 发表于 2013-8-5 07:02:21

很实用的东西。看看{:soso_e102:}

A82613035571210 · 发表于 2013-8-5 07:17:14

很實用的東西。看看

zhangq_cai1 · 发表于 2013-8-5 09:27:07

很实用的东西。看看

q3_2006 · 发表于 2013-8-6 06:48:17

命令: (SplitInstead string)
; 错误: 发生意外。

s678z · 发表于 2015-2-9 08:01:26

根据单重数量算总重并写入明细表有没有办法

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

[他山之石] 《钢板重量计算器》

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评