Анализ небольшой части кода

[xMICROFONx]

День добрый. Пытаюсь перевести проект VBA на .net, привожу часть кода (смысл прост, создаем блок "Obrazec" и добавляем его в определение вновь созданного блока "Scvajina").Прошу помощи в решении проблемы ) А так же буду премного благодарен  если подскажете как при определении блока задать базовую точку (точку вставки).В VBA было нечто похожее на : "Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "Obrazec")".
 

Код - vb.net [Выбрать]

1. Public Sub RectangleAndSolid()
2.  
3.         Dim Doc As Document = Application.DocumentManager.MdiActiveDocument
4.         Dim CurDb As Database = Doc.Database
5.  
6.         Using Trans As Transaction = CurDb.TransactionManager.StartTransaction()
7.             Dim BlockObj As BlockTableRecord = New BlockTableRecord
8.             BlockObj.Name = "Obrazec"
9.             Dim blockTable As BlockTable = Trans.GetObject(CurDb.BlockTableId, OpenMode.ForRead)
10.  
11.             If (blockTable.Has("Obrazec")) = False Then
12.                 With blockTable
13.                     .UpgradeOpen()
14.                     .Add(BlockObj)
15.                 End With
16.                 Trans.AddNewlyCreatedDBObject(BlockObj, True)
17.                 Dim SolidObj As Solid = New Solid(New Point3d(0, 2, 0), New Point3d(2, 2, 0), New Point3d(0, 0, 0), New Point3d(2, 0, 0))
18.                 BlockObj.AppendEntity(SolidObj)
19.                 Trans.AddNewlyCreatedDBObject(SolidObj, True)
20.             End If
21.             ' ....................................................
22.             Trans.Commit()
23.         End Using
24.     End Sub
25.  
26.     Public Sub VstBk()
27.         Dim Doc As Document = Application.DocumentManager.MdiActiveDocument
28.         Dim CurDb As Database = Doc.Database
29.         Dim PointP(0 To 2) As Double
30.  
31.         Using Trans As Transaction = CurDb.TransactionManager.StartTransaction()
32.             Dim KolBlock As BlockTableRecord = New BlockTableRecord
33.             KolBlock.Name = "Scvajina"
34.             Dim blockTable As BlockTable = Trans.GetObject(CurDb.BlockTableId, OpenMode.ForWrite)
35.             blockTable.Add(KolBlock)
36.             Trans.AddNewlyCreatedDBObject(KolBlock, True)
37.  
38.             PointP(0) = PointP(0) + 2
39.             PointP(1) = 0 - PointP(1) * 10
40.             PointP(2) = 0
41.  
42.             Dim BlockObj As BlockTableRecord = New BlockTableRecord
43.             BlockObj.Name = "Obrazec"
44.             Dim blockRef As BlockReference = New BlockReference(New Point3d(PointP), BlockObj.ObjectId)
45.             BlockObj.AppendEntity(blockRef)
46.             Trans.AddNewlyCreatedDBObject(blockRef, True)
47.  
48.             Trans.Commit()
49.         End Using
50.     End Sub

[Александр Ривилис]

xMICROFONx,
Приветствую на форуме!
Обрати внимание на то, как следует форматировать код на нашем форуме (указано у меня в подписи).

[Александр Ривилис]

А так же буду премного благодарен  если подскажете как при определении блока задать базовую точку (точку вставки).В VBA было нечто похожее на : "Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "Obrazec")".
 

Задаётся при помощи свойства Origin, т.е. BlockTableRecord.Origin

[xMICROFONx]

Александр Ривилис,  За базовую точку спасибо, все работает. Форматирование учту... ) Осталось разобраться что напутано с транзакциями и таблицами блоков...

[Александр Ривилис]

Ошибка в этих строках:

Код - vb.net [Выбрать]

1.             Dim BlockObj As BlockTableRecord = New BlockTableRecord
2.             BlockObj.Name = "Obrazec"
3.             Dim blockRef As BlockReference = New BlockReference(New Point3d(PointP), BlockObj.ObjectId)
4.             BlockObj.AppendEntity(blockRef)

Здесь нужно не новую BlockTableRecord создавать, а найти BlockTableRecord, которая соответствует имени "Obrazec"
Т.е.:

Код - vb.net [Выбрать]

1. Dim blockRef As BlockReference = New BlockReference(New Point3d(PointP), blockTable("Obrazec"))

[xMICROFONx]

Александр Ривилис,  Спасибо за ответ, проблема решена.