리습관련 질문있습니다.(각도치수 넣어주는 법..)



안녕하세요 캐드와 리습을 공부중인 직장인 입니다. 리습만들다가 질문드릴게 있어서 올립니다.

제가 짜는 리습이 아래와 같이 두선의 길이와 사이 각도를 입력하면 자동으로 그려지는 리습인데요

여기서 두선 사이의 각도에 대한 치수를 자동으로 넣어주게 짜고 싶은데 잘안되네요.. 가능하시다면 좀 알려주세요

———————————————————————————–

(defun c:cs ()

(setq oldsnap (getvar “osmode”))

(setq oldblipmode (getvar “blipmode”))

(setvar “osmode” 0)

(setvar “blipmode” 0)

(setq PL1 (getdist “n>>벽체부 보강재 발길이: “))

(setq PL2 (getdist “n>>헌치부 보강재 길이: “))

(setq wla (getdist “n>>각도 : “))

(setvar “osmode” 48)

(while (setq p1 (getpoint “n>> 시작점 : “))

(setvar “osmode” 0)

(setq p2 (polar p1 (dtr wla) PL1))

(setq p3 (polar p1 0 PL2))

(command “line” p1 p2 “”)

(command “line” p1 p3 “”)

(setvar “osmode” 48)

)

(setvar “osmode” oldsnap)

(servar “blipmode” oldblipmode)

(princ)

)

(princ)

(defun dtr (x)

(* pi ( / x 180.0))

)