子示例_測量()
此示例在模型空間中創建對齊的標註
並返回維度的度量值；既然如此;在這種情況下
對於線性尺寸，該尺寸將是其長度
Dim dimObj As AcadDimAligned
Dim point1(0到2)為Double，point2(0到2)為Double
將位置(0到2)變暗為雙精度
將當前值標註為字符串
定義維度
point 1(0)= 5:point 1(1)= 5:point 1(2)= 0
point 2(0)= 9:point 2(1)= 5:point 2(2)= 0
位置(0) = 5:位置(1) = 7:位置(2) = 0
在模型空間中創建對齊的標註對象
Set dimObj = ThisDrawing。model space . AddDimAligned(point 1，point2，location)
這幅畫。應用程序。ZoomAll
讀取和顯示電流測量值
MsgBox "新維度的當前度量值是:" & ampdimObj。尺寸
末端接頭