VBA로 수평 또는 수직으로 치수선 넣는 방법있나요

VBA CAD를 배우는 초보입니다.

도면에 치수선을 추가하기 위해
“AddDimAligned” 사용하였더니 해당 객체의 y축이 다르면  치수선이 기울어져 나옵니다.

기울기가 있는 두점의 수평 또는 수직으로 된 치수선을 만들수 있나요?

혹시 관련소스가 있으면 알려주세요^^

또는 spica4@hanmail.net 자료좀 보내두세요 ?