2013-08-21 明经AutoCAD.VBA编程(45054712) 群聊记录：[image={B4506A52-B1D9-8D37-F112-5ECA2C

明经快报

有声 12:19:45

[qqimg]201308/{B4506A52-B1D9-8D37-F112-5ECA2CE0D9B9}.gif[/qqimg]

明经快报

双人行 13:30:25

这是自己做的？

明经快报

无痕/ws 17:10:02

Sub 去重()
Dim L As AcadPolyline
  Dim sel As AcadSelectionSet
  
  On Error Resume Next
  Set sel = ThisDrawing.SelectionSets.Add("ssel")
  If Err Then
    Err.Clear
    Set sel = ThisDrawing.SelectionSets.Item ("ssel")
  End If
  On Error GoTo 0
  sel.SelectOnScreen
  
  Dim Ent1, Ent2 As AcadEntity
  Dim n%, i%, j%
  Dim SX, TF As Boolean
  Dim arr1, arr2
  TF = True
  For Each Ent1 In sel
    If VBA.UCase(Ent1.ObjectName) = "ACDBPOLYLINE"  Then
        For Each Ent2 In sel
        '筛选实体名为多段线且句柄不同的
            If VBA.UCase(Ent2.ObjectName) =  "ACDBPOLYLINE" And Ent2.Handle  Ent1.Handle Then
...............
        Next Ent2
    End If
  Next Ent1
  sel.Delete
End Sub

明经快报

VBA-小山 17:20:47

选择集是容易出错

VBA-小山 17:21:27

关了CAD，再打开出错，就不是选择集的事了

无痕/ws 17:31:12

真要重启电脑呀，现在不出错了。

?欢乐 17:32:03

有声 17:38:32

怎样得到cad中实体的剖视图，哪位老师指点一下，不编程直接命令也可

无痕/ws 17:45:08

[qqimg]201308/{F8CC4DE8-5124-F961-E270-1DF82C752ED8}.jpg[/qqimg]我晕呀，这二个坐标怎么就不同了呢？监视取值没看出来问题。。。

[VB&.NET]ppyyff 17:46:16

acad的精度问题，

无痕/ws 17:46:59

哦，怎么做？

[VB&.NET]ppyyff 17:47:26

这里显示可能是一样，但是双精度还有很长

明经快报

无痕/ws 18:08:42

哦，那样则得设一个精度值a=0.0000000001,比较改成
abs(pa2x-pb2px)

明经快报

20:47:43

去了，也一样

明经快报

20:47:43

你应该设置成同等精度然后在比较

明经快报

20:47:43

重启cad就得了 我想