I'had just met another matter for my Add-on. I noticed that when I instance a new drawing, while a first one is opened, when I load a new Form, this one keep all first drawing's properties. What could happen?
For example, I would like to add the layer list on a ComboBox.
Private Sub LayerBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '***************************' '* Initialisation LayerBox *' '***************************' Using acTrans = acCurDb.TransactionManager.StartTransaction() acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForRead) For Each acObjId As ObjectId In acLyrTbl acLyrTblRec = acTrans.GetObject(acObjId, OpenMode.ForRead) ComboBox1.Items.Add(acLyrTblRec.Name) Next acObjId End Using End Sub
This source works, but if i instance a new form on a new drawing, the first drawing's layer list is kept and the new layer list on the second drawing is ignored!
>> but if i instance a new form on a new drawing
then you have to set your variable acCurDb to this other drawing before getting the list of layers.
- alfred -
How can i set my variable acCurDb to each drawing
I set my variables like that (as it's explained on autoCAD Developper's Guide)
Public acDoc As Document = Application.DocumentManager.MdiActiveDocument Public acCurDb As Database = acDoc.Database
you have the DocumentCollection within the ApplicationServices.Application, that is a list of all opened Documents, run through this list and you have all Documents.
Next step is then to watch events for Opening/Activating/Closing Documents as you have then to update your list.
- alfred -
I've found the source and it works! Thanks you.
In starter Sub just add an Event Argument to detect document activation.
Private Sub LayerBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AddHandler Application.DocumentManager.DocumentActivated, AddressOf docColDocAct End Sub
Then, when a document is activated the Event Argument refers to docColDocAct which reset acCurDb variable with the current document activated and return it to private Sub LayerBox_Load.
Public Sub docColDocAct(ByVal senderObj As Object, ByVal docColDocActEvtArgs As DocumentCollectionEventArgs) acCurDb = docColDocActEvtArgs.Document.Database End Sub
Thank you alfred
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register
Start with some of our most frequented solutions to get help installing your software.