社区 › VB › 偏移线的中点

Nima2018 发表于 2019-1-15 10:16:21

偏移线的中点

嗨
我想通过代码(在我的代码lineObj2中)获取由偏移创建的线的中点的坐标代码0]
我该如何做？
请给我建议。
**** Hidden Message *****

Nima2018 发表于 2019-1-15 11:46:44

嗨
，我可以使用以下代码解决问题：
    Dim lineObj2 As Variant, lineObj3 As AcadLine
   lineObj2 = lineObj.Offset(2 * Round(lineObj.Length, 2))
      
   Dim ent As AcadEntity
       Set ent = ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)
             If ent.ObjectName = "AcDbLine" Then
                  Set lineObj3 = ent
                  ent.Highlight True
                     Dim AA As Variant
                     Dim BB As Variant
                     Dim CC As Variant
                        AA = lineObj3.startPoint
                        BB = lineObj3.endPoint
                        CC(0) = (AA(0) + BB(0)) * 0.5
                        CC(1) = (AA(1) + BB(1)) * 0.5
                        CC(2) = (AA(2) + BB(2)) * 0.5
                        Debug.Print CC(0), CC(1), CC(2)
                   Else
            End If

但我认为有更好的方法，所以如果你有更好的建议，请说出来。

BIGAL 发表于 2019-4-21 19:17:18

这看起来还行，唯一的另一种方法是通过使用直线的角度和距离。

查看完整版本: 偏移线的中点