Autodesk 15606-011408-9300 Developer Guide - Page 196
Copying an SDF File—a Visual Basic Example, CopySDF Example Code, SDFInfo Example Code
UPC - 606121429548
View all Autodesk 15606-011408-9300 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 196 highlights
SDFInfo Example Code (continued) txtMsg.Text = txtMsg.Text & Msg & vbCrLf End Sub Function GetObjectTypeString(ObjType As SdfObjectType) As String Select Case ObjType Case sdfPointObject: GetObjectTypeString = "POINT" Case sdfPolygonObject: GetObjectTypeString = "POLYGON" Case sdfPolylineObject: GetObjectTypeString = "POLYLINE" Case sdfPolyPolylineObject: GetObjectTypeString = "POLYPOLYLINE" Case sdfPolyPolygonObject: GetObjectTypeString = "POLYPOLYGON" End Select End Function Copying an SDF File-a Visual Basic Example The CopySDF example shows how to open an existing SDF file and write its features to a new SDF file. It is written in Visual Basic. CopySDF Example Code VERSION 6.00 Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX" Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx" Begin VB.Form frmLab2 Caption = "Form1" ClientHeight = 3360 ClientLeft = 48 ClientTop = 276 ClientWidth = 5820 LinkTopic = "Form1" ScaleHeight = 3360 ScaleWidth = 5820 StartUpPosition = 3 'Windows Default Begin VB.CommandButton btnCopy Caption = "Copy" Height = 288 Left = 4440 TabIndex =6 Top = 960 Width = 1212 196 | Chapter 7 Applications