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

dchlmz · 发表于 2004-4-22 10:03:00

我想问在CAD文件中有重复的线和文字，如何实现删除图形文件中的重复实体？先谢谢了

mikewolf2k · 发表于 2004-4-22 18:54:00

难度大,怎样判断重复?

雪山飞狐_lzh · 发表于 2004-4-22 19:04:00

判断重复，对线判断两端点，对文本判断插入点和文本值

mikewolf2k · 发表于 2004-4-22 19:22:00

没这么简单.
对线,每根线得与其它所有线比较,两根线的4个端点要在同一直线上.要做起来非常麻烦,对此不报希望.

slsldu · 发表于 2004-4-22 21:34:00

有什么区别?建立选择集只不过是要比较的线的数目少一点,方法还是一样.

mikewolf2k · 发表于 2004-4-22 21:38:00

你说的问题我以前做过类似的东东：一个两人对弈围棋的程序，确实很复杂

雪山飞狐_lzh · 发表于 2004-4-22 21:44:00

object.delete要是不行你就用
ThisDrawing.SendCommand "_erase" & vbCr & "（要删除的东西）" & vbCr & vbCr
看看行么？有的东西我就是这么删的

yipinbing · 发表于 2004-4-22 23:31:00

copy


Public Function GetVal(Line1 As AcadLine, Line2 As AcadLine) As Integer
Dim c As AcadLine
Dim a(1) As Double, b(1) As Double
Dim d(2) As Double, e(2) As Double
If Line1.Angle  Line2.Angle Then GetVal = 0: Exit Function
GetVal = 1
e(1) = 1
Set c = ThisDrawing.ModelSpace.AddLine(d, e)
If c.Angle = Line1.Angle Then
       h = c.StartPoint
       h(0) = h(0) + 1
       c.StartPoint = h
End If
f = c.IntersectWith(Line1, acExtendBoth)
g = c.IntersectWith(Line2, acExtendBoth)
c.Delete
If Abs(f(0) - g(0))  Value1 Then Max = Value2
End Function

这是一个判断两直线是否平行且重合的程序不平行返回0平行但不在一直线上返回1平行且在一直线上但不相交返回2平行且在一直线上且相交返回3下一步应该简单了吧

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

发表回复

精选推荐

浏览过的版块