Делаю вот так:
Public Sub CreateSchematicDataset()
Dim pFeatureWorkspace As ISchematicWorkspace
Dim Name As String
Name = "SchematicDataset"
Dim pSR As ISpatialReference
Dim pPropset As IPropertySet 'esriGeometry
Dim peG As ISchematicDatasetName
Set peG = New SchematicDatasetName
Set pPropset = New PropertySet
pPropset.SetProperty "DATABASE", "d:\new\Name1.mdb"
Dim pFactAccess As ISchematicWorkspaceFactory
Set pFactAccess = New SchematicWorkspaceFactory
Dim pWorkSpaceAccess As ISchematicWorkspace
Set pWorkSpaceAccess = pFactAccess.Open(pPropset)
Set pFeatureWorkspace = pWorkSpaceAccess
' create schematic dataset
pFeatureWorkspace.CreateSchematicDataset Name, pSR, 0
Exit Sub
End Sub
Тока что-то здесь не так..
Люди добрые, подскажите пожалуйста.
