(strcat "J:/x800/" JobNum
"/RoofDes.out") ;reopens first file "r")
)
(/= b1_line " LAYOUT:");finds a certain line in the file
)
)
(repeat 6 ;goes down another 6 lines )
)
(substr b1_line
22 6);extracts distance from rigid frame offset to first bay of bldg. )
)
(* bay1 12)
)
(+ bay1 rfo);redefines bay1 to include rigid frame offset as part of the total bay width
)
(setq p7
(list bay1 z z
));sets coordinates for first bay line to be drawn ;The next if statement sets it up to draw rigid frame center lines until a certain point, then
;it will not draw any more. This is to allow for projects that have different numbers of bays.
(/= bay1
(- le rfo) ;if bay1 is NOT equal to bldg length - rigid frame offset then...
)
)
)
)