Lisp

좌표값을 도면에 표시

홍사훈     0건     1,674회

첨부파일

본문

◆ 출처 : 이전에 모아둔 자료라 잘 모르겠음.

◆ 명령어 : xy

◆ 사용법 : 좌표점을 찍고, 좌표값이 표시될 점을 클릭

  d60bec2631bc6e2edf94ede7214bf562_1462640
 

;*********************************************

; Program : COORD Marking

;           H. S. PARK

;           98/3/29

;*********************************************

; 좌표값을 도면에 표시

;*********************************************

(defun c:xy()

  (setq ts (getvar "textsize"))

  (setq pt1 (getpoint "Pick First Point:"))

  (setq pt2 (getpoint pt1 "Pick Second Point:"))

  (setq px (car pt1))

  (setq py (cadr pt1))

  ;****** real to string

  (setq pxt (strcat "X:" (rtos px 2 2)))    ;x좌표값

  (setq pyt (strcat "Y:" (rtos py 2 2)))    ;y좌표값

  (command "line" pt1 pt2 "")

  (setq txtpnt pt2)         ;   x좌표삽입점

  (setq txtpnt1 (list (car txtpnt)

              (- (cadr txtpnt) (* 1.5 ts)) 0.0))     ;y좌표 삽입점

  (command ".text" "j" "bl" txtpnt  ts "0.0" pxt)  ;x좌표값 쓰기

  (command ".text" "j" "bl" txtpnt1 ts "0.0" pyt)  ;y좌표값 쓰기

 

  (princ)

 

);;; End of program COOR

등록된 댓글이 없습니다.



Copyrightⓡ1996~2017, sahoon.com All Rights Reserved.