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(选择集,块)



阅读全文……

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





阅读全文……