VBA 코드를 사용하여 CAD 출력 치수의 문자를 어떻게 작성합니까?

하위 예 _ 측정 ()

이 예제에서는 모형 공간에 정렬된 치수를 작성합니다

차원의 측정값 값을 반환합니다. 이왕이면 이 경우

선형 치수의 경우, 치수는 길이가 됩니다

Dim dimObj As AcadDimAligned

Dim point 1(0 ~ 2) 는 Double 이고 point2(0 ~ 2) 는 Double 입니다

위치 (0 ~ 2) 를 배정도로 어둡게 합니다

현재 값을 문자열로 표시합니다

차원을 정의합니다

Point1(0) = 5: point1(1) = 5: point1

Point2 (0) = 9: point2 (1) = 5: point2 (2) = 0

위치 (0) = 5: 위치 (1) = 7: 위치 (2) = 0

모형 공간에서 정렬된 치수 객체를 작성합니다

Set dimObj = ThisDrawing 입니다. Modelspace.adddimaligned (point1,point2, location)

이 그림. 응용 프로그램. ZoomAll

전류 측정 읽기 및 표시

MsgBox "새 차원의 현재 측정 단위 값은" & ampdimObj "입니다. 사이즈

끝단 접합