리습 봐주세요…ㅠㅠ

직각이 되는 어떤 형체를 만들어서 그걸 array 하고 싶어서 만들어 볼려고 시험 삼아 이것 저것 다른 리습들 보면서 시도해 봤는데 도저히 못하겠어요. 매번 부탁만 드려서 죄송해서 만들어 볼려고 했는데 어렵군요.
책 보고 공부해야 하나봐요.
아래 보시고 바쁘시면 틀린 부분만 수정 좀 부탁드립니다.
그리고 시간 되시면 array도 추가해 주시면 고맙겠습니다.
원래 형태가 어떤 거냐면요… 철골이거든요…
도움 부탁드립니다.
(defun C:741 ()
(setvar “cmdecho” 0)
(setq os (getvar “osmode”))
(setq bl (getvar “blipmode”))
(setq cl (getvar “clayer”))
;—————————————————-
(setvar “blipmode” 1) (setvar “osmode” 33)
(setq pt1 (getpoint “nARRAY 시작점 선택-> end of “))
(setq pt3 (getpoint pt1 “narray끝점 선택-> end of “))
(setq a (angle pt1 pt3)
a1 (+ a (/ a 2)
a2 (angle pt1 pt3)
a3 (+ a (/ a 2))
(setq p1 (polar pt1 a 100))
(setq p2 (polar p1 a1 14))
(setq p3 (polar p2 a2 95.5))
(setq p4 (polar p3 a3 272))
(command “pline” pt1 p1 p2 p3 c “”)
(princ)
)