2002에선 잘 작동했는데 2006에선 작동을 안하네요 뭐가 잘못된건지
알려주세요
—————————————————————
(defun C:el()
(graphscr)
;The dtr function Convert degree to radian
;The rtd function Convert radian to degree
(defun dtr (ag)
(* pi (/ ag 180.0))
)
;
(defun rtd (ag)
(/ (* ag 180.0) pi)
)
(setvar “osmode” 0)
(setvar “osmode” 32)
(setq c (getvar “LTSCALE”)) (terpri)
(setq typ n)
(setq p1 (getpoint “base point : “)) (terpri)
(setvar “osmode” 512)
(setq p2 (getpoint “select main line point : “)) (terpri)
(setq p3 (getpoint “select brach line point : “)) (terpri)
(setq a (angle p1 p2)) (terpri)
(setq a1 (angle p2 p1))
(setq a2 (angle p1 p3))
(setq p6 (polar p1 (+ a2 (dtr 0)) (* c 1.5)))
(setq p4 (polar p1 (+ a (dtr 0)) (* c 1.5)))
;(setq p5 (polar p1 (+ a (dtr 180)) (* c 2)))
(setq py (polar p1 (+ a2 (dtr 180)) (* c 1.2)))
(setq px (polar p1 (+ a (dtr 180)) (* c 1.2)))
(command “trim” p2 “” py “”)
(command “trim” p3 “” px “”)
; Do you want to breaking
(command “break” p4 “f” p4 p1)
(command “break” p3 “f” p6 p1)
(command “insert” “el” p1 c c (rtd a1))
(setq typ (getstring “ARE YOU MIRROR OF THE BLOCK(Y/N) : “))
(if(= typ “y”)
(progn
(command “mirror” p1 “” p1 p2 “y” “”)
)
)
(command “n”)
)
—————————————————————