Dia 1 - CAD College

More documents

Recommendations

Info

Dim acLyrTbl As LayerTable acLyrTbl = myTrans.GetObject(myDB.LayerTableId, OpenMode.ForRead) If acLyrTbl.Has(Viewport) = False Then Dim acLyrTblRec As LayerTableRecord = New LayerTableRecord() acLyrTblRec.Color = Color.FromColorIndex(ColorMethod.ByAci, 4) acLyrTblRec.Name = Viewport acLyrTblRec.IsPlottable = False acLyrTbl.UpgradeOpen() acLyrTbl.Add(acLyrTblRec) myTrans.AddNewlyCreatedDBObject(acLyrTblRec, True) End If If acLyrTbl.Has(Viewport) = True Then myDB.Clayer = acLyrTbl(Viewport) End If For Each myBTRid As ObjectId In myBlockTable Dim myBlockTableRecord As BlockTableRecord = myBTRid.GetObject(OpenMode.ForWrite) If myBlockTableRecord.IsLayout = True Then Dim myLayout As Layout = myBlockTableRecord.LayoutId.GetObject(OpenMode.ForWrite) If myBlockTable.Has(name2) = True Then LayoutManager.Current.CurrentLayout = "EnergieDakProject" Exit For End If Try myLayout = LayoutManager.Current.- CreateLayout("EnergieDakProject").GetObject(OpenMode.ForWrite) LayoutManager.Current.CurrentLayout = "EnergieDakProject" INSERT.InsertBlock(HostApplicationServices.WorkingDatabase, - BlockTableRecord.PaperSpace, New Point3d(0, 0, 0), "KaderA3", 1, 1, 1) Catch ex As Exception End Try Exit For End If Next myDB.Clayer = acLyrTbl(0) myTrans.Commit() End Using End Using Application.SetSystemVariable("tilemode", 1) Part 3 We chick the BlockTable tow time to create tow Layouts and insert themes Blocks(KaderA4,KaderA3) during the procedure I create layer Viewport to set the view port for EnergieDakProject Layout in. And fainlly set layer 0 which is already in any drawing as current layer and then return to the ModelSpace. 16/12/2010 EDCAD1.0 HBO-Traject 2010 46
I use the right method to insert the block (Function InsertBlock) not by Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute("-i" & vbCr & "KaderA4" & vbCr & "0,0" & vbCr & "1" & vbCr & "0", True, False, False) Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute("1 0 1", True, False, False) Its work good ,but we will not able to edit in place the attribute by double click on it . We will lock in (Function InsertBlock) in the next page. The resin why I but this routine in the load event is that in each button in the Berekken Palette the result we be send directly to, A-label in the Palette. B-update Attributes in the Stuklijst Layout. 16/12/2010 EDCAD1.0 HBO-Traject 2010 47
Page 1 and 2: . Customization Is The Key To Succe
Page 3 and 4: . About Me: I have been studied for
Page 5 and 6: Index 1Introduction 1.1 AutoCAD 6 1
Page 7 and 8: 1.2 Autocad.net One of the greatest
Page 9 and 10: 1.3 About SolarTech. SolarTech Inte
Page 11 and 12: Energiedak ®-Plus 1 High Absorbent
Page 13 and 14: 2 The Problem Statement 2.1 Analysi
Page 15 and 16: 3 The Project 3.1 Delineation of th
Page 17 and 18: 3.2 Interface of The Projects The f
Page 19 and 20: So we can use it to active the comm
Page 21 and 22: Palettes We can use .NET usercontro
Page 23 and 24: 4.2 The AutoCAD .dwg File. We could
Page 25 and 26: Sometime the same object has differ
Page 27 and 28: 4.5 EDCAD1.0 Details A- Afschotisol
Page 29 and 30: Dim NAME As String NAME = "AFL" Dim
Page 31 and 32: Public Function Tekst(ByVal regel A
Page 33 and 34: B- Collectorleidingen Palette Dim x
Page 35 and 36: Selection Filters we can use Select
Page 37 and 38: Sub WijzigenLaag(ByVal objIds As Ob
Page 39 and 40: C- CollectorPlaten Palette The Dyna
Page 41 and 42: E- PV-Module-Aanv.Reto.Palette Dim
Page 43 and 44: The Bottom One of the most popular
Page 45: Dim myLayout As Layout = myBlockTab
Page 49 and 50: Dim Criterium(1) As TypedValue Crit
Page 51 and 52: What is this If Element.Visible = T
Page 53 and 54: The first version of the Aanvoer en
Page 55 and 56: For i = 0 To diktes.Count - 1 Dim T
Page 57 and 58: Dim acLyrTbl As LayerTable Dim acLy
Page 59 and 60: Kader Invullen Update en onthoud I

Dia 1 - CAD College

Create successful ePaper yourself

Delete template?

Save as template?