vba를 거의 안해봤는데 막히는게 많네요…….
(setq abc (vla-intersectWith oname1 oname2 0))
위의 구문을 실행했을때
값이
#<variant 8197 …> 이런식으로 나오더라구요
교차점이 있으면
(setq send_pt (vlax-safearray->list (vlax-variant-value abc)))
위의 구문대로 실행하면
(487.343 308.945 0.0)
이런식으로 교차점 좌표가 나오던데
교차점이 없을경우 아무런 반응도 안나오더라구요.
교차점이 없으면
(setq send_pt (vlax-safearray->list (vlax-variant-value abc)))
이구문에서 에러가나서 다음 단계로 실행이 안되는데
(setq abc (vla-intersectWith oname1 oname2 0))
이구문 실행한다음
교차점이 있는지 없는지를 알아낼려면 어떤함수를 써야하는지 궁금합니다.
공유