home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / v8trial / TurboCADv8ProfessionalNoReg.exe / Data.Cab / F40893_modDblLine.bas < prev    next >
Encoding:
BASIC Source File  |  2001-10-16  |  1.2 KB  |  34 lines
  1. Attribute VB_Name = "modDblLine"
  2. '******************************************************************'
  3. '*                                                                *'
  4. '*                      TurboCAD for Windows                      *'
  5. '*                   Copyright (c) 1993 - 2001                    *'
  6. '*             International Microcomputer Software, Inc.         *'
  7. '*                            (IMSI)                              *'
  8. '*                      All rights reserved.                      *'
  9. '*                                                                *'
  10. '******************************************************************'
  11.  
  12. ' adds new graphic - DoubleLine to the active drawing
  13. Public Sub AddDblLine()
  14.  
  15. Dim App As Application
  16. Dim ActDr As Drawing
  17. Dim Grs As Graphics
  18. Dim Gr As Graphic
  19.     Set App = IMSIGX.Application
  20.     Set ActDr = App.ActiveDrawing
  21.     Set Grs = ActDr.Graphics
  22. ' DoubleLine is created as the RegenMethod with name - "TCW25DblLine"
  23.     Set Gr = Grs.Add(, "TCW25DblLine")
  24. ' add base points to the graphic as Vertices
  25.     With Gr.Vertices
  26.         .Add 1, 1, 0
  27.         .Add 5, 1, 0
  28.         .Add 5, 5, 0
  29.         .Add 1, 5, 0
  30.     End With
  31.     ActDr.Views(0).Refresh
  32.     
  33. End Sub
  34.