Divid 发表于 2004-5-9 17:35:00

能获得某一层内的某条线吗？

如果我定义了


dim line1 as acadline


能把名为layer1层中的直线保存到line1吗？


假设layer1中只有一条直线.

xsfh2004 发表于 2004-5-9 20:37:00

用选择集麽

mccad 发表于 2004-5-9 21:31:00

用选择集+过滤器，过滤出特定图层上的直线。

Divid 发表于 2004-5-10 13:57:00

哦       我说说我的具体问题吧


有个数组lay()我用来放我的层，第i层里的直线是我想要的


那程序应该是,前提是每个层里只有一条线


Dim tempss As AcadSelectionSet<BR>Set tempss = ThisDrawing.SelectionSets.Add("ss")<BR>Dim gp As Integer<BR>Dim gpc As Variant<BR>gp = 8<BR>gpc = "lay(i)"


tempss.Select acSelectionSetAll, , , gp, gpc


Dim lll as Acadline<BR>Dim ll As AcadLine<BR>For Each ll In tempss<BR>                                               Set lll =ll


Next


可是这句不通呢 tempss.Select acSelectionSetAll, , , gp, gpc

雪山飞狐_lzh 发表于 2004-5-10 14:04:00

gpc = "lay(i)"?不可理解应该为Dim gp(0) As Integer
Dim gpc(0) As Variantgp(0)=8gpc(0) = str(lay(i))过滤器应该是数组
页: [1]
查看完整版本: 能获得某一层内的某条线吗？