60001110 Problem in Wrapper's AddLineDefinition

Summary

The code below works fine in version 5 but not in version 6: Private Sub Command1_Click()    Dim myhatch As vdrawi5.vdHatchPattern    Dim myRect As vdrawi5.vdCircle        Dim aaa(1) As Double    Dim bbb(1) As Double    aaa(0) = 3    aaa(1) = -3    Set myhatch = VDraw.ActiveDocument.hatchpatterns.Add("myhatch")    myhatch.RemoveAllLines    myhatch.AddLineDefinition 0, 0, 0, 0, 6, aaa    bbb(0) = 3    bbb(1) = -3    myhatch.AddLineDefinition 3.1415927/2#, 0#, 0#, 0#, 6#, bbb        VDraw.CommandAction.CmdCircle Array(-20, -20), 20    Set myRect = VDraw.ActiveDocument.entities.Last    myRect.FillMode = VdFillModeUnknown    myRect.HatchBlock = "myhatch"    myRect.HatchScale = 1    myRect.Update    myRect.Invalidate        VDraw.CommandAction.Zoom "E", 0, 0    MsgBox "This hatch pattern is composed by" & myhatch.NumLines & " lines"   End Sub

Solution

It is fixed in 6018

Send comments on this topic.