2021.01.20 18:15
(DEFUN C:hb(/ p-1 p-2)
(setvar "cmdecho" 0)
(setvar "osmode" 165)
(defun dtr (a)
(* pi (/ a 180.0))
)
(defun rtd (a)
(/ (* a 180.0) pi)
)
(setq scale (getvar "dimscale"))
(prompt "\n ***<< AUTOCAD 글자 ALL DIMENSION 치수 쓰기 입니다 >>---->:")
(setq p-1 (getpoint "First point"))
(setq p-2 (getpoint p-1 "Second point"))
(SETVAR "OSMODE" 0)
(setq ang (angle p-1 p-2))
(cond
((or (= ang 0) (= ang pi))
(COMMAND "dim" "hor" p-1 p-2 pause "")
(COMMAND)(COMMAND "DIMCONTINUE")
)
((or (= ang (dtr 90)) (= ang (dtr 270)))
(COMMAND "dim" "vertical" p-1 p-2 pause "")
(COMMAND)(COMMAND "DIMCONTINUE")
)
(T (command "dim" "aligned" p-1 p-2 pause "")
(COMMAND)(COMMAND "DIMCONTINUE")
)
)
(setvar "osmode" 16383)
)