Messages

Hi,

A little piece of code in C#.Net in order to define the default view/zoom in a drawing which is not active in the editor. For example, it's useful for a newly created database than you create and save without activating it in the editor.

I share this code because i've spent some hours to find it. Most of the examples we found always concern an open and active document and use the editor.

The 2 main tricks are to use the viewporttablerecord whose name is "*Active" and the method database.UpdateExt() once the viewporttablerecord has been modified.

(Code adapted from this dicussion: http://forums.autodesk.com/t5/NET/Zoom-Extents-on-new-Database/td-p/2070825/highlight/true/page/2 )

try
{
    if (sideDb.TileMode == true)// Then 'Model
    {
        ViewportTable vpt = sideTr.GetObject(sideDb.ViewportTableId, OpenMode.ForRead) as ViewportTable;
        ViewportTableRecord vptr = sideTr.GetObject(vpt["*Active"], OpenMode.ForWrite) as ViewportTableRecord;
        Point2d pmin = Point2d.Origin;
        Point2d pmax = new Point2d(3000, 1500);
        vptr.CenterPoint = (pmin + (pmax - pmin) / 2);
        vptr.Height = (pmax.Y - pmin.Y);
        vptr.Width = (pmax.X - pmin.X);
        sideDb.UpdateExt(true);
    }
}
catch { }


target audience:{beginner}

Hi,

Here is a function (which needs improvements) in order to select BlockReferences in PaperSpace (in one or all layouts) depending of the block name and the layer:

    ''' <summary>
    ''' Selection des blocs par leur nom
    ''' sur l'onglet courant ou sur tous l'espace papier
    ''' en fonction du nom de calque
    ''' </summary>
    ''' <param name="BlocRefNom">Nom de la référence de bloc</param>
    ''' <param name="DessinEntier">l'onglet courant(false) ou tous l'espace papier(true)</param>
    ''' <param name="Calque">nom du calque</param>
    ''' <returns>Collection d'objectid des blocs</returns>
    ''' <remarks></remarks>
    Public Function F_SelectBlockRefInLayouts(ByVal BlocRefNom As String, ByVal DessinEntier As Boolean, ByVal Calque As String) As ObjectIdCollection
        '=========================================================
        'NOM: GetBlockRefInLayouts
        'DESCRIPTION: Selection des blocs par leur nom sur l'onglet courant ou sur tous l'espace papier
        'ARGUMENTS: BlocRefNom: Nom de la référence de bloc
        'RETOUR:        Collection d'objectid des blocs
        'DATE: 15/11/2010
        '=========================================================
        Dim ids As New ObjectIdCollection()
        Dim db As Database = AcadAp.DocumentManager.MdiActiveDocument.Database

        Using tr As Transaction = db.TransactionManager.StartTransaction()
            Try
                Dim layoutDict As DBDictionary = DirectCast(tr.GetObject(db.LayoutDictionaryId, OpenMode.ForRead), DBDictionary)
                For Each entry As DBDictionaryEntry In layoutDict
                    If entry.Key = "Model" Then Continue For 'espace objet non pris en compte

                    Dim layout As Layout = DirectCast(tr.GetObject(entry.Value, OpenMode.ForRead), Layout)
                    If Not layout.TabSelected And Not DessinEntier Then Continue For 'Selection sur le dessin entier ou l'onglet courant

                    Dim layoutBtr As BlockTableRecord = DirectCast(tr.GetObject(layout.BlockTableRecordId, OpenMode.ForRead, False), BlockTableRecord)
                    If Not layoutBtr.IsAnonymous Then
                        For Each id As ObjectId In layoutBtr
                            Dim blk As BlockReference = TryCast(tr.GetObject(id, OpenMode.ForRead), BlockReference)
                            If Not blk Is Nothing Then

                                If Calque = "" Or blk.Layer = Calque Then 'Selection par calque

                                    If blk.IsDynamicBlock Then  'si bloc dynamique
                                        Dim btr As BlockTableRecord = blk.DynamicBlockTableRecord.GetObject(OpenMode.ForRead)
                                        If btr.Name Like BlocRefNom Then
                                            ids.Add(id)
                                        End If
                                    ElseIf blk.Name Like BlocRefNom Then 'si bloc normal
                                        ids.Add(id)
                                    End If
                                End If
                            End If
                        Next
                    End If
                Next
            Catch ex As Exception
                Dim Msg As String = String.Format("Erreur en tentant de sélectionner les blocs {0}", BlocRefNom)
                Dim Titre As String = "Opération annulée"
                MessageBox.Show(Msg, Titre, MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
                tr.Abort()
                Return ids
            Finally
                tr.Commit()
            End Try
        End Using

        Return ids

    End Function

(Comments are in French, i'll change it soon)
Thanks for your feedback

Hi,

In the function I've posted, there is a lot of parameters that are not set, such as SetPlotCentered or SetPlotOrigin ; do you set these parameters in your code?

Could you maybe post your code, it will be easier to make tests?

Thanks

Hi,

Here is a function (in vb.net) that i've created thanks to some examples and that i've adapted to my needs.
The function create a new layout with the name in parameter (the name is incremented with a counter if it already exists) and then the function change the plot settings (stylesheet, format, rotation, printername...)

Thanks for your remarks and improvements as i'm still a beginner with the .Net api.

''' <summary>
    ''' Create a new layout and set the layout plotsettings
    ''' </summary>
    ''' <param name="LayName">Layout Name</param>
    ''' <remarks></remarks>
    Public Sub CreateLayout(ByVal LayName As String)
        Dim ed As Editor = AcadAp.DocumentManager.MdiActiveDocument.Editor
        Dim db As Database = HostApplicationServices.WorkingDatabase

        Using tr As Transaction = db.TransactionManager.StartTransaction()
            Try
                Dim layouts As DBDictionary = DirectCast(tr.GetObject(db.LayoutDictionaryId, OpenMode.ForWrite), DBDictionary)

                ' Add a number at the end of layout name if already exists
                Dim i As Integer = 0
                Dim OriginalName As String = LayName
                Do While layouts.Contains(LayName)
                    i += 1
                    LayName = OriginalName & "-" & i
                Loop
                ' Create and activate the new layout
                Dim layoutId As ObjectId = LayoutManager.Current.CreateLayout(LayName)
                LayoutManager.Current.CurrentLayout = LayName

                'Plot Settings
                '' Get the PlotInfo from the layout
                Dim acLayout As Layout = DirectCast(tr.GetObject(layoutId, OpenMode.ForRead), Layout)
                Dim acPlInfo As PlotInfo = New PlotInfo()
                acPlInfo.Layout = acLayout.ObjectId

                '' Get a copy of the PlotSettings from the layout
                Dim acPlSet As PlotSettings = New PlotSettings(acLayout.ModelType)
                acPlSet.CopyFrom(acLayout)

                '' Update some properties of the PlotSettings object
                Dim acPlSetVdr As PlotSettingsValidator = PlotSettingsValidator.Current
                acPlSetVdr.SetPlotConfigurationName(acPlSet, "\\dani-print2\BE-Blanc_ps", "A4")
                acPlSetVdr.SetPlotType(acPlSet, Autodesk.AutoCAD.DatabaseServices.PlotType.Layout)
                acPlSetVdr.SetUseStandardScale(acPlSet, True)
                acPlSetVdr.SetPlotRotation(acPlSet, Autodesk.AutoCAD.DatabaseServices.PlotRotation.Degrees000)
                acPlSetVdr.SetCurrentStyleSheet(acPlSet, "Danisoft.ctb")

                '' Update the layout
                acLayout.UpgradeOpen()
                acLayout.CopyFrom(acPlSet)

                tr.Commit() 'Commit Transaction
            Catch ex As System.Exception
                Dim Msg As String = "Error in function CreateLayout"
                Dim Title As String = "Operation cancelled"
                MessageBox.Show(Msg, Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
                tr.Abort()
            End Try
        End Using
    End Sub



target audience:{beginner}

Hi,

Thanks very much for those 2 examples.

I need to look at that precisely but I need firstly to document myself about ResultBuffer, GetHashCode and F# ...

Just one question, In your C# code, what does 'base' represent in 'base.GetHashCode', the converters translate it as 'MyBase'?

Thanks

Hi,

- I've tried to translate your code (the first one) in VB, but i didn't succeed in implementing the extension, it's said that extension must be into modules. I haven't really understood what is extension?

- Also, I found that by using dictionaries and checking if the key already exists, it's more "simple" since we don't have to "play" with counters and we get through the list of blocks only once. Actually, i previously used the lisp program "deldup_blk" (maybe yours?), so i wanted to implement in a way the same algorithm. However, i find that's not very clean if we don't know with which precision the comparison are done, but tell me if i'm wrong because sometimes i really don't understand how lisp can works without knowing the type of the variables.

- For your second solution, I've some difficulties to read F# code, but it seems that you don't have counters and that you manipulate list instead?
(Also, do you know some good code converters for this language? I open a new topic for this question)

Thanks


target audience:{advanced}

Hi,

This one http://tools.codes-sources.com/DotNetCodeConverter.aspx is also not too bad.

But generally, the one given by gile (developerfusion) is more reliable.


target audience:{intermediate}

Hi,

I need some help in order to use overrides function for 'Equals' and 'GetHashCode' into a structure:

You'll find enclose a sample function which erase the block references when they have the same name, layer, insertion point, scale and angle.

For that function, i wanted to use a dictionary in order to compare those parameters by using a structure.
This function seems to work this way, however, i think i have to improve the structure i used in order to compare the parameters exactly with the criteria i want but i don't really understand how to use override for the GetHashCode function.

Your help would be very appreciate.
Thanks.



target audience:{intermediate}