有个斜钢梯生成器，输入命令后出现“未知错误，Time[OXXFA44587溢出”，这是哪里出了问题有大神可以解答一下吗？

基础的CADvba二次开发学习资料，用v2004这个版本是最合适的。希望对大家有帮助。 链接：https://pan.baidu.com/s/1zMD0sbwtGCz17yrDA3QJPQ 提取码：2ld4

有大佬会用VBA画轴承么，或者怎样可以直接输出一个任意长度的直线和圆弧

最近在看VBE的对象时看到一个有用的东西，记录一下。2个方法都是发送命令行指令字符串到cad的命令行，并执行： SendCommand Method (ActiveX)，从VB或VBA应用程序发送一个命令字符串到文档进行处理。这个方法可以在VB代码运行中发送一个cad命令到命令行并执行，但它的执行方式为协同进行的，即后续的需要输入参数时会等待用户进行输入； PostCommand Method (ActiveX)，当文档进入空闲状态时将命令字符串发送到文档并执行。这个方法与sendcommand类似，也可以发

Sub 差集() ' 定义长方体 Dim boxObj As Acad3DSolid Dim cylinderObj As Acad3DSolid Dim solidObj As Acad3DSolid Dim length As Double Dim width As Double Dim height As Double Dim center(0 To 2) As Double center(0) = 5: center(1) = 5: center(2) = 0 length = 5 width = 7 height = 10 ' 在模型空间中创建长方体对象 ' 并着色为白色 Set boxObj = ThisDrawing.ModelSpace. _ AddBox(center, length, width, height) boxObj.color = acWhite ' 定义圆柱体 'Dim cylinderObj As Acad3DSolid Dim cylinderRadius As Double Dim cylinderHeight As Double center(0) = 0: center(1)

vba选择某一对象进行一系列操作后，如何可以在执行过程中只对某一个图层，比如“8899”图层上所有对象进行等比例缩放或者选择，而且别的图层的对象保持原状不动（这个过程直接执行，不要再去选择一次对象），万分感谢

以下是本人在VBA吧里发的原创代码放到这里来增加人气。大家共同学习进步 ‘本代码把选择集中的属性块炸开，并把属性值转为单行文字插入到原属性的位置； Sub 炸属性块() Dim ss As AcadSelectionSet '选择集 Dim ssbl As AcadSelectionSet '选择集 Dim bl As AcadBlockReference '块引用（块插入） Dim acEn As AcadEntity '图元对象 Dim acTxt As AcadText '文本对象 Dim arAtt As Variant '块属性数组 Dim arP As Variant '插入点变量数组 Dim Xsc As Double 'x块比例 Dim Ysc As Double &#3

有会编程的吗，求指导