(VMON)
(defun C:XYP1 ()
(reset)
(setvar “cmdecho” 0)
(setvar “orthomode” 0)
(setvar “blipmode” 0)
(terpri)
(setq a”X”)
(setq b”Y”)
(command “layer” “m” “dim” “”)
(command “dim” “dimblk” “dot” exit)
(command “dim” “dimasz” “0.7” exit)
(setq p1 (getpoint “nEnter Coordinates of which point?:”))
(setq e (rtos (car p1 ) 2 2))
(setq n (rtos (cadr p1) 2 2))
(setq coord (strcat a e b n))
(setq p2 (getpoint p1″nPick Text Location:”))
(command “dim” “leader” p1 p2 “” coord exit)
(reset1)
(princ))
;——————————————————————————-
(defun reset()
(setq old_osm (getvar “osmode”))
(setq old_lay (getvar “clayer”))
(setq old_cmd (getvar “cmdecho”))
(setq old_ort (getvar “orthomode”))
(setq old_bli (getvar “blipmode”))
(setq old_asz (getvar “dimasz”))
(setq old_scl (getvar “dimscale”))
(graphscr)
(princ))
;——————————————————————————-
(defun reset1()
(command “layer” “m” old_lay “”)
(setvar “osmode” old_osm)
(setvar “cmdecho” old_cmd)
(setvar “orthomode” old_ort)
(setvar “blipmode” old_bli)
(command “dim” “dimblk” “.” exit)
(command “dim” “dimasz” old_asz exit)
(command “dim” “dimscale” old_scl exit)
(graphscr)
(princ))
;*******************************************************************************
이걸 실행하면 소숫점이 4자리로 나오는데 2자리로 나온게 할수는 없나요..그리고 정수일때는
(ex: 10 =>10.00) 이렇게 나오게 하고 싶은데요….
참고로 전 리습 전혀 모릅니다. 누가 만든건데 저에게 유용해서 좀 바꾸고 싶은데….
제발 고수님들 부탁드립니다.