住宅现在不能用预制板了！

谁说不用预制的了,山东省高密这还是以它为主的呢
都过了一年了,我看到一年前的帖子还说山东不搞的了,哪有哪会事,毕竟这省钱
说到板缝吗,一般不小于20的,不过最好不要大于40,毕竟大于40就要加筋了
20-40之间不用配筋,或只配一根钢筋就可以了

我们这里省标规定是30～100，一般大于等于60需要做吊缝处理

谁说山东能用啊？我这里（济南）已经不让用5、6年了。。。。。。。。。。。。。。

我在安徽，也在省会城市。没听说预制板不给用。只是现在对工程的抗震设计要求高了，预制板用得比以前少了，再说现在都是老百姓自己掏钱买房，谁愿意买带裂缝的地面啊。我的体会是预制斑跨度在３．４米之内，板的桡度较小，裂缝容易控制，反之裂缝很难根治。大家用起来要当心啊。。。。

预制板的施工图应当表述以下内容:

1、预制板所在房间即预制板的铺设范围；

2、预制板属于单向传力构件，务必要表示清楚预制板的铺设方向，即预制板的支座放在在哪两堵平行承重墙上？

3、预制板的块数，要保证板缝宽度在30-50mm之间为宜。其原因有三：

①大于30mm有利于对板缝的灌浆施工，保证灌缝质量，确保预制板之间的抗剪强度；

②此范围内的板缝需要加一根板缝通长构造钢筋，该钢筋对保证预制板之间的抗剪强度，在地震作用下确保预制板的整体性极为有利；

③板缝大于50mm时，需要单独按现浇板带（即受力构件）来计算、设计，只设一根板缝通长构造钢筋是不安全的，现浇板带的成本要大于板缝小于50mm时的构造措施；

4、预制板跨度不符合标准模数（300的倍数）时，一般选用大于、最接近实际跨度的标准预制板，但要注明其实际跨度，我一般在预制板标注下注明 L=**00，且在图纸说明里明确：图中预制板 L=**00为截短后标志长度；

上图中：仅画出一块预制板表示了整个房间的预制板铺设方向。斜线表示出了预制板的实际铺设范围，特别注意和构造柱的关系：不要和构造柱打架。斜线上方标注所选用的预制板数量、型号。

如果非标准跨度，可按下图表示：

下面是采用Lisp语言编写的预制板绘制程序：

