树形节点绘制

zpy2

今铭昔 发表于 2023-9-4 09:12
根据递归深度（也是node的深度）depth。

Shape.Left = startLeft + node("depth") * gaps(1)

node("top") = children.Item(1)("top") + (children.Item(length)("top") - children.Item(1)("top")) / 2    ' 高度 = 第1的子节点图形的高度 + （最后一个子节点图形的高度 - 第1的子节点图形的高度） / 2

这最后一个字节点图形的高度 是如何 确定的,还不是很理解？

感觉很神奇，因为
比如

     a1
         a21
    a2
a         a22
          a31
      a3 a32
           a33
   
   

这个 a3的高度不仅仅和a31 a32 a33有关，还和 a1,a2的数量有关，还和a2有几个子节点有关，对吗？

这个高度 y轴，还是没看懂，好难得算法。

wmy920130

今铭昔 发表于 2023-9-4 12:31

对的，是这个意思

今铭昔

zpy2 发表于 2023-9-4 15:03
node("top") = children.Item(1)("top") + (children.Item(length)("top") - children.Item(1)("top")) / ...

不对，a3的高度由子节点的个数决定，与a1,a2没有任何的关系，你可以在DrawShape这里打个断点，你会发现绘制顺序是 a31->a32->a33，之后就是绘制父节点a3

a31，a32，a33是叶子节点，所以会在if length = 0 then这个分支上绘制。这个树生成算法，其实简单得很，核心思路就是先生成叶子节点，由叶子节点倒推出父节点的高度

今铭昔

tomxie 发表于 2023-9-4 16:06
不是追求扁平化管理吗？咋连临时工都有助理了

这个原本就是个很随意的数据，原本是个函数题，我拿来做例子而已

今铭昔

wmy920130 发表于 2023-9-4 16:26
对的，是这个意思

left和top交换一下，left的递增也要处理一下就可以了

opel-wong

今铭昔 发表于 2023-9-4 12:31

对，不错，高手，学习了！

opel-wong

今铭昔 发表于 2023-9-4 12:31

能分享一下这个源码吗？谢谢！

micch

zpy2 发表于 2023-9-4 15:03
node("top") = children.Item(1)("top") + (children.Item(length)("top") - children.Item(1)("top")) / ...

常规数据，这个逻辑就很清晰了，搜到叶子的时候，记录叶子的位置，然后同一级叶子高度就自动往下排。

同一级回溯的时候，父节点的位置能计算出来，然后每一层父节点都是通过他的子节点来计算。

逻辑上看，第一个叶子位置定了，后面叶子都是向下增加，增加叶子的时候通过上一个叶子的位置增加。至于父节点，每一个都是根据子节点计算。

我一直觉得这样是可以的，但是又担心对特殊数据不通用。

perfect131

感谢分享 DeleteAllShape 改了一下
'''只删除 单圆角矩形和 肘形连接符
Private Sub DeleteAllShape()
    If shapes_.Count > 0 Then
''        shapes_.SelectAll   ' 选择全部图形
''        Selection.Delete    ' 删除全部选择的图形
        ''删除 单圆角矩形和 肘形连接符
        For Each s In shapes_
            If s.Type = msoAutoShape Then
                If s.AutoShapeType = msoShapeRound1Rectangle Or msoShapeMixed Then s.Delete
            End If
        Next
    End If
End Sub

micch

整体做一套：
一个功能是随机生成父子节点
一个功能是父子数据转为树结构数据
一个功能是树图生成。
同步，随机树结构数据，树结构转父子结构。
树图附带：上下结构，左右结构，圆心辐射结构，附带不同节点样式，附带不同连线模式

这样就完美了