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

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

我在Thisdrawing1中拷贝了数份LWPOLYLINE,然后运行以下程序


可是没达到预期的效果???


Sub SelSame()<BR>                       Dim ss As AcadSelectionSet<BR>                       Dim ent As AcadLWPolyline<BR>                       Dim pnt As Variant<BR>                       Dim gbcode(0 To 2) As Integer<BR>                       Dim gbdata(0 To 2) As Variant<BR>                       On Error Resume Next<BR>                       ThisDrawing.Utility.GetEntity ent, pnt, "请选择："<BR>                       gbcode(0) = 0: gbdata(0) = "LWPOlYLINE"<BR>                       gbcode(1) = 370: gbdata(1) = ent.Lineweight<BR>                       gbcode(2) = 38: gbdata(2) = ent.Elevation<BR>                       Set ss = ThisDrawing.SelectionSets.Add("SS")<BR>                       ss.Select acSelectionSetAll, , , gbcode, gbdata<BR>                       If ss.Count = 0 Then<BR>                                                       MsgBox "没有相同对象！！！"<BR>                       Else<BR>                                                       ss.Highlight True<BR>                       End If<BR>                       ss.Delete<BR>End Sub<BR>

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

lzh741206发表于2005-1-23 14:04:00static/image/common/back.gif你查查看实体是否有370组码


<BR>有的,我说的是LWPolyline肯定有,不信你试试这个


(ssget '((0 . "LWPOLYLINE")(370 . -1)(38 . 0)))


是可以选种默认输入的LWPolyline图元的.


你们使用我的程序始终会得到"没有相同对象！！！"这一个结果???


没道理嘛? 你们试试嘛!

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

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


谢谢关心了!
页: [1]
查看完整版本: 为什么无法的到属性相同的图元