“Computational Civil Engineering - "Intersections" International Journal

“Computational Civil Engineering 2005”, International Symposium 197a file with the data needed by “Table” AutoLISP function, to draw thereinforcement table into AutoCAD drawing.C. AutoLISP function “TABLE”This function will create in the AutoCAD drawing, the reinforcement table usingthe data from the input file, generated previously by the sort program.(defun C:EXTRAS ()……………………………;// the user has to give the path and filename for the input file(setq file1 (getstring "\nFilename :" ))(setq file1 (strcat file1 ".rfg"))(setq f1 (open file1 "r"))(setq titlu (read-line f1))(setq ln (read-line f1));;// the reinforcement table will be an AutoCAD Block object(setq ext (getstring T "Block name for the table : "));//drawing the table heading(setq h 1.0lc (* h 4.0)htext (* h 0.7)d (* h 0.1)d0 (* lc 2.0)dmax (* lc (+ ncd 8)))(setq t1 "Elementul" t2 "Marca" t3 "D" t4 "Lungimea" t5 " Numar bare "……………………………..t6 "pe element" t7 "total" t8 " Lungimi pe diametre "t9 "OB37" t10 "PC52" t11 "PC60" t12 "STNB"t13 "STPB" t14 "Nr.marca" );// drawing into the table the total lengths etc(command "._line" (setq z1 (list (* lc 3.0) (- y (* h 1))))(list dmax (- y (* h 1))) "")(command "._line" (setq z2 (list (* lc 3.0) (- y (* h 2))))(list dmax (- y (* h 2))) "")