VBA+CAD编程多条件组码 AND OR 组合使用方法

最新推荐文章于 2025-11-19 16:18:21 发布

原创

最新推荐文章于 2025-11-19 16:18:21 发布 · 452 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sql #数据库

Sub Test01() ''测试多条件组码

Dim i, j, n, k, k0, k1 As Integer

Dim x0, y0, x, y As Double

Dim acSSet As AcadSelectionSet
Dim acEnt As AcadEntity
         
Dim Point(0 To 2) As Double

''在VBA中的正确定义方法

Dim Ftype(0 To 6) As Integer
Dim Fdata(0 To 6) As Variant
                                       
Dim Point1, Point2 As Variant

''在框行范围内，选择勘察图层中的多段线 or 二维多段线
‘’ 这个程序经多方试验，终于成功
‘’ 不想其它程序员走弯路，费脑筋，于是分享出来
‘’ 程序提示框选范围

Point1 = ThisDrawing.Utility.GetPoint(, "框选标注范围，第一个点：")

Point2 = ThisDrawing.Utility.GetCorner(Point1, "框选范围，第二个点：")
                                                        
For Each acSSet In ThisDrawing.SelectionSets
    If acSSet.Name = "user1" Then
        acSSet.Delete
        Exit For     '' 这个位置的改进很关键，因为当你删除一个选择集后，若整个选择集为空后，Next 语句会导致错误！
    End If
Next acSSet
     
Set acSSet = ThisDrawing.SelectionSets.Add("user1")
  
  '' 以下是重点，网上的资料很少，经过多次踩坑才得以通过！
  '' AND , OR 的组合用法