Lấy toạ độ trong cảnh nhìn (view)

[rungxanhonline 0]

Đây là phần code mình lấy các thông tin của cảnh nhìn hiện thời

Public Sub AddView()
   Dim objView As AcadView
   Dim objActViewPort As AcadViewport
   Dim strNewViewName As String
   Dim varCenterPoint As Variant
   Dim dblPoint(1) As Double

   strNewViewName = InputBox("Enter name for new view: ")
   If strNewViewName = "" Then Exit Sub
   On Error Resume Next
   Set objView = aCadApp.ActiveDocument.Views.Item(strNewViewName)

   If objView Is Nothing Then
       Set objView = aCadApp.ActiveDocument.Views.Add(strNewViewName)
       aCadApp.ActiveDocument.ActiveSpace = acModelSpace
       varCenterPoint = aCadApp.ActiveDocument.GetVariable("VIEWCTR")
       dblPoint(0) = varCenterPoint(0): dblPoint(1) = varCenterPoint(1)
       Set objActViewPort = aCadApp.ActiveDocument.ActiveViewportt

       With objView
           .Center = dblPoint
           .Direction = aCadApp.ActiveDocument.GetVariable("VIEWDIR")
           .Height = objActViewPort.Height
           .Target = objActViewPort.Target
           .Width = objActViewPort.Width
       End With

       MsgBox "A new view called " & objView.Name & _
           " has been added to the Views collection."
   Else
       MsgBox "This view already exists."
   End If
End Sub

Khi mình sử dụng cảnh nhìn này thì tỉ lệ bị thay đổi, bây giờ mình muốn làm cách nào để giữ nguyên tỉ lệ đó nếu không được thì các tiền bối có thể chỉ giúp mình cách lấy các toạ độ điểm giới hạn của khung nhìn này. Cám ơn nhiều. Mong các tiền bối sớm trả lời.

[rungxanhonline 0]

up cái cho các bậc tiền bối trả lời nào