측량도면 성과심사시 격자에 좌표 넣는 리습
유틸리티
작성자
정원곤
작성일
2023-09-12 10:45
조회
4266
XX는 X축 우측에 붙습니다.
YY는 Y축 상단에 붙습니다.
오래전에 VV라는 리습을 보고 만들긴 했는데...
문제가 XX를 좌측에 붙게 만들고 싶은데 도무지 기억이 나지 않습니다.
90도로 설정하면 밑으로 붙어 버림니다.
자리 맞춤을 설정 하는거 조차 기억이 ㄷㄷㄷㄷㄷ
내 가 이 리습 어찌 만들었는지 조차 기억이 가물가물 합니다.
5년 전에 만들었고 지금 쫌 쓰려고 하는데 아시는분 쫌 도와 주십쇼
(defun C:XX()
(setvar "osmode" 4775)
(setq pt (getpoint "도각좌표의 위치를 찍으세요!: "))
(setvar "osmode" 4775)
(COMMAND "-LAYER" "M" "H0010601" "c" "white" "" "")
(setq xpoint (RTOS (NTH 0 pt) 2 0))
(command "text" "s" "Standard" "j" "br" pt "2.5" 270 xpoint )
(setvar "osmode" 4775)
)
(defun C:YY()
(setvar "osmode" 4775)
(setq pt (getpoint "도각좌표의 위치를 찍어주세요!: "))
(setvar "osmode" 4775)
(COMMAND "-LAYER" "M" "H0010601" "c" "white" "" "")
(setq ypoint (RTOS (NTH 1 pt) 2 0))
(command "text" "s" "Standard" "j" "bl" pt "2.5" 0 ypoint )
(setvar "osmode" 4775)
)
YY는 Y축 상단에 붙습니다.
오래전에 VV라는 리습을 보고 만들긴 했는데...
문제가 XX를 좌측에 붙게 만들고 싶은데 도무지 기억이 나지 않습니다.
90도로 설정하면 밑으로 붙어 버림니다.
자리 맞춤을 설정 하는거 조차 기억이 ㄷㄷㄷㄷㄷ
내 가 이 리습 어찌 만들었는지 조차 기억이 가물가물 합니다.
5년 전에 만들었고 지금 쫌 쓰려고 하는데 아시는분 쫌 도와 주십쇼
(defun C:XX()
(setvar "osmode" 4775)
(setq pt (getpoint "도각좌표의 위치를 찍으세요!: "))
(setvar "osmode" 4775)
(COMMAND "-LAYER" "M" "H0010601" "c" "white" "" "")
(setq xpoint (RTOS (NTH 0 pt) 2 0))
(command "text" "s" "Standard" "j" "br" pt "2.5" 270 xpoint )
(setvar "osmode" 4775)
)
(defun C:YY()
(setvar "osmode" 4775)
(setq pt (getpoint "도각좌표의 위치를 찍어주세요!: "))
(setvar "osmode" 4775)
(COMMAND "-LAYER" "M" "H0010601" "c" "white" "" "")
(setq ypoint (RTOS (NTH 1 pt) 2 0))
(command "text" "s" "Standard" "j" "bl" pt "2.5" 0 ypoint )
(setvar "osmode" 4775)
)
전체
| 번호 | 제목 | 작성자 | 작성일 | 조회 |
| 공지사항 |
[공지] 글꼴은행 - 캐드 글꼴 442종 압축 파일 NOTICE
gocad
|
2022.09.01
|
조회 256182
|
gocad | 2022.09.01 | 256182 |
| 13759 |
선택한 색상의 객체만 남기고 모두 끌 수 있는 리습 있을까요? (1)
박창국
|
2024.06.27
|
조회 3140
|
박창국 | 2024.06.27 | 3140 |
| 13758 |
피트문자를 밀리미터문자로 변환하는 리습을 구할 수 있을까요?
떠돌이천사
|
2024.06.20
|
조회 3124
|
떠돌이천사 | 2024.06.20 | 3124 |
| 13757 |
멀티플롯 프로그램을 업그레이드 해서 올립니다. (2)
캐드플러스
|
2024.05.23
|
조회 3983
|
캐드플러스 | 2024.05.23 | 3983 |
| 13756 |
버스(대형 관광버스) 입면과 평면도(2D) 도면 찾습니다 (1)
이충화
|
2024.04.26
|
조회 7265
|
이충화 | 2024.04.26 | 7265 |
| 13755 |
캐드 2008 문의 (키젠)
김현승
|
2024.04.25
|
조회 3607
|
김현승 | 2024.04.25 | 3607 |
| 13754 |
나눔고딕체 공유좀 부탁드립니다..
H.H
|
2024.03.20
|
조회 3628
|
H.H | 2024.03.20 | 3628 |
| 13753 |
한전 맨홀도 (1)
송주현
|
2024.01.15
|
조회 4753
|
송주현 | 2024.01.15 | 4753 |
| 13752 |
pump 외형도 부탁드립니다
장동현
|
2024.01.08
|
조회 3902
|
장동현 | 2024.01.08 | 3902 |
| 13751 |
XCLIP된 블럭/외부참조 선택하는 리습 (1)
유리민
|
2023.11.24
|
조회 4945
|
유리민 | 2023.11.24 | 4945 |
| 13750 |
문자 수정시 등호(=) 이후 부터 수정가능한 리습 없을까요?ㅜㅜ
조상흠
|
2023.11.23
|
조회 3452
|
조상흠 | 2023.11.23 | 3452 |
| 13749 |
인벤터 알루미늄 프로파일 라이브러리 파일 요청드립니다. (2)
오뚜기진라면
|
2023.11.15
|
조회 5644
|
오뚜기진라면 | 2023.11.15 | 5644 |
| 13748 |
[캣츠 가설재] 다운로드 및 소개 자료
CATS_Developer
|
2023.10.25
|
조회 5769
|
CATS_Developer | 2023.10.25 | 5769 |
| 13747 |
괄호치수'
케이알
|
2023.10.25
|
조회 3931
|
케이알 | 2023.10.25 | 3931 |
| 13746 |
혹시 치수 자동 산출 리습을 만들 수 있을까요? (2)
이기영
|
2023.09.29
|
조회 4407
|
이기영 | 2023.09.29 | 4407 |
| 13745 |
두선사이 중심선 리습 수정가능할까요…? 요청리습 (5)
캐드플러스
|
2023.09.19
|
조회 5859
|
캐드플러스 | 2023.09.19 | 5859 |
| 13744 |
잔도교 또는 잔도길 관련 단면도면 요청드립니다
보칼리지
|
2023.09.15
|
조회 3740
|
보칼리지 | 2023.09.15 | 3740 |
| 13743 |
측량도면 성과심사시 격자에 좌표 넣는 리습 (1)
정원곤
|
2023.09.12
|
조회 4266
|
정원곤 | 2023.09.12 | 4266 |
| 13742 |
다중출력(멀티플롯)리습 프로그램 업그레이드 (5)
캐드플러스
|
2023.09.07
|
조회 7404
|
캐드플러스 | 2023.09.07 | 7404 |
| 13741 |
zw cad 담장 그려주는 리습 있으신분 계십니까??
한동민
|
2023.08.31
|
조회 4656
|
한동민 | 2023.08.31 | 4656 |
| 13740 |
석공사 Shop 일부 구할수 있나요?
작전제1참모
|
2023.07.28
|
조회 4130
|
작전제1참모 | 2023.07.28 | 4130 |
아..방금 해결 해습니다. ㅋ
(defun C:YY()
(setvar "osmode" 4775)
(setq pt (getpoint "도각좌표의 위치를 찍어주세요!: "))
(setvar "osmode" 4775)
(COMMAND "-LAYER" "M" "H0010601" "c" "white" "" "")
(setq ypoint (RTOS (NTH 1 pt) 2 0))
(command "text" "s" "Standard" "j" "tl" pt "2.5" 0 ypoint )
(setvar "osmode" 4775)
)
(defun C:XX()
(setvar "osmode" 4775)
(setq pt (getpoint "도각좌표의 위치를 찍으세요!: "))
(setvar "osmode" 4775)
(COMMAND "-LAYER" "M" "H0010601" "c" "white" "" "")
(setq xpoint (RTOS (NTH 0 pt) 2 0))
(command "text" "s" "Standard" "j" "tr" pt "2.5" 270 xpoint )
(setvar "osmode" 4775)
)
바꾸면 되는데 이게 생각이 나지 않아서 ㅋ