< <> > ;功能:把PKPM生成的结构计算书集成到同一个dwg文件内，以便于编辑和出图。包括:平面图FLR*(FP*)、荷载图 平面导荷简图*、配筋图WPJ*(PJ*)、楼板计算面积简图*、墙受压承载力计算图ZC*、抗震验算结果ZH*、墙轴力设计值图ZN*、柱底内力图WDCNL*(DCNL*),其中*为阿拉伯数字的编号。 ;加载本程序的命令为appload ;命令行格式jzz (defun c:jzz() (princ "插入PKPM生成的结构计算书。\n包括:平面图FLR*(FP*)、荷载图CHKPM*、配筋图WPJ*(PJ*)、板计算结果*、墙受压承载力计算图ZC*、抗震验算结果ZH*、墙轴力设计值图ZN*、柱底内力图WDCNL*(DCNL*)。") (princ "\nDESIGN FOR SICHUAN TONGXUAN,四川同轩.2009.8.28 O(∩_∩)O~ ") (princ "\n注意:请把各Dwg文档拷至同一目录，在该目录中新建一Dwg文档并打开后，板配筋结果文件名必须改为板计算结果0*形式，再执行本命令。") (initget (+ 1 2 4)) (setq L (fix(getreal"\n请输入建筑物的总长,单位为m:"))) (initget (+ 1 2 4)) (setq B (fix(getreal"请输入建筑物的总宽,单位为m:"))) (if (< L 30) (setq L 30)) (if (< B 10) (setq B 10)) (setq floorno 1) (setq idx 0) (setq idy 0) (while (< floorno 100) (setq filename(strcat "WPJC"(itoa floorno)".dwg")) ;插入"边缘构件简图"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "wc"(itoa floorno)".dwg")) ;插入"轴压比"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "wpj"(itoa floorno)".dwg")) ;插入"SATWE配筋图"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "flr"(itoa floorno)".dwg")) ;插入"SATWE平面图"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "楼板计算面积简图"(itoa floorno)".dwg")) ;插入"板计算结果"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "平面导荷简图"(itoa floorno)".dwg")) ;插入"荷载图"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "ZN"(itoa floorno)".dwg")) ;插入"墙轴力设计值图"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "ZC"(itoa floorno)".dwg")) ;插入"墙受压承载力计算图"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "ZH"(itoa floorno)".dwg")) ;插入"抗震验算结果"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "wdcnl"(itoa floorno)".dwg")) ;插入"SATWE柱底内力图"， (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "pj"(itoa floorno)".dwg")) ;插入"TAT配筋图"，pj为图名前缀，如不同请修改本行代码中的pj (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) (setq floorno 1) (setq idx (+ idx (* 2000 L))) (setq idy 0) (while (< floorno 100) (setq filename(strcat "dcnl"(itoa floorno)".dwg")) ;插入"TAT柱底内力图"，dcnl为图名前缀，如不同请修改本行代码中的dcnl (setq iffile(findfile filename)) (setq id(strcat (itoa idx)","(itoa idy))) (while (/= iffile nil) (command".insert"filename id"1""""") (setq idy (+ idy (* 2000 B))) (setq iffile nil) ) (setq floorno(1+ floorno)) nil ) )