VBA操作CAD画300个大小不同颜色不同的圆圈

Private Sub Form_Load()
On Error Resume Next
Set acadapp = GetObject(, "autocad.application")
If Err ThenErr.ClearSet acadapp = CreateObject("autocad.application")If Err ThenMsgBox ("不能运行AutoCad,请检查是否安装了CAD")Exit SubEnd If
End If
acadapp.Visible = True
End SubPrivate Sub Command1_Click()
c300End SubSub c300()Dim myselect(0 To 300) As AcadEntity '定义选择集数组
Dim pp(0 To 2) As Double '圆心坐标For i = 0 To 300 '循环300次
pp(0) = 3000 * Rnd: pp(1) = 3000 * Rnd: pp(2) = 0 '设置圆心坐标
Set myselect(i) = acadapp.ActiveDocument.ModelSpace.AddCircle(pp, Rnd * 30 + 1) '画不同大小的圆
Next iFor i = 1 To 300
If myselect(i).radius > 10 Then '判断圆的直径是否大于10myselect(i).Color = Int(255 * Rnd + 1) '大圆颜色改为随机数
Elsemyselect(i).Color = 0 '小圆改为白色
End If
Next iZoomExtents '缩放到显示全部对象End Sub

VBA操作CAD画300个大小不同颜色不同的圆圈相关推荐

Excel VBA编程常用语句300句
Excel VBA编程常用语句300句 ************** * VBA 语句集 * * (第 1 辑) * ************** **************** * 定制模块行为 ...
记录一下HALCON基于可变形，利用CAD画dxf模板进行模板匹配（二）
本文接着上一篇记录一下HALCON基于可变形,利用CAD画dxf模板进行模板匹配打开HALCON并打开匹配助手匹配助手如图 "创建"页说明: 1,选择匹配方式中间偏上方的下拉 ...
cad lisp 二次抛物线_用Cad画二次抛物线.doc
用Cad画二次抛物线 Cad画二次抛物线如y=ax2+bx+c 第一步 确认cad中有VBA module如果没有请下载visual basic编辑器thisdrawing 第二步 打开cad ...
计算机分隔线教程,计算机CAD画线教程
计算机CAD画线教程 1.命令格式命令行:Sketch 徒手画线对于创建不规则边界或使用数字化仪追踪非常有用,可以使用Sketch命令徒手绘制图形.轮廓线及签名等. 在中望CAD 2010中Sket ...
在C#中用COM操作CAD
一.介绍 AutoCAD的二次开发形式非常多, 有Autolisp,ObjectARX,VBA等,在本章我给大家介绍的是不太常用的COM方式操作CAD. 使用COM的方式有前期绑定和后期绑定2种. 二 ...
cad画直角命令_在cad中怎么画角度?cad画角度三种方法介绍
cad是应用最广泛的计算机辅助设计软件,学会使用cad怎么画角度是必不可少的,尤其是对于新手来说,更应该学习.那么在cad中怎么画角度?下面小编就为大家介绍三种cad画角度方法,希望对大家有所帮助! ...
关于python操作cad的2021-06-18
之前写了"关于python通过pyautocad操作cad的2021-06-10",由于pyautocad根据图元生产面域的方法没找到,所以改用win32com.client了,找 ...
cad lisp 二次抛物线_用Cad画二次抛物线
Cad 画二次抛物线如 y=ax2+bx+c 第一步  确认 cad 中有 VBA module  如果没有请下载, 即 CAD 中 "工具" → "宏" ...
cad画不规则实体_cad画不规则曲线的方法步骤图
CAD绘制图形非常之多,那么大家知道cad怎么画不规则曲线吗?下面是学习啦小编整理的cad画不规则曲线的方法,希望能给大家解答. cad画不规则曲线的方法 1.单击AutoCAD2013工具栏&quo ...

VBA操作CAD画300个大小不同颜色不同的圆圈

VBA操作CAD画300个大小不同颜色不同的圆圈相关推荐

最新文章

热门文章