측량도면 성과심사시 격자에 좌표 넣는 리습
유틸리티
작성자
정원곤
작성일
2023-09-12 10:45
조회
292
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
|
조회 21044
|
gocad | 2022.09.01 | 21044 |
3650 |
XCLIP된 블럭/외부참조 선택하는 리습
유리민
|
2023.11.24
|
조회 209
|
유리민 | 2023.11.24 | 209 |
3649 |
[캣츠 가설재] 다운로드 및 소개 자료
CATS_Developer
|
2023.10.25
|
조회 229
|
CATS_Developer | 2023.10.25 | 229 |
3648 |
괄호치수'
케이알
|
2023.10.25
|
조회 127
|
케이알 | 2023.10.25 | 127 |
3647 |
두선사이 중심선 리습 수정가능할까요…? 요청리습 (5)
캐드플러스
|
2023.09.19
|
조회 507
|
캐드플러스 | 2023.09.19 | 507 |
3646 |
측량도면 성과심사시 격자에 좌표 넣는 리습 (1)
정원곤
|
2023.09.12
|
조회 292
|
정원곤 | 2023.09.12 | 292 |
3645 |
다중출력(멀티플롯)리습 프로그램 업그레이드 (5)
캐드플러스
|
2023.09.07
|
조회 764
|
캐드플러스 | 2023.09.07 | 764 |
3644 |
배관관련 캐드소스 부탁드려도될까요.. 기계배관..
porolsy
|
2023.07.11
|
조회 591
|
porolsy | 2023.07.11 | 591 |
3643 |
다중출력(멀티플롯)리습 프로그램 업그레이드 (5)
캐드플러스
|
2023.06.27
|
조회 847
|
캐드플러스 | 2023.06.27 | 847 |
3642 |
AutoCAD LT 2024에서 부품라이브러리 설치/실행
시골사람_1
|
2023.05.19
|
조회 736
|
시골사람_1 | 2023.05.19 | 736 |
3641 |
CadPlus_X 프로그램 요청하여 올립니다. (3)
캐드플러스
|
2023.05.05
|
조회 1168
|
캐드플러스 | 2023.05.05 | 1168 |
3640 |
[CATS] 다중플롯 기능 설명 영상 및 다운로드 !!!!
CATS_Developer
|
2023.03.10
|
조회 1329
|
CATS_Developer | 2023.03.10 | 1329 |
3639 |
다스베다 리습 프로그램 요청 답글
캐드플러스
|
2023.02.15
|
조회 759
|
캐드플러스 | 2023.02.15 | 759 |
3638 |
CATS for SheetMetal (판금 전개 리습) v2.1.0 (캐디안 지원 추가)
CATS_Developer
|
2023.01.30
|
조회 970
|
CATS_Developer | 2023.01.30 | 970 |
3637 |
다중출력(멀티플롯)리습 프로그램 업그레이드 (9)
캐드플러스
|
2023.01.30
|
조회 1721
|
캐드플러스 | 2023.01.30 | 1721 |
3636 |
CATS for SheetMetal (판금 전개 리습) v2.0.3 (2)
CATS_Developer
|
2022.12.29
|
조회 854
|
CATS_Developer | 2022.12.29 | 854 |
3635 |
[도달스님 요청자료] HlWin.shx 폰트입니다. (2)
모코코
|
2022.12.27
|
조회 926
|
모코코 | 2022.12.27 | 926 |
3634 |
리습
라곰
|
2022.12.25
|
조회 1589
|
라곰 | 2022.12.25 | 1589 |
3633 |
DIM STYLE에 대하여 (1)
민준아빠
|
2022.12.06
|
조회 962
|
민준아빠 | 2022.12.06 | 962 |
3632 |
[CATS] 폴더 내의 모든 도면의 폰트 일괄 수정 기능
CATS_Developer
|
2022.11.29
|
조회 894
|
CATS_Developer | 2022.11.29 | 894 |
3631 |
CATS Pro ver 1.3.10
CATS_Developer
|
2022.11.25
|
조회 1078
|
CATS_Developer | 2022.11.25 | 1078 |
아..방금 해결 해습니다. ㅋ
(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)
)
바꾸면 되는데 이게 생각이 나지 않아서 ㅋ