[求助]面板中的按钮事件！

single-yu

请问，我在PaletteSet搞了几个按钮，为什么不能直接在Click里面写程序呢，为什么要用endStringToExecute？
我看才鸟的书上也是这样呢！在按钮里面处理程序后，直接就是致命错误了！

single-yu

d:\1.jpg
                        
d:\2.jpg

3.     Private Sub btnCloseLayer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCloseLayer.Click
4.         Dim db As Database = HostApplicationServices.WorkingDatabase
5.         Dim LineEnt As New Line(New Point3d(100, 200, 0), New Point3d(300, 500, 0))
6.         Using trans As Transaction = db.TransactionManager.StartTransaction
7.             Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
8.             Dim btr As BlockTableRecord = trans.GetObject(bt.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
9.             btr.AppendEntity(LineEnt)
10.             trans.AddNewlyCreatedDBObject(LineEnt, True)
11.             trans.Commit()
12.         End Using
13.     End Sub

    Private Sub btnCloseLayer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCloseLayer.Click         Dim db As Database = HostApplicationServices.WorkingDatabase         Dim LineEnt As New Line(New Point3d(100, 200, 0), New Point3d(300, 500, 0))         Using trans As Transaction = db.TransactionManager.StartTransaction             Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)             Dim btr As BlockTableRecord = trans.GetObject(bt.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite)             btr.AppendEntity(LineEnt)             trans.AddNewlyCreatedDBObject(LineEnt, True)             trans.Commit()         End Using     End Sub

雪山飞狐_lzh

文档加锁

single-yu

解决了，就是文档锁定的问题！一直没有用过！也不知道在什么情况下用！

谢谢飞狐版主！

single-yu

是不是以后在操作文档时，都要加锁呢？

雪山飞狐_lzh

不在当前文档的上下文运行时

csu_yijie

关注中，我也是搞不清楚什么时候该加锁，加在什么地方。。。

chpmould

关注中，我也是搞不清楚加在什么地方加锁

cdinten

没事就加~~~

epwt

我也是，只要用就加，用完就释放。
不太明白他里面的机制，要是涉及到多线程的应用程序，是否就变得复杂了呢？