string GetExtendedScreenInfo()

{

  object temp;



阅读全文……

定义块方法：

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打开其他设计人员发过来的图纸时，经常会提示找不到相应的字体而弹出一个替换字体的对话框，如下图所示





阅读全文……

首先得声明一下：这段代码基本上是"借"来的。只是做了些修改。这段代码的作用是计算选定区域的面积，运行效果如下面的图，用了比较多的SendCommand，不太可取，不过也无大碍，管用就行。另外，有多次对Auto-CAD环境变量的操作，GetVariable/SetVariable，至于各环境变量有什么用，可以查看CAD帮助文档。 
         修正Bug：重设ObjectSnapMode之后，原来的捕捉设置会丢失，必须得修改OSMODE环境变量的值才行。
[程序代码]       －－By :忽又一天 Email:wzw.icy@gmail.com QQ：365052003
Public Sub XArea() '选择一点，计算围绕该点的对象围成的面积
On Error GoTo ErrorHandler



阅读全文……

在CAD VBA就这么简单，可以计算出文字数字的和，单行文字框就去掉中间的“M”即可
'CAD图中所有选中的文字数字自动求和
Dim oEnt As Object
Dim mm As Double
mm = 0



阅读全文……