“Computational Civil Engineering - "Intersections" International Journal

194 M. Petrina, R. Balc, C. Ciplea, C. Marchis;// The total length of the selected reinforcement it will be given to the global ;//variabile ltwhich will be used in the MARCA function(setq lt tl)); close length functionBelow you can find important parts of the AutoLISP function “MARCA” :(defun C:MARCA ()(setvar "cmdecho" 0)(command "._color" 7);creating the block for writing the reinformants description(setq htext 1rotext 0(setq tes0(getint "Measuring unit in the drawing (=m,=cm,=mm):"))(if (= tes0 1) (setq tes1 1))(if (= tes0 2) (setq tes1 100))(if (= tes0 3) (setq tes1 1000))……………………………;//choosing the name of the block for the current reinforcement description(setq marcbv "qw1")(setq marcb (getstring T "Block name for the current reinforcement : "))(if (= (strlen marcb) 0) (setq marcb marcbv));//reading the drawing scale(command "line" (list 0 0) (list 0 0.001) "")(setq sxv 1 syv 1 rov 0)(SETQ SX (GETstring "\nScale for x:")sy (GETstring "\nScale for y:")ro (GETstring "\nRotation angle :"))……………………………………..//the AutoCAD block elements are created(command "attdef" "i" "" "ELEMENT" "Element" "" "f" p1 p2 htext )(command "attdef" "" "NRE" "Nr.elemente" "1" p9 htext rotext )(command "attdef" "" "OTEL" "Otel" "OB37" p10 htext rotext )