46
261
8
后起之秀
使用道具 举报
21
166
7
26
589
10
中流砥柱
Sub test() ' 返回当前模型空间的实体数目 Dim n As Long n = ThisDrawing.ModelSpace.Count ' 调用Circle命令绘制圆 ThisDrawing.SendCommand "circle 2,2,0 4 " ' 如果执行成功,则会生成新的实体 Dim circleObj As AcadCircle If ThisDrawing.ModelSpace.Count > n Then Set circleObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1) circleObj.Color = acRed End If End Sub
11
37
1
初露锋芒
12
135
5
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-15 11:43 , Processed in 2.628704 second(s), 62 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端