좌표리습인데요 글씨 크기만 1/1000 스케일로 줄일수 있을가요 ?

2018.12.26 19:05

최지훈 조회 수:279

(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))
 (setq pxt (strcat "X=" (rtos py 2 4)))
 (setq pyt (strcat "Y=" (rtos px 2 4)))
 (command "line" pt1 pt2 "")
 (setq txtpnt pt2)
 (setq txtpnt1 (list (car txtpnt)
 (- (cadr txtpnt) (* 1.5 ts)) 0.0))
 (command ".text" "j" "bl" txtpnt ts "0.0" pxt)
 (command ".text" "j" "bl" txtpnt1 ts "0.0" pyt)
 (princ)
)


스케일이 1/1000 인 좌표도인데 로드해서 쓸라고 하니깐 글씨 크기가 엄청나게 크게

나오네요, 좌표도를 크게 할수는 없고 글씨 포인트만 1/1000로 줄일수 있을까요 ?

이 게시물을
수정... 삭제 목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 ★ 드림플러스 질문은 메일 또는 홈페이지에 부탁합니다 ★ 아저씨 2017.05.16 2751
공지 제목이 엉망이면 답변달지 않습니다. [1] 아저씨 2014.04.04 23841
공지 순수 캐드 질문은 고캐드로 아저씨 2013.05.28 68617
공지 질문 답변 게시판을 만들었습니다. 아저씨 2013.02.09 74932
1966 블록의 속성값으로 선 레이어 변경하기. [2] 박진영 2019.04.01 20
1965 DREAM 설치후 특성(PROPERTIES) 명령어가 실행되지 않습니다. [2] 드림쵝오 2019.03.13 59
1964 **Express Tools** - Unable to load caetauto.lsp/fas bad argument tyoe: input-sreamp: nil 경고창문제 [1] 캐드보이 2019.03.11 29
1963 치수관련 리습 문의 [1] 캐드사용자 2019.03.06 160
1962 비주얼 베이직을 설치도중 오류 [1] 빨콩이악마 2019.02.18 121
1961 드림 실행시 Visual Basic 오류관련 [1] CAD초보 2019.01.16 183
1960 몇몇 명령어 질문드립니다. [1] kalki 2019.01.05 137
1959 플롯걸때 에러창뜨면 어떻게 해야하나요? [1] 김예진 2019.01.03 28
1958 드림 플러스 기능 추가요청 (CTE) - 캐드표 엑셀로 [1] 빌리브미 2018.12.28 380
» 좌표리습인데요 글씨 크기만 1/1000 스케일로 줄일수 있을가요 ? [1] 최지훈 2018.12.26 279
1956 appload 관련 질문있습니다. [1] 코볼드 2018.12.18 44
1955 express 관련 질문드립니다. [1] 코볼드 2018.12.18 31
1954 exportlayout이 안되요 [1] bubble23 2018.12.07 833
1953 VBA관련 문제 [1] 도라이바 2018.11.30 112
1952 cad 2017에서는 사용이 불가능한가요? [1] bacus 2018.11.29 117
쓰기...
태그