2018.12.26 19:05
(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 | 2754 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23845 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68627 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74940 |
1966 | 면적구하기 폰트 크기 설정 [1] | 경운기네 | 2013.04.05 | 2830 |
1965 | 치수스타일에 대한 문의 [2] | 김연수 | 2013.04.05 | 2599 |
1964 | 캐드좌표 엑셀2013순번보내기 패치파일 좀 부탁드려요~ [4] | 건설인 | 2013.04.05 | 2416 |
1963 | 여러창 쉽게 전환하기 위한 탭 [1] | 이경훈 | 2013.04.05 | 2522 |
1962 | 객체 색상 변경 문의?? [1] | 에프엠맨 | 2013.04.05 | 2511 |
1961 | 여러도면을 엑셀로 옮기기 [1] | 황자기 | 2013.04.08 | 2963 |
1960 | 증분복사(ICO)관련 문의 [1] | 이영태 | 2013.04.08 | 2742 |
1959 | "개체가 이 속성 또는 메서드를 지원하지 않습니다. [2] | 메서드 | 2013.04.08 | 6614 |
1958 | DREAM 설치 문제 [2] | 김해정 | 2013.04.09 | 2659 |
1957 | 드림 프로 그램이 잘되다 .. 갑자기 알수 없는 명령어라 뜨면서 실행이 안되요.. [1] | civil0328 | 2013.04.09 | 2956 |
1956 | 엑셀 포장계산 hong [1] | 정규아빠 | 2013.04.09 | 3748 |
1955 | 프로시저 호출 또는 인수가 잘못되었습니다 [1] | 무주 | 2013.04.10 | 4714 |
1954 | 수고하십니다. 질문세가지 여쭙겠습니다. [2] | 캐드궁금이 | 2013.04.10 | 2636 |
1953 | 안녕하세요.. 해결법좀 알려주세요ㅠㅠ [1] | 드림실행 ㅠ | 2013.04.10 | 2 |
1952 | 드림삭제방법좀 알려주세요 [1] | xyz0516 | 2013.04.11 | 2875 |
안녕하세요.
제가 개발하는 기반은 리습이 아니라서 리습 언어는 잘 모릅니다.
처음에 textsize 값을 받아오는 것을 보니 도면의 문자 크기로 그려지나봅니다.
명령창에 textsize 입력해서 원하는 문자 크기 입력하시고 실행하면 될겁니다.