Help for this page

Select Code to Download


  1. or download this
    Sub genSplineMy()
    Dim ControlPoints1(5) As Double
...

    Application.ActiveWindow.Page.DrawNURBS 3, 0, ControlPoints1, Knot
+s1
End Sub
  2. or download this
    use strict;
use Win32::OLE qw(in with);
...

$doc->SaveAs('c:\\work\\tools\\perl\\visio\\test.vdx');
$doc->Close;
  3. or download this
    $Visio->Application->ActiveWindow->Page->DrawLine(3.1875, 8.75, 4.875,
+ 7.5);