70000450 VisibleOnScreen returns wrong result for horizontal lines

Article 70000450
Type Bug
Product Engine
Version 7003
Date Added 5/20/2015
Fixed (5/20/2015)
Submitted by Steve Smith

Summary

VisibleOnScreen returns wrong result for horizontal lines Private Sub Command11_Click() Dim i As Integer VDraw1.ActiveDocument.New VDraw1.ActiveDocument.entities.AddLine Array(10, 10), Array(20, 10) VDraw1.ActiveDocument.entities.AddLine Array(10, 11), Array(20, 11) VDraw1.ActiveDocument.entities.AddLine Array(10, 12), Array(20, 12) VDraw1.ActiveDocument.entities.AddLine Array(10, 9), Array(20, 13) VDraw1.CommandAction.Zoom "W", Array(5, 5), Array(23, 15) '''' VD1.CommandAction.CmdSelect "all" For i = 0 To VDraw1.ActiveDocument.entities.Count - 1 MsgBox VDraw1.ActiveDocument.entities(i).VisibleOnScreen Dim aaaa As VectorDraw_Professional.vdFigure Set aaaa = VDraw1.ActiveDocument.entities(i).WrapperObject MsgBox aaaa.IsVisible Next i End Sub

Solution

Fixed in 7004.0.5

Send comments on this topic.