画六边形

dongdonggege

在WPS画画，想画一个六边形，有两条边，向左斜的，就是画不出来，结果变成向右斜的，而且不能水平翻转，请高手指教。

程序太原始，麻烦帮我修改下， 谢谢。

祝洪忠-

插入形状里  有内置的六边形形状，按住SHift插入 就是正六边形

dongdonggege

祝洪忠- 发表于 2024-3-7 15:57
插入形状里  有内置的六边形形状，按住SHift插入 就是正六边形

我想画特色的图形

zhanglei1371

我电脑运行一切正常，估计是office版本问题。我office2016 32位+win7x64

dongdonggege

zhanglei1371 发表于 2024-3-8 08:49
我电脑运行一切正常，估计是office版本问题。我office2016 32位+win7x64

麻烦老师修改下程序，变得简洁点，谢谢。

lss001

Sub DrawHexagon()
    Dim oDoc As Document, oShape As Shape
    Dim x!, y!, h!, w!, angle!, i%
     
    ' 获取当前文档
    Set oDoc = ActiveDocument
     
    ' 设置六边形的中心坐标和大小（示例值）
    pi = 3.14159265358979 'pi值
    x = 200 ' 中心x坐标
    y = 200 ' 中心y坐标
    h = 100 ' 高度（从中心到顶点的距离）
    w = 173.2 ' 宽度（根据六边形的性质，约为高度的sqr(3)倍）
     
    ' 绘制六边形的每条边
    For i = 1 To 6
        angle = (i - 1) * (2 * pi / 6) ' 计算每条边的起始角度
         
        ' 绘制线条
        Set oShape = oDoc.Shapes.AddLine(x + h * Cos(angle), y + h * Sin(angle), _
            x + h * Cos(angle + (2 * pi / 6)), y + h * Sin(angle + (2 * pi / 6)))
         
        ' 设置线条属性（可选）
        With oShape.Line
            .ForeColor.RGB = RGB(255, 0, 0) '颜色
            .Weight = 2 ' 粗细
        End With
    Next i
End Sub

Gonzalez_Frank

lss001 发表于 2024-5-25 13:03
Sub DrawHexagon()
    Dim oDoc As Document, oShape As Shape
    Dim x!, y!, h!, w!, angle!, i%

w是多余的，可以删掉该变量

lss001

Gonzalez_Frank 发表于 2024-5-25 23:48
w是多余的，可以删掉该变量

w变量上面代码没有使用，可删可不删
w是预留变量<考虑有些情况下需要以宽度作图而预留>