현재 캐드 리습프로그램을 짜고 있는데요…
아래와 같은 코딩중 예를들어
벽체부 보강재 발길이 : 300
슬래브부 보강재 발길이 : 300
각도 : 135도 를 넣으면 삼각형이 그려지는데요
그 삼각형 안에 해치중 솔리드 색깔은 상관없으나 기왕이면 노랑색 으로 자동으로 채워지게끔 하고 싶은데 아무리 해도 안되네요…
고수님들 고견 부탁드립니다
—————————————————————————————————
(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 “”)
(command “line” p2 p3 “”)
(setvar “osmode” 48)
)
(setvar “osmode” oldsnap)
(servar “blipmode” oldblipmode)
(princ)
)
(princ)
(defun dtr (x)
(* pi ( / x 180.0))
)
시도 해보신 파일을 올려 보세요