iCAx开思工具箱

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 25387|回复: 2
打印 上一主题 下一主题

一个很郁闷的错误(vba开发cad一个小程序),大家看看。

[复制链接]
跳转到指定楼层
楼主
发表于 2004-3-19 01:42:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
Private Sub CommandButton1_Click()
   Call DrawArc
   
End Sub
  
Private Sub DrawArc()
   Dim NewArcObj As AcadArc
   Dim Center As Variant, Radius As Double
   Dim StartAngle As Double, EndAngle As Double
      
   With ThisDrawing.Utility
      Center = .GetPoint(, vbCr & "Enter the center point OR Click on center point:")
      Radius = .GetDistance(Center, vbCr & "Enter the raduis:")
      StartAngle = .GetAngle(Center, vbCr & "Enter the start angle:")
      EndAngle = .GetAngle(Center, vbCr & "Enter the end angle:")
   End With
  
   Set NewArcObj = ThisDrawing.ModelSpace.AddArc(Center, Radius, StartAngle, EndAngle)
  
   NewArcObj.Update
   
End Sub
  
‘错误提示:autocad主窗口不可见。
说明:有人说要关闭程序窗口,我加了unload me , 也不好用
autocad版本为2004
  
谢谢指教。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 支持支持
沙发
发表于 2004-3-19 11:30:13 | 只看该作者

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
板凳
 楼主| 发表于 2004-3-20 00:31:02 | 只看该作者

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手板模型制作,在线3D打印服务

QQ|小黑屋|手机版|开思工具箱 CAD工具箱_CAM工具箱  

GMT+8, 2024-11-21 21:17 , Processed in 0.015003 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表