I would like to place a mulite line text note with leader. However the secondary text line cannot appear.
Thx!
Dim oStartPoint As Point3dDim oEndPoint As Point3dDim o3EndPoint As Point3dDim dimstl As DimensionStyleDim dimstls As DimensionStylesDim dimEl As DimensionElementoStartPoint.x = 0oStartPoint.y = 0oStartPoint.z = 0oEndPoint.x = 0.45oEndPoint.y = 0.45oEndPoint.z = 0o3EndPoint.x = 0.85o3EndPoint.y = 0.45o3EndPoint.z = 0
Set dimstls = ActiveDesignFile.DimensionStylesSet dimstl = dimstls.Item(1)dimstl.NoteLeaderType = MsdDimNoteLeaderTypeLineSet dimEl = CreateDimensionElement1(Nothing, rotation, MsdDimType.msdDimTypeNote)
dimEl.AddReferencePoint ActiveModelReference, oStartPointdimEl.AddReferencePoint ActiveModelReference, oEndPointdimEl.AddReferencePoint ActiveModelReference, o3EndPoint
dimEl.PrimaryText = "First Line"dimEl.SecondaryText = "Secondary Line"dimEl.Redraw DrawMode
ActiveModelReference.AddElement dimEl
Have you checked or set the ShowSecondaryText property?
Dim oDimension As DimensionElement Set oDimension = CreateDimensionElement1(Nothing, rotation, MsdDimType.msdDimTypeNote) oDimension.ShowSecondaryText = True …
Regards, Jon Summers LA Solutions
I have created DimensionElement, but I cannot find property of ShowSecondaryText in this object.
Oops! Apologies — ShowSecondaryText is a property of the DimensionStyle object, not the DimensionElement object.