“Computational Civil Engineering - "Intersections" International Journal

“Computational Civil Engineering 2005”, International Symposium 195(command "attdef" "I" "" "M" "Marca" "1" "f" p2 p21 htext )(command "attdef" "" "NR" "Nr.buc" "1" "f" p3 p31 htext )(command "attdef" "" "D" "Diametrul" "10" "f" p5 p51 htext )(command "attdef" "" "L" "Lungimea" "1" "f" p7 p8 htext )(command "circle" (list (+ (car p2) 0.50) (+ (cadr p2) 0.5)) 0.75)(command "circle" (list (- (car p5) 0.75) (+ (cadr p5) 0.5)) 0.5)(command "line" (list (- (car p5) 1.25) (cadr p5) )(list (- (car p5) 0.25) (+ (cadr p5) 1)) "")(command "text" "f" p6 p7 htext "-L= " )(while ent0(setq setsel (ssadd ent1 setsel)ent1 (entnext ent0)ent0 ent1));inchide while ent0(command "block" marcb (list 0 0) setsel "")……………………………………..;//reading the information given by the user : element name, steel grade, number of;//pieces, diameter.(setq i 0jnrmarcimarcav 0code T)(while (= code T)(setq elem (strcase (getstring T "Element name :"))(if (> (strlen elem) 0)(progn(setq i (+ i 1))(setq nre (getint "Number of the same element :"))(setq otelv "OB37")(setq codm T)(while (= codm T)