| 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