;CONCWALL-O   Jon Brazier c. 10/03
;draws reinforced concrete wall w/ horiz. bars outside
(defun c:concwall-o ()
(graphscr)
 (setq 
   rrl (getvar "CLAYER")
   osm (getvar "OSMODE")
   ort (getvar "ORTHOMODE"))
(setvar "OSMODE" 0)
(setvar "ORTHOMODE" 1)
(setvar "cmdecho" 0)
	(command "undo" "be")
	(setq inspnt(getpoint "\nInsertion point for centerline of wall: "))
	(setq endpnt(getpoint inspnt "\nEndpoint of wall centerline: "))
	(setq wdth(getdist "\nWall thickness: "))
	(setq wllang(angle inspnt endpnt))
	(setq offang1(- wllang (* pi 0.5)))
	(setq offang2(+ wllang (* pi 0.5)))
	(setq pnt1 (polar inspnt offang1 (* wdth 0.5)))
	(setq pnt2 (polar inspnt offang2 (* wdth 0.5)))
	(setq pnt3 (polar endpnt offang1 (* wdth 0.5)))
	(setq pnt4 (polar endpnt offang2 (* wdth 0.5)))
	(setq pnt5 (polar pnt1 offang1 (- 2.5)))
	(setq pnt6 (polar pnt2 offang2 (- 2.5)))
	(setq pnt7 (polar pnt3 offang1 (- 2.5)))
	(setq pnt8 (polar pnt4 offang2 (- 2.5)))
	(setq bar1 (polar pnt5 offang1 (+ 0.5)))
	(setq bar2 (polar pnt6 offang2 (+ 0.5)))
	(setq bar3 (polar pnt7 offang1 (+ 0.5)))
	(setq bar4 (polar pnt8 offang2 (+ 0.5)))	
		(entmake (list '(0 . "LINE")'(8 . "conc")(cons 10 pnt1)(cons 11 pnt3)))
		(entmake (list '(0 . "LINE")'(8 . "conc")(cons 10 pnt2)(cons 11 pnt4)))
		(entmake (list '(0 . "LINE")'(8 . "reinf")(cons 10 pnt5)(cons 11 pnt7)))
		(entmake (list '(0 . "LINE")'(8 . "reinf")(cons 10 pnt6)(cons 11 pnt8)))
		  (command "layer" "s" "reinf" "")	
		  (setvar "CECOLOR" "3")
		   (command "donut" "0" "0.625" bar1 "")
  		   (command "move" "l" "" pnt5 "@0,2")
		   (command "donut" "0" "0.625" bar2 "")
	 	   (command "move" "l" "" pnt7 "@0,2")
	   	   (command "donut" "0" "0.625" bar3 "")
	           (command "move" "l" "" pnt6 "@0,-2")
	(setq DIST1 (- (distance pnt5 pnt7) 4))
	(setq XX (getstring "Maximum Bar Spacing: "))
	(setq NUM1 (distof XX 4))
	(setq DISP1 (/ DIST1 NUM1))
	(setq NUM2 (- DISP1 (fix DISP1)))
	   (if (> 0 NUM)(setq NUM2 (+ (fix DISP1) 1)))
	(setq DIST2 (/ DIST1 NUM2))
	(setq DIST3 (strcat (chr 45)(rtos DIST2)))
		(command "ARRAY" "l" "" "R" NUM2 "" DIST3)
		(command "donut" "0" "0.625" bar4 "")
		(command "move" "l" "" pnt8 "@0,-2")
		(command "ARRAY" "l" "" "R" NUM2 "" DIST3)
(command "lengthen" "del" "-1.5" pnt5 pnt6 pnt7 pnt8 "")
(setvar "CECOLOR" "bylayer")
(command "layer" "s" rrl "")
(setvar "OSMODE" osm)
(setvar "ORTHOMODE" ort)
(princ)
);end of file