세피아님이 올여놓으신 리습 사용해보았는데
문자 높이를 처음에한번 물어보고 두번째는 안물어 봅니다.
높이를 첨음에 못맞추면 곤란합니다. ㅡㅡ”
높이를 계속 물어보게 수정할수 없나요
수정부탁드립니다.
——————————————————-
(defun c:kk()
(if (= jd1 nil)
(progn
(setq jd1 (getreal “ninput text height”))
);of progn
);of if
(graphscr)
(setvar “cmdecho” 0)
(setq os (getvar “osmode” ))
(setvar “osmode” 0)
(setq p1 (getpoint “n면적구할 위치 클릭! “))
(setq p2 (polar p1 (* pi 1.5) (* jd1 2)))
(command “COLOR” “blue” “”)
(command “bpoly” p1 “”) ; CHECK!
(command “area” “o” “l” “”)
(setq e1 (getvar “area”))
(setq d1 (* e1 0.3025))
(setq dm (rtos e1 2 1))
(setq dp (rtos d1 2 1))
(setq bm (strcat “Am =” dm “M2”))
(setq bp (strcat “Ap =” dp “평”))
; (setq bn (strcat “Area=” d2 “ha”))
(command “COLOR” “yellow” “”)
(command “text” p1 jd1 “” bm)
(command “text” p2 jd1 “” bp)
(setvar “osmode” os)
);