'?This?example?creates?a?diametric?dimension?in?model?space.
'?It?then?changes?the?type?of?center?for?the?dimension.
Dim?dimObj?As?AcadDimDiametric
Dim?chordPoint(0?To?2)?As?Double
Dim?farChordPoint(0?To?2)?As?Double
Dim?leaderLength?As?Double
'?Define?the?dimension
chordPoint(0)?=?5#:?chordPoint(1)?=?3#:?chordPoint(2)?=?0#
farChordPoint(0)?=?5#:?farChordPoint(1)?=?5#:?farChordPoint(2)?=?0#
leaderLength?=?1#
'?Create?the?diametric?dimension?in?model?space
Set?dimObj?=?ThisDrawing.ModelSpace.AddDimDiametric(chordPoint,?farChordPoint,?leaderLength)
ZoomAll
'?Set?the?center?to?be?none
dimObj.CenterType?=?acCenterNone
dimObj.Update
MsgBox?"The?dimension?center?type?is?set?to?none."
'?Change?the?center?type?to?center?mark
dimObj.CenterType?=?acCenterMark
dimObj.Update
MsgBox?"The?dimension?center?type?is?set?to?center?mark."
'?Change?the?center?type?to?center?line
dimObj.CenterType?=?acCenterLine
dimObj.Update
MsgBox?"The?dimension?center?type?is?set?to?center?line."
End?Sub
幫助文件裏都有的啊