从一个日本网站上找到的，原址为http://www1.harenet.ne.jp/~hanafusa/mt/memo/archives/000236.html。

如果你不想或不能用acedCmd或SendCommand等，试一下这个。它用的是VLAX方式，源码如下：

Using directives



阅读全文……

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



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

阅读全文……

定义块方法：

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



阅读全文……

Sub gettext()
  Dim sset As AcadSelectionSet  '声明定义选择集
  Dim ent As AcadEntity         '声明实体

  



阅读全文……

Dim adText As AcadText 
    Dim adSS As AcadSelectionSet 
    Dim fType(0 To 1) As Integer, fData(0 To 1) 
    Dim i As Integer 
        If lstFile.ListCount = 0 Then 



阅读全文……

在CAD VBA中，可以使用AddLightWeightPolyline(VerticesList) 函数画2D多线段。其中

参数VerticesList必须是预先定义的一个数组，数组的元素个数为2的倍数，其含义为：

[x0,y0,x1,y1,...,xn-1,yn-1](n为顶点个数)。



阅读全文……

CAD大字体什么意思？何谓形文件？详细讲解CAD的字体文件分类

当用AutoCAD或浩辰CAD打开其他设计人员发过来的图纸时，经常会提示找不到相应的字体而弹出一个替换字体的对话框，如下图所示





阅读全文……