VBA 를 통해 CAD 문자의 실제 표시 길이를 계산하는 방법 (자세한 설명 참고)

VBA 는 다음과 같은 이유로 인수 길이를 완전히 지원할 수 없거나 완전히 지원할 수 없습니다.

텍스트의 회전 각도가 0 이면 getboundingbox 를 사용하여 왼쪽 아래 구석과 오른쪽 위 구석의 좌표를 얻을 수 있습니다. getboundingbox 는 왼쪽 아래 구석과 오른쪽 위 구석의 두 x 값을 빼서 텍스트 길이를 얻을 수 있는 상자입니다.

하지만

문자 회전 각도가 크면 다음 그림과 같이 표시됩니다.

테스트 코드는 다음과 같습니다.

하위 테스트 ()

Dim zx 를 변형으로 사용

Ys 를 변수로 치수기입합니다

Dim pt 를 변형으로 사용

Dim ent 1 을 AcadEntity 로 사용

이 그림. 효용. Getentity ent 1, pt, "오브젝트 선택"

Ent 1 입니다. GetBoundingBox zx, ys

Pl 을 AcadLine 으로 치수기입합니다

Set pl = ThisDrawing 입니다. 모형 공간. AddLine(zx, ys)

멈추다

끝단 접합

요약하면, VBA 는 회전 각도가 0 도 또는 몇 도밖에 안 되는 문자에 대한 최대 포위 상자를 얻을 수 있습니다. 회전 각도가 너무 크면 너무 약해진다.

끝! ! !