드림 사용자 인데.. 드림외 다른것 조언 부탁드리겠습니다.
2021.05.03 11:11
드림플러스 질문은 아래에 남기는 것이 답변이 빠릅니다.
홈페이지 : http://www.dreamcad.net/support/qna/
메일 : email72@nate.com
vba intersectwith를 이용하여 교차되는 object를 찾는데...
대상 객체 수량이 10,000개정도 되다보니 찾는 시간이 오래걸리거나 팅겨지는 현상이 생깁니다.
코딩은 아래와 같습니다.
조언 부탁드리겠습니다.
for each entry in sobj
-
-
ip = rLine.intersectwith(vLine, acExtendnone)
if Ubound(ip) = 2 then
-
-
end if
next
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 공지 | ★ 드림플러스 질문은 메일 또는 홈페이지에 부탁합니다 ★ | 아저씨 | 2017.05.16 | 3502 |
| 공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 24572 |
| 공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 69485 |
| 공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 75646 |
| 2032 | 다중플롯관련해서 질문이요! [2] | 으니 | 2022.04.08 | 157 |
| 2031 |
프로그램 관련 질문 드립니다.
[2]  | 글루 | 2022.02.23 | 6 |
| 2030 | 클래식메뉴에서 도구막대 창 겹침 문제 [1] | 에스엔에스이엔지 | 2022.02.17 | 123 |
| 2029 | CAD 계산기 결과 값 복사 질문드립니다. [1] | C눈꽃J | 2022.01.20 | 79 |
| 2028 | 캐드 관련 질문 드립니다. [1] | 호랑이 | 2022.01.07 | 82 |
| 2027 | 오토캐드 2008 vba 질문입니다. [1] | krcom | 2022.01.05 | 95 |
| 2026 | 다중플롯 관련 [1] | ㄴ | 2021.11.04 | 142 |
| 2025 | 측량성과도를 GRS80도면으로 변경가능한가요? [2] | 이청재 | 2021.10.12 | 146 |
| 2024 | 기존(드림) 라이센스 문의드립니다 [1] | 이광호 | 2021.09.17 | 136 |
| 2023 | 캐드 드림 2007 기능 관련(캐드표 엑셀로) [1] | 캐드표 | 2021.07.29 | 199 |
| 2022 | 캐드 도면층 관련 질문이 있습니다. [2] | 캐드어려워 | 2021.07.10 | 74 |
| 2021 | 캐드 2020 설정 질문 드립니다 [1] | 한아름 | 2021.06.24 | 56 |
| 2020 | 캐드 드림플러스 loe 명령어가 너무 느려서 질문드립니다. [1] | 차누 | 2021.06.09 | 132 |
| 2019 | 아저씨님 드림 개발 할때 어떤 프로그램으로 만드셨나요? [3] | ㅅㅍㅌㅁ | 2021.06.08 | 185 |
| » | 드림 사용자 인데.. 드림외 다른것 조언 부탁드리겠습니다. [2] | 서방 | 2021.05.03 | 91 |
안녕하세요.
VBA를 손 뗀지 너무 오래되어 (7년전?) 사실 잘 기억은 안 납니다.
VBA는 한줄 읽어 처리하는 방식입니다. 같은 한 줄씩 읽는 리습 보다는 빨라도 속도는 유리하지 않습니다.
(기회되면 .NET으로 해보세요)
그리고 1만개 교차를 각각 교차 검색이라면 실제 수행은 1만*1만 = 1억번 수행입니다.
교차 검색이라면 검색 끝난 것을 리스트에서 빼내서 다음 번 교차 검색 안 되도록 순환 횟수를 줄이는 것이 나을 것 같습니다.
아니면 객체를 조금씩 검색하던가 해야겠죠.
그냥 1만개 한번 검색하고 마는 일방향 검색이라면 순환 회수 줄일 수는 없을 것 같습니다.
ip 변수에 값이 없으면 Ubound 에러날테니
ip 변수를 Variant 형으로 하고 If IsEmpty(ip) Then 해서 값이 없으면 건너 뛰게 하는 것이 나을 것 같습니다.
문법이 잘 기억 안 나서 상세 답변은 못드릴 것 같습니다.