두선사이 중심선 리습 수정가능할까요…? 요청리습
유틸리티
작성자
캐드플러스
작성일
2023-09-19 09:06
조회
5860
Q & A에는 파일을 올리수 없고,
소스 프로그램을 올리니까 외곡이 심해 이곳에 파일로 올립니다.
혹시 리습을 어디에서 구했습니까?
아주 잘 만들어진 프로그램 인듯 합니다.
최대한 원본 프로그램을 훼손 하지 않는 범위에서 하려고 노력했습니다.
2가지 질문 및 요구 내용은 반영을 하였습니다.
(command "layer" "s" "1″ "") ;;★중심선 레이어 설정 <- 이내용은 원 프로그램에서 다른사람이 추가한듯 한데 삭제했습니다. "1" 레이어가 없을때만 생성하도록 하였습니다. 또 레이어를 옮겨가지 않고 중심선 생성후 변경 하도록 하였습니다. 라인 타입도 만들때 "cender"로 하였는데 라인타입이 없으면 레이어가 생성이 안되어서 또 라인타입에 대한 것도 추가하고 복잡해질듯 해서 그만 두었습니다. - 필요면 요청하세요 추가해드릴께요.
그리고 기준선 양쪽으로 10%씩 연장 하도록 하였습니다.
연장 길리를 변경하고 싶으면 아래 0.1 값을 변경하면 됩니다.
(setq #m(* (distance #k #l) 0.1))
좋은 프로그램 잘 구경했습니다. 유용하게 사용하십시오.
소스 프로그램을 올리니까 외곡이 심해 이곳에 파일로 올립니다.
혹시 리습을 어디에서 구했습니까?
아주 잘 만들어진 프로그램 인듯 합니다.
최대한 원본 프로그램을 훼손 하지 않는 범위에서 하려고 노력했습니다.
2가지 질문 및 요구 내용은 반영을 하였습니다.
(command "layer" "s" "1″ "") ;;★중심선 레이어 설정 <- 이내용은 원 프로그램에서 다른사람이 추가한듯 한데 삭제했습니다. "1" 레이어가 없을때만 생성하도록 하였습니다. 또 레이어를 옮겨가지 않고 중심선 생성후 변경 하도록 하였습니다. 라인 타입도 만들때 "cender"로 하였는데 라인타입이 없으면 레이어가 생성이 안되어서 또 라인타입에 대한 것도 추가하고 복잡해질듯 해서 그만 두었습니다. - 필요면 요청하세요 추가해드릴께요.
그리고 기준선 양쪽으로 10%씩 연장 하도록 하였습니다.
연장 길리를 변경하고 싶으면 아래 0.1 값을 변경하면 됩니다.
(setq #m(* (distance #k #l) 0.1))
좋은 프로그램 잘 구경했습니다. 유용하게 사용하십시오.
전체
| 번호 | 제목 | 작성자 | 작성일 | 조회 |
| 공지사항 |
[공지] 글꼴은행 - 캐드 글꼴 442종 압축 파일 NOTICE
gocad
|
2022.09.01
|
조회 256198
|
gocad | 2022.09.01 | 256198 |
| 13759 |
선택한 색상의 객체만 남기고 모두 끌 수 있는 리습 있을까요? (1)
박창국
|
2024.06.27
|
조회 3141
|
박창국 | 2024.06.27 | 3141 |
| 13758 |
피트문자를 밀리미터문자로 변환하는 리습을 구할 수 있을까요?
떠돌이천사
|
2024.06.20
|
조회 3125
|
떠돌이천사 | 2024.06.20 | 3125 |
| 13757 |
멀티플롯 프로그램을 업그레이드 해서 올립니다. (2)
캐드플러스
|
2024.05.23
|
조회 3983
|
캐드플러스 | 2024.05.23 | 3983 |
| 13756 |
버스(대형 관광버스) 입면과 평면도(2D) 도면 찾습니다 (1)
이충화
|
2024.04.26
|
조회 7266
|
이충화 | 2024.04.26 | 7266 |
| 13755 |
캐드 2008 문의 (키젠)
김현승
|
2024.04.25
|
조회 3607
|
김현승 | 2024.04.25 | 3607 |
| 13754 |
나눔고딕체 공유좀 부탁드립니다..
H.H
|
2024.03.20
|
조회 3629
|
H.H | 2024.03.20 | 3629 |
| 13753 |
한전 맨홀도 (1)
송주현
|
2024.01.15
|
조회 4754
|
송주현 | 2024.01.15 | 4754 |
| 13752 |
pump 외형도 부탁드립니다
장동현
|
2024.01.08
|
조회 3902
|
장동현 | 2024.01.08 | 3902 |
| 13751 |
XCLIP된 블럭/외부참조 선택하는 리습 (1)
유리민
|
2023.11.24
|
조회 4946
|
유리민 | 2023.11.24 | 4946 |
| 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
|
조회 5771
|
CATS_Developer | 2023.10.25 | 5771 |
| 13747 |
괄호치수'
케이알
|
2023.10.25
|
조회 3932
|
케이알 | 2023.10.25 | 3932 |
| 13746 |
혹시 치수 자동 산출 리습을 만들 수 있을까요? (2)
이기영
|
2023.09.29
|
조회 4407
|
이기영 | 2023.09.29 | 4407 |
| 13745 |
두선사이 중심선 리습 수정가능할까요…? 요청리습 (5)
캐드플러스
|
2023.09.19
|
조회 5860
|
캐드플러스 | 2023.09.19 | 5860 |
| 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
|
조회 4657
|
한동민 | 2023.08.31 | 4657 |
| 13740 |
석공사 Shop 일부 구할수 있나요?
작전제1참모
|
2023.07.28
|
조회 4130
|
작전제1참모 | 2023.07.28 | 4130 |
라인 선택 할 때 nil값이 들어 오면(엔터 또는 선택 못했을때) 에러 나면서 종료 되어 라인을 선택 했을 때만 프로그램이 실행 되도록 했습니다.
첨부파일 : ww20230920.zip
위 프로그램에 추가 업그레이드를 했습니다.
1. 무한 실행이 되도록 하였습니다.(그냥 엔터 -> 종료)
2. 레이어에 라인타입을 "CENTER" 로 만들어줍니다.
3. 라인이 아닌 (circle, arc, pline, 등)을 선택하면 에러 표시.
앞으로도 계속 업그레이드 합니다.
1. Line과 Circle 중심선 그리기.
2. 선택한 모든 객체 중심선 그리기. -> 여기까지 완료됨.
3. 대화상자 추가.
첨부파일 : ww20230924.zip
위 프로그램에서 업그레이드를 했습니다.
1. 라인과 라인 그리고 원 중심선을 그려줌니다.
2. 레이어 생성을 dxf 코드가 아닌 비주얼 리습으로 만들도록 했습니다.
첨부파일 : ww2023-1010-r1.zip
위 프로그램과 사용은 모두 같습니다.(라인과 라인 그리고 원 중심선)
추가된 기능은 DCL상자를 만들기 위한 기능을 추가 했습니다.
Command : ww
First line Select:[Enter: Option] <- 엔터를 치면 DCL 대화상자로 넘어갈수 있도록 추가하였습니다. 명령 실행후 처음 한번만 나올 수 있도록 했습니다.
VLX파일로 공개 합니다.
소스 프로그램은 다음에 하도록 하겠습니다.
첨부파일 : ww2023-1010_r2.zip
중심선 그리는 최종 프로그램을 공개 합니다.
모든 도형의 중심선을 다 그려줍니다.
LINE, PLINE, CIRCLE, ARC, RETANGLE, ELLIPSE
실행방법은 리습을 올리면 나옵니다.
첨부파일 : ww20231102.zip