Article	60001110
Type	Bug
Product	Engine
Version	6017
Date Added	3/16/2010
Fixed	Yes [3/17/2010]
Submitted by	Bruce Jacobs
Keywords

Subject

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