Присвоение объекту типа линии и веса линии по слою

[Zailar]

Приветствую.

Есть код:

Код - Visual Basic [Выбрать]

1. Sub LayerDefpoints()
2.  
3. Dim ADe As AcadEntity
4. On Error GoTo 1
5.  
6. Set sset = ThisDrawing.SelectionSets.Add("ssOne")
7. sset.SelectOnScreen
8.  
9. For Each ADe In sset
10.     ADe.Layer = "Defpoints"
11.  
12. Next ADe
13. 1
14. sset.Delete
15.    
16. End Sub

Каким образом присвоить выбранным объектам тип и вес линии по слою? Попробовал втупую присвоить значение "ПоСлою" но не прокатило.

[Александр Ривилис]

Zailar,
Один вопрос - одна тема.

[Zailar]

Поправил

[Александр Ривилис]

Как-то так вроде:

Код - Visual Basic [Выбрать]

1. For Each ADe In sset
2.     ADe.Layer = "Defpoints"
3.     ADe.Lineweight = acLnWtByLayer
4.     ADe.Linetype = "BYLAYER"
5. Next ADe

[Zailar]

Спасибо