(defun c:BTL(/ di ang angl midp)
(setq sel (car (entsel “n 경사라인 선택 : “) ))
(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 . “LWPOLYLINE”) (8 . “15,16”)) ))
(SETQ len (sslength sell) jo_h (* len 0.2) dis (rtos (distance p1 p2) 2 2) )
(prompt “n 고저차 : “) (princ jo_h) (prompt “m”) (prompt “t 거리 : “) (princ dis) (prompt “m”)(princ)
)
이게 선에걸리는 15,16레이어의 갯수를세어서 그선의 길이랑 15,16레이어를 0.2m로인식 고저차를 산출하는건데 명령창에 나오거든요 ;; 이걸
캐드창에 텍스트로 표현할수있을까요!!
그리고 스폴라인도 인식할수있을까요
부탁좀드립니다 !!