Системы координат блоков и WCS

Спасибо. Принцип понял. АКАД выдает фатал ерор...  Как вылечить?
кусок кода
  Dim pner = acEd.GetNestedEntity(pneo)

        Using acTrans As Transaction = acDb.TransactionManager.StartTransaction()
            Dim acBlkTbl As BlockTable
            acBlkTbl = CType(acTrans.GetObject(acDb.BlockTableId, OpenMode.ForRead), BlockTable)
            Dim acBlkTblRec As BlockTableRecord
            acBlkTblRec = CType(acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
           
Dim blkpoly As Autodesk.AutoCAD.DatabaseServices.Polyline = DirectCast(acTrans.GetObject(pner.ObjectId, OpenMode.ForRead), Autodesk.AutoCAD.DatabaseServices.Polyline)
           
Dim blk As BlockReference = TryCast(acTrans.GetObject(blkpoly.OwnerId, OpenMode.ForRead), BlockReference)

            Dim SelectedPoly As Autodesk.AutoCAD.DatabaseServices.Polyline = DirectCast(blkpoly.Clone(), Autodesk.AutoCAD.DatabaseServices.Polyline)

            SelectedPoly.SetDatabaseDefaults()
            acBlkTblRec.AppendEntity(SelectedPoly)
            acTrans.AddNewlyCreatedDBObject(SelectedPoly, True)
            Dim scaleX As Double = blk.ScaleFactors(0)
            Dim scaleY As Double = blk.ScaleFactors(1)

            Dim coeffs As Double() = New Double() {scaleX, 0, 0, 0, 0, scaleY, _
                0, 0, 0, 0, 1, 0, _
                0, 0, 0, 1}

            Dim scaleMatrix As New Matrix3d(coeffs)
            SelectedPoly.TransformBy(scaleMatrix)
            acTrans.Commit()

        End Using

да я уже так и подумал) исправился) даже без PreMultypleBy... все равно фаталит. решил без BlockTransform пока.

а вот это вообще проблема. я так и не понял, как привязать дебагер. Методы, что описывают - запускают акад но он не привязывает dll-ку

Нашел ошибку. Дело пошло. Неверно определял ObjectID для блока, в котором лежит полилиния.
Однако теперь приходится определять ObjectID блока через выбор объектов. Не есть гут. Наверняка можно как то через OwnerID... Но как, что-то не соображу

<CommandMethod("ol")> _
    Public Sub ol()
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acEd As Editor = acDoc.Editor
        Dim acDb As Database = acDoc.Database

        Dim pneo1 = New PromptEntityOptions(vbLf & "Select Blockref ")
        Dim pner1 = acEd.GetEntity(pneo1)
        Dim pneo = New PromptNestedEntityOptions(vbLf & "Select Polyline inside block")
        Dim pner = acEd.GetNestedEntity(pneo)

        Using acTrans As Transaction = acDb.TransactionManager.StartTransaction()
            Dim acBlkTbl As BlockTable
            acBlkTbl = CType(acTrans.GetObject(acDb.BlockTableId, OpenMode.ForRead), BlockTable)
            Dim acBlkTblRec As BlockTableRecord
            acBlkTblRec = CType(acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
            Dim selent As Entity = DirectCast(acTrans.GetObject(pner.ObjectId, OpenMode.ForWrite), Entity)
            Dim btrec As BlockTableRecord = TryCast(acTrans.GetObject(selent.OwnerId, OpenMode.ForWrite), BlockTableRecord)
            Dim blk As BlockReference = TryCast(acTrans.GetObject(pner1.ObjectId, OpenMode.ForWrite), BlockReference)
            Dim blkpoly As Autodesk.AutoCAD.DatabaseServices.Polyline = DirectCast(acTrans.GetObject(pner.ObjectId, OpenMode.ForRead), Autodesk.AutoCAD.DatabaseServices.Polyline)
            Dim SelectedPoly As Autodesk.AutoCAD.DatabaseServices.Polyline = DirectCast(blkpoly.Clone(), Autodesk.AutoCAD.DatabaseServices.Polyline)
            acBlkTblRec.AppendEntity(SelectedPoly)
            SelectedPoly.SetDatabaseDefaults()
            acTrans.AddNewlyCreatedDBObject(SelectedPoly, True)
            SelectedPoly.TransformBy(blk.BlockTransform)
            SelectedPoly.Draw()
            acTrans.Commit()
        End Using
    End Sub