[求助]：求一个计算钢筋面积并写出的程序

alwaysbin · 发表于 2007-2-8 13:37:13

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

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

×

想编一个计算钢筋面积并写到图上的程序，请哪位高手指点迷津
钢筋的格式为3%%13225表示3根25的钢筋，中间的%%132是钢筋的符号。
我现在有一个计算钢筋面积的子程序，但不知道怎么用？？

[FONT=courier new]
;;钢筋数量
(defun NumOfBars (str)
(apply '+
(mapcar '(lambda (x)
(read (car (Parse_It (vl-string-subst "x" "%%131" x) "x"))))
(Parse_It (car (Parse_It str " ")) "+")))
)
;;计算钢筋面积
(defun BarArea (str / e)
(apply
'+
(mapcar '(lambda (x)
(setq e (Parse_It (vl-string-subst "x" "%%131" x) "x"))
(* (read (car e)) (CirArea (read (cadr e)))))
(Parse_It (car (Parse_It str " ")) "+")))
)
[/FONT]

它山之石 · 发表于 2007-2-8 18:42:53

将字符串拆分为表的子函数Parse_It楼主未提供定义
有了这个子函数后的用法：
(BarArea "3%%13225")
应该返回1473

alwaysbin · 发表于 2007-2-8 20:04:10

[FONT=courier new]
;;计算钢筋面积
(defun BarArea (str / e)
(apply
'+
(mapcar '(lambda (x)
(setq e (Parse_It (vl-string-subst "x" "%%131" x) "x"))
(* (read (car e)) (CirArea (read (cadr e)))))
(Parse_It (car (Parse_It str " ")) "+")))
)
;计算园面积
(defun CirArea (dia)
(* pi dia dia 0.25)
)
;选筋(对称)
(defun PickBars (a n / barlst dia1 pos )
(setq barlst '(12 14 16 18 20 22 25 28 30 32))
(setq dia1 (1+ (fix (sqrt (/ (* 4 (/ a n)) pi)))))
(if (not (member dia1 barlst))
(setq dia1 (nth (setq pos (vl-position
dia1
(vl-sort (cons dia1 barlst) '<)))
barlst))
(setq pos (vl-position dia1 barlst))
)
(if dia1
(cond
((<= n 2)
(strcat "2%%131" (itoa dia1)))
((> n 2)
(if (> pos 0)
(if (> (+ (* (- n 2) (CirArea (nth (1- pos) barlst))) (* 2 (CirArea dia1))) a)
(strcat "2%%131"
(itoa dia1)
"+"
(itoa (- n 2))
"%%131"
(itoa (nth (1- pos) barlst)))
(strcat (itoa n) "%%131" (itoa dia1))
)
(strcat (itoa n) "%%131" (itoa dia1))
);if
)
);cond
) ;if
)
; 作者: Bill Kramer
;
(defun Parse_It (inStr ;Input string to parse
Delim ;Delimeter character (or ascii code)
/ Res ;Result list buffer
Inx ;Character location of delim in string
InxP ;Previous character location
)
;
; Verify DELIM is of the proper type
;
(setq Delim (if (= (type Delim) 'STR)
(ASCII Delim) ;Convert character to integer
(if (/= (type Delim) 'INT) ;is it integer?
32 ;then use space
(if (> 0 Delim 256)
Delim
32)))
;
; Set up parameters for string search loop
;
Inx (VL-String-Position Delim inStr 0)
InxP -1
)
;
(while (and Inx (< Inx (strlen inStr)))
(setq Res
(cons (substr inStr (+ 2 InxP) (- Inx InxP 1))
Res)
InxP Inx
Inx (VL-String-Position Delim inStr (1+ InxP))
)
)
(setq Res (cons (substr inStr (+ 2 InxP)) Res))
(reverse Res)
)
;
[/FONT]

[FONT=courier new] 
;;计算钢筋面积 
(defun BarArea        (str / e) 
  (apply 
    '+ 
    (mapcar '(lambda (x) 
               (setq e (Parse_It (vl-string-subst "x" "%%131" x) "x")) 
               (* (read (car e)) (CirArea (read (cadr e))))) 
            (Parse_It (car (Parse_It str " ")) "+"))) 
  ) 
 ;计算园面积 
(defun CirArea        (dia) 
  (* pi dia dia 0.25) 
  ) 
 ;选筋(对称) 
(defun PickBars         (a n / barlst dia1 pos ) 
  (setq barlst '(12 14 16 18 20 22 25 28 30 32)) 
  (setq dia1 (1+ (fix (sqrt (/ (* 4 (/ a n)) pi))))) 
  (if (not (member dia1 barlst)) 
    (setq dia1 (nth (setq pos (vl-position 
                                dia1 
                                (vl-sort (cons dia1 barlst) '<))) 
                    barlst)) 
    (setq pos (vl-position dia1 barlst)) 
  ) 
  (if dia1 
    (cond 
      ((<= n 2) 
       (strcat "2%%131" (itoa dia1))) 
      ((> n 2) 
       (if (> pos 0) 
         (if (> (+ (* (- n 2) (CirArea (nth (1- pos) barlst))) (* 2 (CirArea dia1))) a) 
          (strcat "2%%131" 
                            (itoa dia1) 
                            "+" 
                            (itoa (- n 2)) 
                            "%%131" 
                            (itoa (nth (1- pos) barlst))) 
          (strcat (itoa n) "%%131" (itoa dia1)) 
          ) 
         (strcat (itoa n) "%%131" (itoa dia1)) 
        );if 
       ) 
      );cond 
    ) ;if 
  ) 
 ; 作者: Bill Kramer 
 ; 
(defun Parse_It         (inStr ;Input string to parse 
                  Delim ;Delimeter character (or ascii code) 
                  / Res ;Result list buffer 
                  Inx ;Character location of delim in string 
                  InxP ;Previous character location 
) 
 ; 
 ; Verify DELIM is of the proper type 
 ; 
  (setq        Delim (if (= (type Delim) 'STR) 
                (ASCII Delim) ;Convert character to integer 
                (if (/= (type Delim) 'INT) ;is it integer? 
                  32 ;then use space 
                  (if (> 0 Delim 256) 
                    Delim 
                    32))) 
 ; 
 ; Set up parameters for string search loop 
 ; 
        Inx   (VL-String-Position Delim inStr 0) 
        InxP  -1 
        ) 
 ; 
  (while (and Inx (< Inx (strlen inStr))) 
    (setq Res 
               (cons (substr inStr (+ 2 InxP) (- Inx InxP 1)) 
                     Res) 
          InxP Inx 
          Inx  (VL-String-Position Delim inStr (1+ InxP)) 
          ) 
    ) 
  (setq Res (cons (substr inStr (+ 2 InxP)) Res)) 
  (reverse Res) 
  ) 
 ; 
  [/FONT]

alwaysbin · 发表于 2007-2-8 20:05:17

全部程序都在这里了，可惜我不会组装，能否按我的意图组装成一个程序？？
谢谢！！！

它山之石 · 发表于 2007-2-9 13:00:14

命令: (BarArea (cdr (assoc 1 (entget (car (entsel))))))
选择对象: 1256.64

命令: (PickBars 20 4)
"4%%13112"

这个子函数写得很专业哦
是哪个高人的手笔啊

happyhxj · 发表于 2007-2-9 14:52:16

上面写的程序很不错啊

zhuiling · 发表于 2007-2-20 21:46:54

如果是132? 130呢

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

[求助] [求助]：求一个计算钢筋面积并写出的程序

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

相关帖子