我正在尝试将块组件添加到点标签样式中。 我还没有弄清楚如何在创建组件后分配块名称。 我唯一能找到的是组件。这是可能的,还是我错过了一些简单的东西?
- Private Sub addBlockComponent(ByVal style As LabelStyle, ByRef blknam As String, blkht As Double)
- Dim id As ObjectId = style.AddComponent("Block", LabelStyleComponentType.Block)
- Dim component As LabelStyleBlockComponent = TryCast(id.GetObject(OpenMode.ForWrite), LabelStyleBlockComponent)
- component.Block.BlockName.Value = blknam
- component.Block.Attachment.Value = BlockAttachmentType.MiddleCenter
- component.Block.BlockHeight.Value = blkht
- component.Block.RotationAngle.Value = 0
- End Sub
本帖以下内容被隐藏保护;需要你回复后,才能看到! 游客,如果您要查看本帖隐藏内容请 回复 |