Private Function gettitlebar() As AcadBlockReference
Dim blkref As AcadBlockReference
For Each blkref In ThisDrawing.modelspace
If StrComp(blkref.Name, "标题栏") = 0 Then
Set gettitlebar = blkref
Exit Function
End If
Next blkref
End Function
For Each blkref In ThisDrawing.modelspace这句总是类型不匹配 应该怎么改啊
置顶卡
