生成钢筋统计表

st788796 · 发表于 2013-10-18 09:37:43

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

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

×

本帖最后由 st788796 于 2013-10-26 19:48 编辑

(defun c:XDTB_GJTJB (/ attl colnum colwid e ll myerr n
nl olderr p ss str strl tb title mktitle
)
(defun mktitle (bn / strl pl ln txt)
(setq strl (* (xd::string:len nil "钢筋工程数量表" 24. 1) 0.5)
ln (xdrx_line_make (list (- strl) -6. 0.) (list strl -6. 0.))
pl (xdrx_polyline_make (list (- strl) 0. 0.) (list strl 0. 0.))
txt (xdrx_text_make '(0. 0. 0.) "钢筋工程数量表" 24.)
)
(xdrx_setpropertyvalue pl "ConstantWidth" 3.)
(xdrx_setpropertyvalue txt "HorizontalMode" 1)
(xdrx_setpropertyvalue txt "verticalMode" 1)
(xdrx_setpropertyvalue txt "AlignmentPoint" '(0. 5. 0.))
(ssadd pl ln)
(ssadd txt ln)
(xdrx_block_make bn ln '(0. 0. 0.) t)
(entdel (entlast))
nil
)
(if (and (setq ss (ssget '((2 . "ATTS"))))
(setq p (getpoint "\nTable Position: "))
)
(progn
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(mapcar '(lambda (x)
(if (= (xdrx_getpropertyvalue x "Tag") "C")
(setq nl
(cons
(list (atoi (xdrx_getpropertyvalue x "Textstring"))
e
)
nl
)
)
)
)
(xdrx_getpropertyvalue e "AttributeEntities")
)
)
(setq attl
(mapcar
'(lambda (c / m)
(setq m (car c))
(list
(car m)
(cadr m)
(itoa (apply '+ (mapcar 'atoi (mapcar 'caddr c))))
(nth 3 m)
(last m)
)
)
(mapcar
'(lambda (x / l)
(mapcar
'(lambda (a)
(mapcar
'(lambda (b)
(xdrx_getpropertyvalue b "Textstring")
)
(xdrx_getpropertyvalue a "AttributeEntities")
)
)
(cdr x) ;_仅要实体
)
)
(setq nl (xd::list:groupbyindex nl 0)) ;_此处索引为实数钢筋编号，仅误差有效
)
)
)
;; =0.00617*D2
;; 2 12 960 25
(setq str
(mapcar
'(lambda (x / a b c d e f g)
(mapcar 'set '(a b c d) x)
(list a
b
c
d
(setq e (rtos (* (atoi c) (atoi d) 0.01) 2 2))
(setq f (rtos (* (atoi b) (atoi b) 0.00617) 2 3))
(setq g (rtos (* (distof e) (distof f)) 2 2))
(strcat b " " g "Kg")
)
)
(vl-sort
attl
'(lambda (e1 e2) (< (atoi (car e1)) (atoi (car e2))))
)
)
)
(setq ll (length nl)
tb (xdrx_table_make p (+ 2 ll) 56. 8 110.)
colnum '(0 1 2 3 4 5 6 7)
colwid '(84 90 100 120 130 120 116 230)
title '("编号" "直径\\P(mm)"
"根数" "单根长\\P(cm)"
"总长\\P(m)" "延米重\\P(Kg)"
"总重\\P(Kg)" "合计"
)
n 1
)
(repeat (1+ ll)
(setq strl (cons (mapcar '(lambda (x) (list n x)) colnum) strl)
n (1+ n)
)
)
(if (not (tblsearch "block" "xd-title"))
(mktitle "XD-Title")
)
(xd::table:begin tb)
(mapcar '(lambda (i w) (xdrx_table_setcolumnwidth tb i w))
colnum
colwid
)
(xdrx_table_setgridvisibility tb 2 59 nil)
(xdrx_table_setrowheight tb 1 96);_header
(xdrx_table_setrowheight tb 0 80);_title
(xdrx_table_settextheight tb 7 20.);_data
(xdrx_table_settextheight tb 2 29.) ;_Title
(xdrx_table_setalignment tb 1 5) ;_Data
(xdrx_table_settextstring
tb
(apply
'append
(mapcar '(lambda (x y)
(mapcar '(lambda (a b) (append b (list a))) x y)
)
(cons title str)
(reverse strl)
)
)
)
(xdrx_table_setblockid
tb
0
0
(xdrx_object_get "Block" "XD-Title")
nil
)
(xd::table:end tb)
)
)
(princ)
)

(defun c:XDTB_GJTJB (/     attl   colnum colwid e ll     myerr  n 
      nl     olderr p   ss  str strl   tb     title mktitle 
     ) 
  (defun mktitle (bn / strl pl ln txt) 
    (setq strl (* (xd::string:len nil "钢筋工程数量表" 24. 1) 0.5) 
   ln   (xdrx_line_make (list (- strl) -6. 0.) (list strl -6. 0.)) 
   pl   (xdrx_polyline_make (list (- strl) 0. 0.) (list strl 0. 0.)) 
   txt  (xdrx_text_make '(0. 0. 0.) "钢筋工程数量表" 24.) 
    ) 
    (xdrx_setpropertyvalue pl "ConstantWidth" 3.) 
    (xdrx_setpropertyvalue txt "HorizontalMode" 1) 
    (xdrx_setpropertyvalue txt "verticalMode" 1) 
    (xdrx_setpropertyvalue txt "AlignmentPoint" '(0. 5. 0.)) 
    (ssadd pl ln) 
    (ssadd txt ln) 
    (xdrx_block_make bn ln '(0. 0. 0.) t) 
    (entdel (entlast)) 
    nil 
  ) 
  (if (and (setq ss (ssget '((2 . "ATTS")))) 
    (setq p (getpoint "\nTable Position: ")) 
      ) 
    (progn 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
 (mapcar '(lambda (x) 
     (if (= (xdrx_getpropertyvalue x "Tag") "C") 
       (setq nl 
       (cons 
         (list (atoi (xdrx_getpropertyvalue x "Textstring")) 
        e 
         ) 
         nl 
       ) 
       ) 
     ) 
   ) 
  (xdrx_getpropertyvalue e "AttributeEntities") 
 ) 
      ) 
      (setq attl 
      (mapcar 
        '(lambda (c / m) 
    (setq m (car c)) 
    (list 
      (car m) 
      (cadr m) 
      (itoa (apply '+ (mapcar 'atoi (mapcar 'caddr c)))) 
      (nth 3 m) 
      (last m) 
    ) 
  ) 
        (mapcar 
   '(lambda (x / l) 
      (mapcar 
        '(lambda (a) 
    (mapcar 
      '(lambda (b) 
         (xdrx_getpropertyvalue b "Textstring") 
       ) 
      (xdrx_getpropertyvalue a "AttributeEntities") 
    ) 
         ) 
        (cdr x) ;_仅要实体 
      ) 
    ) 
   (setq nl (xd::list:groupbyindex nl 0)) ;_此处索引为实数钢筋编号，仅误差有效 
        ) 
      ) 
      ) 
      ;; =0.00617*D2 
      ;; 2 12 960 25 
      (setq str 
      (mapcar 
        '(lambda (x / a b c d e f g) 
    (mapcar 'set '(a b c d) x) 
    (list a 
   b 
   c 
   d 
   (setq e (rtos (* (atoi c) (atoi d) 0.01) 2 2)) 
   (setq f (rtos (* (atoi b) (atoi b) 0.00617) 2 3)) 
   (setq g (rtos (* (distof e) (distof f)) 2 2)) 
   (strcat b " " g "Kg") 
    ) 
  ) 
        (vl-sort 
   attl 
   '(lambda (e1 e2) (< (atoi (car e1)) (atoi (car e2)))) 
        ) 
      ) 
      ) 
      (setq ll    (length nl) 
     tb    (xdrx_table_make p (+ 2 ll) 56. 8 110.) 
     colnum '(0 1 2 3 4 5 6 7) 
     colwid '(84 90 100 120 130 120 116 230) 
     title  '("编号"        "直径\\P(mm)" 
       "根数"        "单根长\\P(cm)" 
       "总长\\P(m)"      "延米重\\P(Kg)" 
       "总重\\P(Kg)"     "合计" 
      ) 
     n    1 
      ) 
      (repeat (1+ ll) 
 (setq strl (cons (mapcar '(lambda (x) (list n x)) colnum) strl) 
       n    (1+ n) 
 ) 
      ) 
      (if (not (tblsearch "block" "xd-title")) 
 (mktitle "XD-Title") 
      ) 
      (xd::table:begin tb) 
      (mapcar '(lambda (i w) (xdrx_table_setcolumnwidth tb i w)) 
       colnum 
       colwid 
      ) 
      (xdrx_table_setgridvisibility tb 2 59 nil) 
      (xdrx_table_setrowheight tb 1 96);_header 
      (xdrx_table_setrowheight tb 0 80);_title 
      (xdrx_table_settextheight tb 7 20.);_data 
      (xdrx_table_settextheight tb 2 29.) ;_Title 
      (xdrx_table_setalignment tb 1 5) ;_Data 
      (xdrx_table_settextstring 
 tb 
 (apply 
   'append 
   (mapcar '(lambda (x y) 
       (mapcar '(lambda (a b) (append b (list a))) x y) 
     ) 
    (cons title str) 
    (reverse strl) 
   ) 
 ) 
      ) 
      (xdrx_table_setblockid 
 tb 
 0 
 0 
 (xdrx_object_get "Block" "XD-Title") 
 nil 
      ) 
      (xd::table:end tb) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2013-10-18 10:36:39

蓝色太靠色，看不清。

newer · 发表于 2013-10-18 10:45:54

提个建议，最好别用外部块，程序自己根据需要创建，也是很简单的块。

st788796 · 发表于 2013-10-18 11:54:04

newer 发表于 2013-10-18 10:45
提个建议，最好别用外部块，程序自己根据需要创建，也是很简单的块。

程序内部制作的块

guowhlg · 发表于 2013-10-21 22:13:21

确实比较牛AB

cmssrr520 · 发表于 2013-10-25 10:51:31

这个的确是强！

wdp2013 · 发表于 2013-11-17 17:45:38

用不了啊，

you238 · 发表于 2013-12-22 15:48:53

需要先给实体赋属性吗？

hzj268 · 发表于 2014-1-28 13:10:37

老大发的帖子支持一下

dhg0823 · 发表于 2014-2-22 18:59:18

这个真的不错啊，一下咎不少力气啊

cooolsee · 发表于 2014-5-8 22:07:20

强大，这样的工具真厉害

xxwoaini897 · 发表于 2014-6-14 12:52:11

拿分走人啊，支持楼主，

chucklehead · 发表于 2014-8-6 12:42:08

学习学习，谢谢学习学习，谢谢

gg5120 · 发表于 2016-10-17 08:42:43

这个看起来很强大哦

duan1980 · 发表于 2016-10-18 09:57:42

学习一下，谢谢分享！

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

[工具] 生成钢筋统计表

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

相关帖子

点评