[求助]关于cad标注的问题

mysunrises

版主你好，我想知道是如何调用和利用cad中的color对话框的，谢谢

mccad

mysunrises

是vba中的实用函数马??我作的是vba的开发,谢谢

mysunrises

谢谢,我已经找到!非常感谢!

myfreemind

确实非常专业！

cag

简单嘛

thankyou

收益非浅！

subtlation

明总：autolayer运行特别大的文件时会出错，显示
运行时错误"6"
溢出
我想是不是这句出错，entcount太大，超过了integer的极限？
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
   EntCount = ThisDrawing.ModelSpace.Count
End Sub

能不能帮忙修改一下，发上来？

mccad

谢谢!已经修改了EntCount为Currency格式，保证位数足够。

文件下载后名称更改为AutoLayer.dvb:

subtlation

问题已然存在，只是做别的命令时没关系，但如果是设置的命令就会出错，应该是这里还要改。 要把i也设过。
Dim i As Integer
   Dim NewLayerName As String
   Dim j As Integer
   Dim NewLayerColor As Integer
   For j = LBound(LayerSet, 2) To UBound(LayerSet, 2)
       If UCase(CommandName) Like LayerSet(0, j) Then
           NewLayerName = LayerSet(1, j)
           NewLayerColor = CVar(LayerSet(2, j))
           CreateLayer NewLayerName, NewLayerColor
           If ThisDrawing.ModelSpace.Count > EntCount Then
               For i = EntCount To ThisDrawing.ModelSpace.Count - 1
                   Set NewEnt = ThisDrawing.ModelSpace.Item(i)
                   NewEnt.Layer = NewLayerName
               Next
           End If
           Exit For
       End If
   Next