Xác định đỉnh của polyline theo trục tọa độ x và tâm

[lamchivinh 3]

Chào tất cả các bạn,

Mình có đọc 1 số bài viết liên qua đến topic của mình nhưng những bài viết đó không thể áp dụng cho trường hợp của mình. Vấn đề của mình như thế này:

- Mình có 1 polyline và mình muốn xác định 1 đỉnh của polyline này theo hướng trục tọa độ x và tâm cho dù polyline này nằm ở đâu ví dụ như hình dưới đây:

Khi mình mình thay đổi UCS thì đỉnh của polyline này được xác định như thế này:

 

Mình xin chân thành cảm ơn tất cả các bạn, vấn đề này mình đã tìm đủ mọi cách mà vẫn không được.

[lamchivinh 3]

Sorry các bạn, tiêu đề mình đặt nó hơi giống một số tiêu đề đã có trong diễn đàn. Nhưng nội dung thì khác. Mình không biết sửa cái tiêu đề này chỗ nào. Thanks.

[lamchivinh 3]

Khi thay đổi UCS thì toạ độ các đỉnh không thay đổi.

[hoanguct 0]

muốn giúp bạn nhưng mình vẩn chưa hiểu lắm về bài toán. bạn nói rỏ hơn được không ?

[lamchivinh 3]

Nghĩa là mình có 1 polyline. Giờ làm cách nào có thể xác định được đỉnh(StartPoint) của polyline này theo hướng trục toạ độ x và theo tâm. Như hình trên các bạn thấy. StartPoint luôn luôn được xác định theo hướng trục toạ độ x và tâm. Và khi UCS thay đổi thì StartPoint cũng sẽ cũng được xác định theo trục x và tâm. ĐỈNH STARTPOINT ứng với TÂM. Mình xin chân thành cảm ơn.

[lamchivinh 3]

Các bạn vẫn không hiểu ý mình sao ? hic.

[hoanguct 0]

mình hiểu bài toán bạn thế này có đúng không nhé

- ban có một polyline bạn muốn edit nó sao cho đỉnh Startingpoints gần trục Ox và tâm O nhất đúng không nhỉ( tức xóa polyline củ và vẽ một đường polyline mới nhân điểm gần Ox và O nhất làm Startingpoint. Xin lổi mình hơi tối dạ! Nếu đúng như mình hiểu thì mình có thể giúp bạn. Yêu cầu này không khó!

[phamthanhbinh 3.146]

mình hiểu bài toán bạn thế này có đúng không nhé

- ban có một polyline bạn muốn edit nó sao cho đỉnh Startingpoints gần trục Ox và tâm O nhất đúng không nhỉ( tức xóa polyline củ và vẽ một đường polyline mới nhân điểm gần Ox và O nhất làm Startingpoint. Xin lổi mình hơi tối dạ! Nếu đúng như mình hiểu thì mình có thể giúp bạn. Yêu cầu này không khó!

Hề hề hề,

Cứ theo hình mình họa thì hổng phải vậy mà là điểm startpoin có tọa độ x nhỏ nhất cơ.

Tuy nhiên còn vàui vấn đề mà chủ thớt còn giữ bí mật nên chả biết phải làm như thế nào:

1/- Chiều vẽ của polyline có thay đổi hay không (thuận hay nghịch chiều polyline cũ)

2/- Chủ thớt muốn khi chủ thớt thay đổi hệ trục thì polyline tự động thay đổi điểm startpoint theo hay là khi đó thì lại phải dùng lisp thêm lần nữa ???

Hề hề hề, Ông chủ thớt này oái oăm đáo để......

[gia_bach 1.549]

Đồng ý với bác Bình : cứ như hình minh họa thì điểm cần tìm là đỉnh có tọa độ (X,Y) nhỏ nhất theo hệ tọa độ hiện hành.

 

Nhưng càng đọc diễn giải của chủ thớt thì lại càng rối.

V/đề tí tẹo mà chủ thớt không thể diễn đạt bằng văn bản (chắc có chút alcohol thì diễn đạt hay hơn ?!)  :P

[hoathuongphuoc 9]

Mình nghĩ cái này có thể giúp bạn. Truyền polyline vào: SetLowerLeftAboutUcsAsStartPoint(polyine).

 Private Sub SetLowerLeftAboutUcsAsStartPoint(ByRef pline As Polyline)
        For i As Integer = 0 To GetUcsLowerLeftIndex(pline)
            PermuteVertices(pline)
        Next
    End Sub
    Private Function GetUcsLowerLeftIndex(ByVal pline As Polyline) As Integer
        Dim ed As Editor = AcApp.DocumentManager.MdiActiveDocument.Editor
        Dim ucs As Matrix3d = ed.CurrentUserCoordinateSystem
        Dim bbox As Extents3d = pline.GeometricExtents
        bbox.TransformBy(ucs)
        Dim minPt As Point3d = bbox.MinPoint
        Dim index As Integer = 0
        Dim distance As Double = minPt.DistanceTo(pline.GetPoint3dAt(0).TransformBy(ucs))
        If (distance = 0.0) Then
            Return 0
        End If
        For i As Integer = 1 To pline.NumberOfVertices - 1

            Dim d As Double = minPt.DistanceTo(pline.GetPoint3dAt(i).TransformBy(ucs))
            If (distance = 0.0) Then
                Return i
            End If

            If (d < distance) Then
                distance = d
                index = i
            End If
        Next
        Return index
    End Function

    Private Sub PermuteVertices(ByVal pline As Polyline)
        Dim lastIndex As Integer = pline.NumberOfVertices - 1
        Dim pt As Point2d = pline.GetPoint2dAt(0)
        Dim bulge As Double = pline.GetBulgeAt(0)
        Dim startWidth As Double = pline.GetStartWidthAt(0)
        Dim endWidth As Double = pline.GetEndWidthAt(0)
        For i As Integer = 0 To lastIndex - 1

            pline.SetPointAt(i, pline.GetPoint2dAt(i + 1))
            pline.SetBulgeAt(i, pline.GetBulgeAt(i + 1))
            pline.SetStartWidthAt(i, pline.GetStartWidthAt(i + 1))
            pline.SetEndWidthAt(i, pline.GetEndWidthAt(i + 1))

        Next
        pline.SetPointAt(lastIndex, pt)
        pline.SetBulgeAt(lastIndex, bulge)
        pline.SetStartWidthAt(lastIndex, startWidth)
        pline.SetEndWidthAt(lastIndex, endWidth)
        '  pline.ColorIndex = lastIndex

    End Sub

[lamchivinh 3]

Thanks bạn, nhưng có vẻ không đúng.