||||>제가지금 리습을 처음으로 배우는사람인데요...
>제가만든것이있는데 수정부탁드립니다..
>라인이 그려지고거기에 좌표값이나오고 그점에 원이생기고
>그라인에 윗에는 관번호 밑에는 연장이 나오는리습을 만든는데 잘안되네요....부탁드립니다..
>
(defun c:jj()
        (setq pt2 (getpoint "pink point..: "))
        (while(/= pt2 nil)
                (setq pt1 pt2)
                (setq pt2 (getpoint "pink point..: "))
                (setq x1 (car pt1))
                (setq y1 (cadr pt1))
                (setq x2 (car pt2))
                (setq y2 (cadr pt2))
                (setq x3 (/ (+ x1 x2) 2))
                (setq y3 (/ (+ y1 y2) 2))
                (setq pt3 (list x3 y3))        
                (setq x4 (/ (+ x1 x2) 2))
                (setq y4 (/ (+ y1 y2) 2))
                (setq pt4 (list x4 y4))                                
                (command ".layer" "m" "line" "c" "cyan" "" "")                                                        
                (command "line" pt1 pt2 "")
                (command ".layer" "m" "좌표" "c" "green" "" "")                                
                (setq ang (angle pt1 pt2))                         
                (setq ang (rtd ang))         
                ;(setq p1 (polar pt1 (+ 0 (dtr 90) 4)))        
                ;(setq p2 (polar pt2 (+ 0 (dtr 90) 4)))                
                ;(setq p3 (polar pt3 (dtr 270) 4)))                        
                (command "text" pt1 ang (strcat "(X:" (rtos x1 2 2) ", Y:" (rtos y1 2 2) ")"))
                (command "text" "j" "r" pt2 ang (strcat "(X:" (rtos x2 2 2) ", Y:" (rtos y2 2 2) ")"))
                (command ".layer" "m" "거리" "c" 32 "" "")                        
                (setq dis (distance pt1 pt2 ))                                    
                (command "text" "j" "c" pt3 ang (strcat "L=" (rtos dis 2 1) "m"))
                (command ".layer" "m" "circle" "c" "red" "" "")                        
                (setq r 10)
                (command "circle" pt1 r)        
                (setvar "dimzin" 0)        
                (setq nu (getint "관번호를 입력하시요?"))        
                (command "text" pt4 ang "" "" )
                
        )
)
(defun dtr (a)
        (* pi(/ a 180.0))
)
(defun rtd (a)
        (/(* a 180.0) pi)
)