(defun H_BEAM_TOP(/ pt0 pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10
ang len c1 wb wt c2 c3 dtr rtd an)
(defun dtr(a) (* pi (/ a 180.0))) ; *** 디그리각도 변환 *** ;
(defun rtd(b) (/ (* b 180) pi)) ; *** 라디안각 변환 *** ;
(graphscr)
(setvar “BLIPMODE” 0)
(setvar “CMDECHO” 1)
(setvar “OSMODE” 1)
(setq pt0 (getpoint “n삽입점을 지정 하세요>>: “))
(setq len (getpoint pt0 “n다음점을 클릭 하세요>>: “))
(setq ang (angle pt0 len))
(setq wb (getreal “nH-BEAM의 Flange 폭을 지정하세요>>: “))
(setq wt (getreal “nH-BEAM Web 두께를 입력하세요>>: “))
(setq pt1 (polar pt0 (+ ang (dtr 90)) (/ wb 2))
pt2 (polar pt1 ang len)
pt3 (polar pt2 (+ ang (dtr 270)) wb)
pt4 (polar pt3 (+ ang (dtr 180)) len)
pt5 (polar pt0 (+ ang (dtr 90)) (/ wt 2))
pt6 (polar pt5 ang len)
pt7 (polar pt0 (+ ang (dtr 270)) (/ wt 2))
pt8 (polar pt7 ang len)
pt9 (polar pt0 (+ ang ( dtr 180)) 100)
pt10 (polar pt9 ang (+ len 200)))
(command “pline” pt0 pt1 pt2 pt3 pt4 “c”)
(command “line” pt5 pt6 “”) (setq c1 (entlast))
(command “line” pt7 pt8 “”) (setq c2 (entlast))
(command “line” pt9 pt10 “”) (setq c3 (entlast))
(command “chprop” c1 c2 “” “color” 4 “” )
(command “chprop” c3 “” “color” 1 “” )
)
; error: bad argument type: numberp: (245.128 170.955 0.0)
이런 메세지가 뜨네요
정말 안되네요 …..