全面分析VB.NETMOVE命令

本章的目的是解释AutoCAD事件怎样才能被用于控制AutoCAD图形中的行为。我们不想让用户能改变EMPLOYEE块索引的位置，而对于其它的非EMPLOYEE块索引的位置则没有这个限制。我们将混合使用数据库与文档事件来做到这一点。

创新互联公司长期为成百上千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为措勤企业提供专业的成都网站设计、成都网站制作，措勤网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。

#t#首先，我们想要监视将要被执行的AutoCAD命令（使用CommandWillStart事件）。特别地，我们要监视VB.NET MOVE命令。另外，当一个对象要被修改时，我们应该被通知（使用ObjectOpenedForModify事件），这样我们可以确定它是否为一个EMPLOYEE块索引。如果这时就修改对象可能是无效的，因为我们的修改可能会再次触发事件，从而引起不稳定的行为。所以，我们要等待VB.NET MOVE命令的执行结束（使用CommandEnded事件），这时就可以安全地修改对象了。当然，任何对块索引的修改将会触发ObjectOpenedForModify事件。我们还需要设置一些全局变量来表明一个VB.NET MOVE命令在运行和被修改的对象是一个EMPLOYEE块索引。

注意：因为本章需要比较多的代码来获得想要的结果，所以我们不会解释任何与事件处理无关的代码，而只是将它们粘贴到事件处理函数中。这里的重点是成功创建和注册事件处理函数。

创建新工程

我们以第六章的工程开始。请新加入一个类AsdkClass2。我们还要加入四个全局变量。前两个是Boolean型的：一个用来表示我们监视的命令是否是活动的，另外一个用来表示ObjectOpenedForModify事件处理函数是否该被忽略。

 
 
 

  
  
  
'全局变量 
  
  
  
Dim bEditCommand As Boolean 
  
  
  
Dim bDoRepositioning As Boolean
 
 
 

接下来，我们要声明一个全局变量来表示一个ObjectIdCollection，它用来存储我们所选择的要修改的对象的ObjectID。

 
 
 

  
  
  
Dim changedObjects As New ObjectIdCollection()
 
 
 

最后，我们要声明一个全局变量来表示一个Point3dCollection，它用来包含我们所选对象的位置（三维点）。

 
 
 

  
  
  
Dim employeePositions As New Point3dCollection()
 
 
 

创建第一个文档事件处理函数（回调函数）

现在我们要创建一个事件处理函数。当AutoCAD命令开始执行的时候它会通知我们。我们要检查GlobalCommandName的值是否为MOVE。

 
 
 

  
  
  
If e.GlobalCommandName = "MOVE" Then 
  
  
  
'Set the global variables 
  
  
  
'Delete all stored information 
  
  
  
End If
 
 
 

如果VB.NET MOVE命令开始执行的话，我们要相应地设置Boolean变量bEditCommand的值，这样我们可以知道我们所监视的命令是活动的。同样地，我们应该把另外一个Boolean变量bDoRepositioning设置为false来忽略ObjectOpenedForModify事件处理函数。两个变量设置好以后，在命令活动期间，我们必须要获得所选块索引的信息。

我们还应该把两个集合对象的内容清空。我们只关心当前选择的对象。

网站标题：全面分析VB.NETMOVE命令
文章转载：http://www.shufengxianlan.com/qtweb/news29/158029.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联