mysunrises 发表于 2003-6-18 15:00:00

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

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

mccad 发表于 2003-6-18 16:39:00

在实用函数栏目中有，你查一下

mysunrises 发表于 2003-6-18 17:13:00

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

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

mysunrises 发表于 2003-6-18 17:21:00

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

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

myfreemind 发表于 2003-7-6 21:57:00

确实非常专业！

cag 发表于 2003-7-7 21:15:00

简单嘛

thankyou 发表于 2003-8-29 17:20:00

收益非浅！

subtlation 发表于 2003-11-13 14:05:00

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

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

mccad 发表于 2003-11-13 15:23:00

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

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

subtlation 发表于 2003-11-13 18:18:00

问题已然存在，只是做别的命令时没关系，但如果是设置的命令就会出错，应该是这里还要改。 要把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
页: 1 [2] 3
查看完整版本: [求助]关于cad标注的问题