虽然不再支持VBA，但AutoCAD 2010还会继续支持COM接口，也就是说Visual LISP还可以继续使用COM接口来编程。这可是非常关键的一项，不然Visual LISP 就要退化回原来的AutoLISP了，呵呵。
取代VBA的将会是之前介绍过的VSTA，它可以使用Visual Basic 或Visual C#等来编程，而且AutoCAD 2010中也会集成一个类似于Visual Studio的编辑器。用于编制VSTA程序。
以后本版块也需要做调整了，增加VSTA方面的内容，以适应新形势的需要。大家一起努力吧。



相关链接：AutoCAD | VBA | 支持模块 | 下载

阅读全文……

2015/11/16  今日，在二哥的帮住下，把blog升级了。。。
感谢万能的二哥

前段时间为公司实验室编制测试数据库，其中遇到一个问题，怎样在VBA中使用Excel自带的一些函数呢？如min,max,average等等。 
本以为能在Excel表格中直接使用的函数也能直接移植到VBA中，结果发现根本行不通，程序报错。后来通过多方查询发现，虽然不能直接引用，但是我们可以曲线救国，excel中表格可以用max函数，在VBA中也可以用，只需通过WorksheetFunction对象就可以引用，后面加函数名称，然后加range来引用单元格。举个例子： Application.WorksheetFunction.Max(range("A1:C5")) 下面就是能在VBA中使用excel自带函数：

function MoveFileEx(
  lpExistingFileName: PChar;  // 来源文件名，指向一个以零结尾的字符串的指针。
  lpNewFileName: PChar;       // 目标文件名，指向一个以零结尾的字符串的指针。
  dwFlags: DWORD              // 移动标记，见定义
  ): BOOL; stdcall;           // 返回执行结果，成果或失败



阅读全文……

Sub SaveAsSheet() 
    
    Dim AtAPP As Excel.Application
    Dim AtBook As Excel.Workbook
    Dim AtSheet As Excel.Worksheet



阅读全文……

string GetExtendedScreenInfo()

{

  object temp;



阅读全文……

定义块方法：

Set blocksobj=ThisDrawing.Blocks.Add(基点, 块名)
把选择集加入块中的方法：
ThisDrawing.CopyObjects(选择集,块)



阅读全文……