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

Divid

如果我定义了


dim line1 as acadline


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


假设layer1中只有一条直线.

xsfh2004

用选择集麽

mccad

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

Divid

哦 我说说我的具体问题吧 有个数组lay()我用来放我的层，第i层里的直线是我想要的 那程序应该是,前提是每个层里只有一条线 Dim tempss As AcadSelectionSet
Set tempss = ThisDrawing.SelectionSets.Add("ss")
Dim gp As Integer
Dim gpc As Variant
gp = 8
gpc = "lay(i)" tempss.Select acSelectionSetAll, , , gp, gpc Dim lll as Acadline
Dim ll As AcadLine
For Each ll In tempss
Set lll =ll Next 可是这句不通呢 tempss.Select acSelectionSetAll, , , gp, gpc

雪山飞狐_lzh

gpc = "lay(i)"?不可理解应该为

2. Dim gp(0) As Integer
3. Dim gpc(0) As Variantgp(0)=8gpc(0) = str(lay(i))

Dim gp(0) As Integer Dim gpc(0) As Variantgp(0)=8gpc(0) = str(lay(i))

过滤器应该是数组