9
29
1
初露锋芒
'测试函数 Public Shared Sub cs() Dim a As New Extents3d(New Point3d(0, 0, 0), New Point3d(100, 100, 0)) Dim b As New Extents3d(New Point3d(100, 100, 0), New Point3d(200, 200, 0)) a.AddExtents(b) ' 获取当前活动文档的Editor对象,也就是命令行 Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor ' 调用Editor对象的WriteMessage方法在命令行上显示文本 ed.WriteMessage(a.ToString) End Sub
使用道具 举报
72
2726
社区元老
26
4
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-15 12:54 , Processed in 0.339917 second(s), 62 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端