(defun c:BTL(/ di ang angl midp)
(setq sel (car (entsel “n 경사라인 선택 : “)
))
(setq ppp (getpoint”n 거리표시지역 Pick Point.. :”))
(setq qqq (getpoint”n 고저차표시지역 Pick Point.. :”))
(setq ent (entget sel) len (length ent) n 0 tpnt ‘()) (redraw sel 3)
(repeat len
(setq ass (nth n ent) num (car ass) n (+ n 1))
(cond ((= num 10) (setq pnt (list (cdr ass)) tpnt (append tpnt pnt)) ))
) ; re
(setq p1 (nth 0 tpnt) p2 (nth 1 tpnt) pt_list (list p1 p2) )
(setq sell (ssget “F” pt_list ‘((0 . “POLYLINE”) (8 . “15,16”)) ))
(SETQ len (sslength sell) jo_h(rtos (* len 0.2) 2 2) dis (rtos (distance p1 p2) 2 2) )
(command “text” qqq “0.5” “0” jo_h) (command “text” ppp “0.5” “0” (princ dis)) (princ)
)
거리하고 고저차를 나오게하는 리습인데요
거리앞에 “거리:”나온값”m”
고저차앞에 “고저차”:나온값”m”
이런식으로 바꿀려고하는데 아직 리습 ㄱㄴㄷ 수준이라 어떤명령문을 써야하는지 모르겟네요 ㅜㅠ
고수님들 방법좀가르쳐주세욤