오토캐드 명령어 Lits (단축키 LS,LI) 출력값 변경 방법 알려주세요

Question

list를 출력 하면

원         도면층: "0"
공간: 모형 공간
                   색상: 3 (초록색)    선종류: "BYBLOCK"
                   선가중치: 0.05 mm
                   핸들 = c9e6d
                중심 점, X=-970.0000 Y= 865.0000 Z=   0.0000
               반지름   17.8492
                 원주 112.1498
                 면적 1000.8921

위에 글처럼 출력되는데요..

저기서 중심 점만 출력되게 ...

또는 다른 값들 출력안되게 하는방법 없을까요 ??

중심점을 100개 이상 뽑아 내야하는데... 리스트가 너무 많다보니 40개가 넘어가면 뒤에부분은 없어지네요 ㅠㅠ

Accepted Answer

리습 사용할 줄 아시죠?

좌표추출 리습입니다.

명령어 xy

모르는사항 있으면 질문 하세요~

;***********************
; Program : COORD Marking
;
;*
; 좌표값을 도면에 표시
;*****************
(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 3)))    ;x좌표값
(setq pyt (strcat "Y=" (rtos py 2 3)))    ;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

오토캐드 명령어 Lits (단축키 LS,LI)...