;;*****************************************************************************
;;;定义“zz”命令，处理各种异常情况，调用主程序
(defun c:zz(/ AP:UNDOCTL AP:SYSVARS AP:OLD-ERROR)
(setvar "cmdecho" 0) ; 关闭命令回显
(ap-push-undo nil) ; 开始UNDO组合
(ap-push-error ap-error) ; 保存出错处理函数
(ap-exit-transparent) ; 如果透明调用则退出
(ap-push-vars ’(("clayer"))) ; 保存系统变量
(yzb-main) ; 调用主程序
(ap-pop-undo) ; 结束UNDO组合
;(setvar "cmdecho" oldech); 恢复命令回显
(ap-pop-vars) ; 恢复系统变量
(ap-pop-error) ; 恢复出错处理函数
(princ) ; 无显示退出
)
(defun myfix (#s #sr)
(* (fix (+ (/ (float #s) #sr) 0.5)) #sr)
)
;;*****************************************************************************
;;yzb-main
;;功 能：主程序。
(defun yzb-main(/ pt1 pt2 pt3 pt4 pt5 ds ds1 x n mi ptx1 pty1 ptx2 pty2 dx dy kd a1 bb m500 m600 max600 max500 bb500 bb600 s data texthigh l0 textl0)

(ap-push-command)

;;;以下为输入部分
(vl-cmdf "_osnap" "int,end,mid,cen");设置捕捉
(princ " n预制板绘制 V3.0 e-rabbit@163.com");提示版权

;hzdj荷载等级
(if (= hzdj nil) (setq hzdj 1))
(setq hzdj (uint 7 "1 2 3" " n请输入荷载等级1、2、3" hzdj))
;(initget "1 2 3")
;(if (null
;(setq hzdj (getint (strcat " n请输入荷载等级1、2、3<" (rtos hzdj 2 0) ">: ")))
;)
;(setq hzdj 1) ; 如果没有输入赋值为1
;)
(if (and (and (/= hzdj 1) (/= hzdj 2)) (/= hzdj 3))
(progn
(princ " n该荷载等级的预制板不存在")
(setq hzdj 1)
(exit)
)
)

(if (not (tblsearch "layer" "预制板")) ;判断是否存在预制板层,无则创建。
(vl-cmdf "_layer" "n" "预制板" "s" "预制板" "c" 6 "" "");设置预制板图层
(setvar "clayer" "预制板")
;(vl-cmdf "_layer" "s" "预制板" "")
)

(setq pt1 0); pt1为房间左下角点
(setq pt2 0); pt2为房间右下角点

(if (null
(setq pt1 (getpoint " n 预制板绘制 V2.0 输入起点："))
)
(exit) ; 如果没有指定点退出
)

(if (null
(setq pt2 (getpoint pt1 " n 预制板绘制 V2.0 输入终点："))
)
(exit) ; 如果没有指定中心点退出
)


;;;画出对角线
(vl-cmdf "_line" pt1 pt2 "")


;;判断图纸比例，参数为x，x=1为1:100（毫米为单位），x=100为1:1（分米为单位）
;;判断预制板铺放角度，参数为n，n=0为水平,n=90为垂直
;;ds为起点、终点距离
(setq ds 0)
(setq ds1 0)
(setq x 0)
(setq ptx1 0)
(setq ptx2 0)
(setq pty1 0)
(setq pty2 0)
(setq n 0)
(setq ds (distance pt1 pt2))
;;;ds为起始点到终止点距离
(setq ds1 (/ ds 100))
(if (< ds1 1) (setq x 100.0) (setq x 1.0))
(setq ptx1 (car pt1))
(setq pty1 (cadr pt1))
(setq ptx2 (car pt2))
(setq pty2 (cadr pt2))
(setq n 0)
(if (and
(< ptx1 ptx2)
(< pty1 pty2)
)
(setq n 0.0)
(setq n 90.0)
)
;;;(print n)


;;以下画出一块500宽预制板
(setq pt3 0)
(setq pt4 0)
(setq pt5 0)
(setq dx 0)
(setq dy 0)

(setq bb 0)
(if (= x 1.0)
(setq dy 500.0)
(setq dy 5.0)
)
;(print dy)
(if (= n 0.0)
(progn
(setq pt3 (list ptx1 pty2 0))
(setq pt4 (list ptx1 (- pty2 dy) 0))
(setq pt5 (list ptx2 (- pty2 dy) 0))
(setq dx (- ptx1 ptx2))
(vl-cmdf "_rectang" pt3 "d" dx dy pt1)
)
(progn
(setq pt3 (list ptx2 pty1 0))
(setq pt4 (list (+ ptx2 dy) pty1 0))
(setq pt5 (list (+ ptx2 dy) pty2 0))
(setq dx (- pty1 pty2))
(vl-cmdf "_rectang" pt3 "d" dy dx pt2)
)
)

(if (= n 0.0)
(setq bb (- pty2 pty1) )
(setq bb (- ptx1 ptx2))
)

;;;画板结束，以下提示预制板跨度、铺设方向距离
;(princ x)
(if (= x 1.0)
(progn
(princ " n预制板跨度为: ")
(setq dx (fix (abs dx)))
(princ dx)
(princ "mm ")
(setq bb (myfix bb 1))
(princ "铺设方向距离为: ")
(princ bb)
(princ "mm ")
)
(progn
(princ " n预制板跨度为: ")
(setq dx (* dx 100))
(setq dx (fix (abs dx)))
(princ dx)
(princ "mm ")
(setq bb (* bb 100))
(setq bb (myfix bb 1))
(princ "铺设方向距离为: ")
(princ bb)
(princ "mm ")
)
)

;限制预制板的跨度2400≤dx≤4200，否则提示、退出
(if (or (> dx 4200) (< dx 2400))
(progn
(princ " n非120厚预制板不建议采用，请自行选择平板或180厚预制板或采用现浇板")
(vl-cmdf "_erase" "l" "")
(vl-cmdf "_erase" "l" "")
(exit)
)
)



(setq mi (list (/ (+ (car pt1) (car pt2)) 2)
(/ (+ (cadr pt1) (cadr pt2)) 2)
(/ (+ (caddr pt1) (caddr pt2)) 2)
);计算中点作为字中对齐点mi
)
;(princ mi)

(if (not (tblsearch "style" "TSSD_Label")) ;;判断是否存在TSSD_Label字体,无则创建
(vl-cmdf "_style" "TSSD_Label" "tssdeng,hztxt" 0 0.7 0 "n" "n" "n")
(setvar "textstyle" "TSSD_Label")
)

;设定字高
(if (= x 1.0)
(setq texthigh 250)
(setq texthigh 2.5)
)

(if (= n 90) (setq pt2 pt1))
;(princ dx)
;板垮是否为标准模数，否则转化为标准模数且标注L=XXXX
(if (/= (gcd dx 300) 300)
(progn
(setq l0 dx);保存非标跨度
(setq textl0 (strcat "L=" (itoa l0)))
;(princ textl0)
;(princ (type textl0))
;(princ mi)
;(princ pt2)
;(princ texthigh)
(vl-cmdf "_text" "tl" mi texthigh pt2 textl0)
(cond
((and (< dx 4200) (> dx 3900)) (setq dx 4200))
((and (< dx 3900) (> dx 3600)) (setq dx 3900))
((and (< dx 3600) (> dx 3300)) (setq dx 3600))
((and (< dx 3300) (> dx 3000)) (setq dx 3300))
((and (< dx 3000) (> dx 2700)) (setq dx 3000))
((and (< dx 2700) (> dx 2400)) (setq dx 2700))
)
)
)
;(princ l0)

;根据板垮写出YKBXX
(setq kd (substr (rtos dx) 1 2))
(setq kd (strcat "YKB" kd));造字如：YKB42

;(princ texthigh)
;(vl-cmdf "_text" "bc" mi texthigh pt2 kd)

(setq max500 (fix (/ bb 500)))
(setq max600 (fix (/ bb 600)))
(setq data ’())
;(princ max500)
;(princ max600)
(if (< max500 1)
(progn
(princ " n小于最小板宽，请选用平板")
(exit)
)
)
(setq m500 -1)
(while (<= m500 max500)
(setq m500 (+ m500 1))
(setq m600 -1)
(while (<= m600 max600)
(setq m600 (+ m600 1))
(if (/= (- (+ m500 m600) 1) 0)
(setq s (/ (- bb (+ (* 500 m500) (* 600 m600))) (- (+ m500 m600) 1)))
)
(if (and (and (> s 0) (>= s 30)) (<= s 50))
(setq data (cons (cons (list m500 m600) s) data))
)
)
)
;(princ data)
(setq m500 0);500宽板数
(setq m600 0);600宽板数