为什么无法的到属性相同的图元

liub1979

我在Thisdrawing1中拷贝了数份LWPOLYLINE,然后运行以下程序 可是没达到预期的效果??? Sub SelSame()
Dim ss As AcadSelectionSet
Dim ent As AcadLWPolyline
Dim pnt As Variant
Dim gbcode(0 To 2) As Integer
Dim gbdata(0 To 2) As Variant
On Error Resume Next
ThisDrawing.Utility.GetEntity ent, pnt, "请选择："
gbcode(0) = 0: gbdata(0) = "LWPOlYLINE"
gbcode(1) = 370: gbdata(1) = ent.Lineweight
gbcode(2) = 38: gbdata(2) = ent.Elevation
Set ss = ThisDrawing.SelectionSets.Add("SS")
ss.Select acSelectionSetAll, , , gbcode, gbdata
If ss.Count = 0 Then
MsgBox "没有相同对象！！！"
Else
ss.Highlight True
End If
ss.Delete
End Sub

liub1979

没人知道......为啥?会出错哦1

雪山飞狐_lzh

你查查看实体是否有370组码

cobalt

我在使用程序中绘制了多段线对象（比如说ObjLWPolyline1）之后马上对其进行选择，本来应该是可以将ObjLWPolyline1选择出来的，但是却没有。后来发现，当使用当前文档的Regen方法之后再进行选择就可以了。所以我建议你在进行选择之前运行Regen方法。

cobalt

拷贝一份之后，将新对象Update一下。

liub1979

lzh741206发表于2005-1-23 14:04:00你查查看实体是否有370组码

有的,我说的是LWPolyline肯定有,不信你试试这个 (ssget '((0 . "LWPOLYLINE")(370 . -1)(38 . 0))) 是可以选种默认输入的LWPolyline图元的. 你们使用我的程序始终会得到"没有相同对象！！！"这一个结果??? 没道理嘛? 你们试试嘛!

liub1979

我是在CAD中用PL命令画的线,就算没有UPDATE也没关系吧,呵呵


谢谢关心了!