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为顶点个数)。



阅读全文……