乐筑天下

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

VBA如何实现删除图形文件中的重复实体

[复制链接]

25

主题

77

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
177
发表于 2004-4-22 10:03:00 | 显示全部楼层 |阅读模式
我想问在CAD文件中有重复的线和文字,如何实现删除图形文件中的重复实体?先谢谢了
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-4-22 18:54:00 | 显示全部楼层
难度大,怎样判断重复?
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-22 19:04:00 | 显示全部楼层
判断重复,对线判断两端点,对文本判断插入点和文本值
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-4-22 19:22:00 | 显示全部楼层
没这么简单.
对线,每根线得与其它所有线比较,两根线的4个端点要在同一直线上.要做起来非常麻烦,对此不报希望.
回复

使用道具 举报

20

主题

26

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
106
发表于 2004-4-22 21:34:00 | 显示全部楼层
有什么区别?建立选择集只不过是要比较的线的数目少一点,方法还是一样.
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-4-22 21:38:00 | 显示全部楼层
你说的问题我以前做过类似的东东:一个两人对弈围棋的程序,确实很复杂
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-22 21:44:00 | 显示全部楼层
object.delete要是不行你就用
ThisDrawing.SendCommand "_erase" & vbCr & "(要删除的东西)" & vbCr & vbCr
看看行么?有的东西我就是这么删的
回复

使用道具 举报

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2004-4-22 23:31:00 | 显示全部楼层
  1. Public Function GetVal(Line1 As AcadLine, Line2 As AcadLine) As Integer
  2. Dim c As AcadLine
  3. Dim a(1) As Double, b(1) As Double
  4. Dim d(2) As Double, e(2) As Double
  5. If Line1.Angle  Line2.Angle Then GetVal = 0: Exit Function
  6. GetVal = 1
  7. e(1) = 1
  8. Set c = ThisDrawing.ModelSpace.AddLine(d, e)
  9. If c.Angle = Line1.Angle Then
  10.        h = c.StartPoint
  11.        h(0) = h(0) + 1
  12.        c.StartPoint = h
  13. End If
  14. f = c.IntersectWith(Line1, acExtendBoth)
  15. g = c.IntersectWith(Line2, acExtendBoth)
  16. c.Delete
  17. If Abs(f(0) - g(0))  Value1 Then Max = Value2
  18. End Function
这是一个判断两直线是否平行且重合的程序不平行返回0平行但不在一直线上返回1平行且在一直线上但不相交返回2平行且在一直线上且相交返回3下一步应该简单了吧
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 16:21 , Processed in 0.396323 second(s), 68 queries .

© 2020-2025 乐筑天下

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