请问大佬怎么让vba生成的直线，起点居中与当前图形

zhucheyong

请问大佬GMS怎么让vba生成的直线，居中与当前图形
代码如下：

1. Public Sub 添加垂直线()
   
2. ActiveDocument.Unit = CDRMillimeter
   
3. ' 定义单位mm
   
4. Dim s As Shape
   
5. Dim b
   
6. b = ActiveSelection.SizeHeight '当前图形高度
   
7. ' 创建垂直线
   
8. Set s = ActiveLayer.CreateLineSegment(0, 0, 0, b)
   
9. End Sub

复制代码

想实现，这个生成的垂直线会从页面左下角为起点，怎么写使直线起点在图形左下角或中间为呢？(0, 0, 0, b)0定义位置了不起作用

                               
登录/注册后可看大图

jiangyu

Set s = ActiveLayer.CreateLineSegment(0, 0, 0, b)这里面前面两个0是直线段一端的坐标xy，后面0，b是直线段另一端的坐标xy。


    Public Sub 添加垂直线()
    ActiveDocument.Unit = cdrMillimeter
    ' 定义单位mm
    Dim s As Shape
    Dim  a, b
    x = ActiveSelection.LeftX  ' 横坐标
    y = ActiveSelection.BottomY ' 纵坐标
    a = ActiveSelection.SizeWidth '当前图形宽度
    b = ActiveSelection.SizeHeight '当前图形高度

    ' 创建垂直线
    Set s = ActiveLayer.CreateLineSegment(x+a/2, y, x+a/2, y+b)
    End Sub

xuru

受教了，学习中 @jiangyu