topic Re: New inserted block doesn't seems to have snap point in .NET Forum

New inserted block doesn't seems to have snap point

Anonymous — Thu, 10 Nov 2011 17:34:23 GMT

Hi Guys,

I use the following code insert block

            Using myTrans As Transaction = db.TransactionManager.StartTransaction

                Dim myBT As BlockTable = db.BlockTableId.GetObject(OpenMode.ForRead)
                Dim myBTR As BlockTableRecord = myBT(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)

                'Insert the Block
                Dim myBlockDef As BlockTableRecord = _
                    myBT(Me.BlockName).GetObject(OpenMode.ForRead)
                myBlockRef = New DatabaseServices.BlockReference(InsertPoint, myBT(BlockName))
                myBlockRef.ScaleFactors = New Geometry.Scale3d(1, 1, 0)
                myBlockRef.Rotation = FixtureRotation

                myBTR.AppendEntity(myBlockRef)
                myTrans.AddNewlyCreatedDBObject(myBlockRef, True)
                myTrans.Commit()
            End Using

After coe excuted new block has been insert. Then I found regardless I turn on/off onsap there is no sappoint on those newly added blocks.

What did I do wrong? Any ideas ?

Thanks very much

Re: New inserted block doesn't seems to have snap point

arcticad — Thu, 10 Nov 2011 18:40:54 GMT

Just looking at your code the Z scale is at 0.

Re: New inserted block doesn't seems to have snap point

Anonymous — Fri, 11 Nov 2011 09:26:47 GMT

Thanks for reply. I changed zscale to 1.0 , still no grip point

Re: New inserted block doesn't seems to have snap point

Anonymous — Fri, 11 Nov 2011 12:00:30 GMT

After more investigation. I found new inserted block display grip point, If I use "Line" command.

However once I run my own draw line function. the grip point turned off.

Even worse，after I run my own draw line code, back to AutoCAD "Line" command, those grip point never turn back

Here is my draw line code.

    Private Function DrawAlignLine(ByRef StartPoint As Point3d, ByRef EndPoint As Point3d, Optional ByRef strError As String = "") As Boolean
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim pPtRes As PromptPointResult
        Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")
        Try
            '' Prompt for the start point
            pPtOpts.Message = vbLf & "Enter the start point of the line: "
            pPtRes = acDoc.Editor.GetPoint(pPtOpts)
            If pPtRes.Status <> PromptStatus.OK Then
                Return True
            End If
            StartPoint = pPtRes.Value
            pPtOpts.AllowNone = True
            '' Prompt for the end point
            pPtOpts.Message = vbLf & "Please enter the next point of the line: "
            pPtOpts.UseBasePoint = True
            pPtOpts.BasePoint = StartPoint
            Dim DrawComplete As Boolean = False
            Do
                pPtRes = acDoc.Editor.GetPoint(pPtOpts)
                If pPtRes.Status <> PromptStatus.OK Then
                    StartPoint = Nothing
                    Return True
                End If
                '--Start point different to end point 
                If pPtRes.Value.IsEqualTo(StartPoint) = False Then
                    DrawComplete = True
                End If
            Loop Until DrawComplete = True
            EndPoint = pPtRes.Value
            Return True
        Catch sysex As SystemException
            strError = sysex.Message
            StorePlanLogError(sysex, sysex.Message, STR_MODULE_NAME & ".DrawAlignLine")
        Catch ex As Exception
            strError = ex.Message
            StorePlanLogError(ex, ex.Message, STR_MODULE_NAME & ".DrawAlignLine")
        End Try
    End Function

Thanks

Re: New inserted block doesn't seems to have snap point

Anonymous — Fri, 11 Nov 2011 12:25:00 GMT

More investigation done, it is either a silly question or very strange one

Replication Step

1. Insert block(use the code I provided above)
2. type line command-->user can see new block grip point
3. Draw line use my code(code provided above)-->User cannot see grip point
4. Click Esc once, then type regen command, then type line command--> user can see grip point again

What on earth happened to my code

Please help

Re: New inserted block doesn't seems to have snap point

kerry_w_brown — Fri, 11 Nov 2011 23:18:50 GMT

By my reading of your code the DrawAlignLine does not draw a line, it just gets the start and end points.

Possibly related :

Why are you returning true if either of the point selections fail ?

I'd need to see a compilable Project to guess at the cause of your problem.

Regards

Re: New inserted block doesn't seems to have snap point

Anonymous — Mon, 14 Nov 2011 09:29:15 GMT

Thanks for your reply.

The code is not draw line, it is finding 2 point. while doing that I can't see new block's grips point however I can see others.

That's the strange part.

Any idea?