社区 › VB › 为什么无法的到属性相同的图元

liub1979 发表于 2005-1-3 16:51:00

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

我在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 发表于 2005-1-21 18:22:00

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

雪山飞狐_lzh 发表于 2005-1-23 14:04:00

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

cobalt 发表于 2005-1-23 21:42:00

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

cobalt 发表于 2005-1-24 11:51:00

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

liub1979 发表于 2005-1-24 18:40:00

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

liub1979 发表于 2005-1-24 18:48:00

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

查看完整版本: 为什么无法的到属性相同的图元