乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 76|回复: 5

请教高手我这段程序错在哪,有时行有时就不行??

[复制链接]

10

主题

23

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
63
发表于 2004-1-25 10:46:00 | 显示全部楼层 |阅读模式
  1. Sub drawneiwaique()
  2. '画椭圆弧
  3. Dim startpt(0 To 2) As Double
  4. Dim pi As Double
  5. pi = 4 * Atn(1)
  6. Dim ellobj As AcadEllipse
  7. Dim ellmajoraxis(0 To 2) As Double
  8. Dim ellcenter(0 To 2) As Double
  9. startpt(0) = 0: startpt(1) = 0: startpt(2) = 0
  10. ellcenter(0) = startpt(0) + 25: ellcenter(1) = startpt(1) + 15: ellcenter(2) = 0
  11. ellmajoraxis(0) = startpt(0) + 25: ellmajoraxis(1) = startpt(1): ellmajoraxis(2) = 0
  12. Set ellobj = ThisDrawing.ModelSpace.AddEllipse(ellcenter, ellmajoraxis, 0.6)
  13. ellobj.StartAngle = 0.5 * pi: ellobj.EndAngle = 1.5 * pi
  14. '画直线
  15. Dim plinept(0 To 11) As Double
  16. Dim plineobj As AcadPolyline
  17. Dim ellendpt As Variant
  18. Dim ellstartpt As Variant
  19. ellendpt = ellobj.EndPoint
  20. ellstartpt = ellobj.StartPoint
  21. plinept(0) = ellendpt(0): plinept(1) = ellendpt(1): plinept(2) = ellendpt(2)
  22. plinept(3) = ellendpt(0) + 25: plinept(4) = ellendpt(1): plinept(5) = 0
  23. plinept(6) = ellstartpt(0) + 25: plinept(7) = ellstartpt(1): plinept(8) = 0
  24. plinept(9) = ellstartpt(0): plinept(10) = ellstartpt(1): plinept(11) = ellstartpt(2)
  25. Set plineobj = ThisDrawing.ModelSpace.AddPolyline(plinept)
  26. '建立面域
  27. Dim shapeobj(0 To 1) As AcadEntity Dim regionobj As Variant
  28. Set shapeobj(0) = ellobj
  29. Set shapeobj(1) = plineobj
  30. regionobj = ThisDrawing.ModelSpace.AddRegion(shapeobj)
  31. ellobj.Delete
  32. plineobj.Delete
  33. End Sub
回复

使用道具 举报

15

主题

285

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
345
发表于 2004-1-25 12:23:00 | 显示全部楼层
程序没有错误 刚刚调试 是可行的
不知道你是什么时候出错 哪一句出错了?把你的出错信息帖出来看看
回复

使用道具 举报

10

主题

23

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
63
发表于 2004-1-26 08:33:00 | 显示全部楼层
谢谢大哥了。
问题已经找出来了,出错的地方是倒数第四行,原因是我在非顶视图执行该程序。
但不知有没有避免出错的方法?
回复

使用道具 举报

15

主题

285

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
345
发表于 2004-1-26 11:56:00 | 显示全部楼层
非顶视图?
什么意思啊?
回复

使用道具 举报

10

主题

23

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
63
发表于 2004-1-26 15:26:00 | 显示全部楼层
在前视图或是其他的视图就不行,只有顶视图可以
回复

使用道具 举报

6

主题

20

帖子

3

银币

初来乍到

Rank: 1

铜币
44
发表于 2004-1-28 09:15:00 | 显示全部楼层
在运行该段程序前,可以通过设置启动视图的方式来解决这个问题
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 10:38 , Processed in 3.015567 second(s), 64 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表