home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / List.frm < prev    next >
Text File  |  1997-02-14  |  9KB  |  292 lines
  1. VERSION 4.00
  2. Begin VB.Form ListForm 
  3.    Caption         =   "List"
  4.    ClientHeight    =   3330
  5.    ClientLeft      =   2145
  6.    ClientTop       =   2190
  7.    ClientWidth     =   3990
  8.    Height          =   3735
  9.    Icon            =   "List.frx":0000
  10.    Left            =   2085
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3330
  13.    ScaleWidth      =   3990
  14.    Top             =   1845
  15.    Width           =   4110
  16.    Begin VB.CommandButton TextCommand 
  17.       Caption         =   "Change Text &Height"
  18.       Enabled         =   0   'False
  19.       Height          =   375
  20.       Left            =   1920
  21.       TabIndex        =   8
  22.       Top             =   2760
  23.       Width           =   1815
  24.    End
  25.    Begin VB.CommandButton PolylineCommand 
  26.       Caption         =   "Change Polyline &Width"
  27.       Enabled         =   0   'False
  28.       Height          =   375
  29.       Left            =   1920
  30.       TabIndex        =   7
  31.       Top             =   2280
  32.       Width           =   1815
  33.    End
  34.    Begin VB.TextBox NumberEntry 
  35.       Enabled         =   0   'False
  36.       Height          =   285
  37.       Left            =   240
  38.       TabIndex        =   6
  39.       Text            =   "1"
  40.       Top             =   2520
  41.       Width           =   1575
  42.    End
  43.    Begin VB.CommandButton PropertiesCommand 
  44.       Caption         =   "&Edit Properties"
  45.       Enabled         =   0   'False
  46.       Height          =   375
  47.       Left            =   240
  48.       TabIndex        =   5
  49.       Top             =   1680
  50.       Width           =   2055
  51.    End
  52.    Begin VB.ListBox EntityList 
  53.       Height          =   1980
  54.       Left            =   2520
  55.       TabIndex        =   1
  56.       Top             =   120
  57.       Width           =   1215
  58.    End
  59.    Begin VB.CommandButton ListSelected 
  60.       Caption         =   "&List Selected Entities"
  61.       Height          =   495
  62.       Left            =   240
  63.       TabIndex        =   0
  64.       Top             =   120
  65.       Width           =   2055
  66.    End
  67.    Begin VB.Label Info2 
  68.       Alignment       =   2  'Center
  69.       Height          =   255
  70.       Left            =   240
  71.       TabIndex        =   4
  72.       Top             =   1200
  73.       Width           =   2055
  74.    End
  75.    Begin VB.Label Info1 
  76.       Alignment       =   2  'Center
  77.       Height          =   255
  78.       Left            =   240
  79.       TabIndex        =   3
  80.       Top             =   960
  81.       Width           =   2055
  82.    End
  83.    Begin VB.Label EntityName 
  84.       Alignment       =   2  'Center
  85.       Height          =   255
  86.       Left            =   240
  87.       TabIndex        =   2
  88.       Top             =   720
  89.       Width           =   2055
  90.    End
  91. End
  92. Attribute VB_Name = "ListForm"
  93. Attribute VB_Creatable = False
  94. Attribute VB_Exposed = False
  95. ' (C) Copyright 1997 by SoftSource.  All rights reserved.
  96. ' Sample Visual Basic code for working with Vdraft
  97. '
  98. ' This code demonstrates getting various types
  99. '   of entity information out of a drawing
  100.  
  101. Dim vdraft As Object
  102. Dim doc As Object
  103.  
  104. Private Sub EntityList_Click()
  105.     Dim selset, entity, units As Object
  106.     
  107.     PropertiesCommand.Enabled = True
  108.  
  109.     ' get the entity they picked
  110.     Set selset = doc.Selection
  111.     Set entity = selset(EntityList.ListIndex + 1)
  112.     
  113.     ' we'll use this to output points in current units
  114.     Set units = doc.units
  115.  
  116.     Info1.Caption = ""
  117.     Info2.Caption = ""
  118.  
  119.     ' display information on specific entity
  120.     EntityName.Caption = entity
  121.     Select Case entity.Type
  122.     Case veET_Line
  123.         Info1.Caption = units.PointToString(entity.Where1)
  124.         Info2.Caption = units.PointToString(entity.Where2)
  125.     Case veET_Point
  126.         Info1.Caption = units.PointToString(entity.Where)
  127.     Case veET_Circle
  128.         Info1.Caption = units.PointToString(entity.Where)
  129.         Info1.Caption = units.CoordinateToString(entity.Radius)
  130.     Case veET_Shape
  131.         Info1.Caption = units.PointToString(entity.Where)
  132.     Case veET_Text
  133.         Info1.Caption = units.PointToString(entity.Where)
  134.         Info2.Caption = entity.Text
  135.     Case veET_Arc
  136.         Info1.Caption = units.PointToString(entity.Where)
  137.         Info2.Caption = units.CoordinateToString(entity.Radius)
  138.     Case veET_Trace, veET_Solid
  139.         Info1.Caption = entity.Circumference
  140.         Info2.Caption = entity.Area
  141.     Case veET_Insert
  142.         Info1.Caption = units.PointToString(entity.Where)
  143.         Info2.Caption = entity.Block
  144.     Case veET_Attdef, veET_Attrib
  145.         Info1.Caption = units.PointToString(entity.Where)
  146.         Info2.Caption = entity.Text
  147.     Case veET_2DPolyline
  148.         Info1.Caption = entity.Vertices.Count
  149.         Info2.Caption = entity.StartWidth
  150.     Case veET_3DPolyline
  151.         Info1.Caption = entity.Vertices.Count
  152.     Case veET_Polymesh
  153.         Info1.Caption = entity.ColumnSize
  154.         Info2.Caption = entity.RowSize
  155.     Case veET_Polyface
  156.         Info1.Caption = entity.Vertices.Count
  157.         Info2.Caption = entity.FaceVertices.Count
  158.     Case veET_2DVertex
  159.     Case veET_Vertex
  160.     Case veET_FaceVertex
  161.     Case veET_3DFace
  162.         Info1.Caption = entity.Circumference
  163.         Info2.Caption = entity.Area
  164.     Case veET_HorizontalDim To veET_OrdinateYDim   ' dimensions
  165.     Case veET_Viewport
  166.         Info1.Caption = units.PointToString(entity.Where)
  167.     End Select
  168. End Sub
  169.  
  170. Private Sub EntityList_DblClick()
  171.     Dim selset As Object
  172.     Set selset = doc.Selection
  173.     ' display the property dialog for the
  174.     '   entity they chose out of the list
  175.     selset(EntityList.ListIndex + 1).Dialog
  176. End Sub
  177.  
  178.  
  179. Private Sub Form_Load()
  180.     WindowOnTop hWnd
  181. End Sub
  182.  
  183. Private Sub ListSelected_Click()
  184.     Dim selset As Object
  185.     
  186.     ListForm.MousePointer = 11    ' hourglass
  187.     
  188.     If vdraft Is Nothing Then
  189.         Set vdraft = CreateObject("Vdraft.Application")
  190.     End If
  191.     If vdraft.Documents.Count = 0 Then
  192.         ListForm.MousePointer = 1    ' default
  193.         Exit Sub
  194.     End If
  195.     
  196.     Set doc = vdraft.ActiveDocument
  197.     Set selset = doc.Selection
  198.     If Not selset.HasItems Then
  199.         ListForm.MousePointer = 1    ' default
  200.         Exit Sub
  201.     End If
  202.     
  203.     EntityName.Caption = ""
  204.     Info1.Caption = ""
  205.     Info2.Caption = ""
  206.     PropertiesCommand.Enabled = False
  207.     PolylineCommand.Enabled = True
  208.     TextCommand.Enabled = True
  209.     NumberEntry.Enabled = True
  210.     
  211.     ' list all the currently selected entities
  212.     EntityList.Clear
  213.     Number% = selset.Count
  214.     For i% = 1 To Number%
  215.         EntityList.AddItem selset(i%)
  216.     Next i%
  217.  
  218.     ListForm.MousePointer = 1    ' default
  219. End Sub
  220.  
  221.  
  222.  
  223. Private Sub PolylineCommand_Click()
  224.     Dim units, selset, entity As Object
  225.     
  226.     ListForm.MousePointer = 11    ' hourglass
  227.     
  228.     ' have Vdraft convert the user's string into a number
  229.     Set units = doc.units
  230.     Value# = units.StringToCoordinate(NumberEntry.Text)
  231.     
  232.     ' group all the modifications under one command
  233.     ' include the width using current drawing units
  234.     Set commands = doc.commands
  235.     temp$ = "polylines.width " + units.CoordinateToString(Value#)
  236.     commands.Group temp$
  237.     
  238.     ' find all the 2d polylines in the current selset
  239.     '   and change their widths
  240.     Set selset = doc.Selection
  241.     Number% = selset.Count
  242.     For i% = 1 To Number%
  243.         Set entity = selset(i%)
  244.         If entity.Type = 11 Then
  245.             entity.StartWidth = Value#
  246.             entity.EndWidth = Value#
  247.         End If
  248.     Next i%
  249.  
  250.     ListForm.MousePointer = 1    ' default
  251. End Sub
  252.  
  253. Private Sub PropertiesCommand_Click()
  254.     Dim selset As Object
  255.     Set selset = doc.Selection
  256.     ' display the property dialog for the
  257.     '   entity they chose out of the list
  258.     selset(EntityList.ListIndex + 1).Dialog
  259. End Sub
  260.  
  261.  
  262. Private Sub TextCommand_Click()
  263.     Dim units, selset, entity As Object
  264.     
  265.     ListForm.MousePointer = 11    ' hourglass
  266.     
  267.     ' have Vdraft convert the user's string into a number
  268.     Set units = doc.units
  269.     Value# = units.StringToCoordinate(NumberEntry.Text)
  270.     
  271.     ' group all the modifications under one command
  272.     ' include the height using current drawing units
  273.     Set commands = doc.commands
  274.     temp$ = "textgroup.height " + units.CoordinateToString(Value#)
  275.     commands.Group temp$
  276.     
  277.     ' find all the text in the current selset
  278.     '   and change their heights
  279.     Set selset = doc.Selection
  280.     Number% = selset.Count
  281.     For i% = 1 To Number%
  282.         Set entity = selset(i%)
  283.         If entity.Type = 4 Then
  284.             entity.Height = Value#
  285.         End If
  286.     Next i%
  287.  
  288.     ListForm.MousePointer = 1    ' default
  289. End Sub
  290.  
  291.  
  292.