Сообщество программистов Autodesk в СНГ
ADN Club => VBA => Тема начата: Zailar от 17-07-2019, 20:07:03
Название:
Присвоение объекту типа линии и веса линии по слою
Отправлено:
Zailar
от
17-07-2019, 20:07:03
Приветствую.
Есть код:
Код - Visual Basic
[Выбрать]
Sub
LayerDefpoints()
Dim
ADe
As
AcadEntity
On
Error
GoTo
1
Set
sset = ThisDrawing.SelectionSets.Add(
"ssOne"
)
sset.SelectOnScreen
For
Each
ADe
In
sset
ADe.Layer =
"Defpoints"
Next
ADe
1
sset.Delete
End
Sub
Каким образом присвоить выбранным объектам тип и вес линии по слою? Попробовал втупую присвоить значение "ПоСлою" но не прокатило.
Название:
Re: Присвоение объекту типа линии и веса линии по слою
Отправлено:
Александр Ривилис
от
17-07-2019, 20:28:48
Zailar
,
Один вопрос - одна тема.
Название:
Re: Присвоение объекту типа линии и веса линии по слою
Отправлено:
Zailar
от
17-07-2019, 20:29:40
Поправил
Название:
Re: Присвоение объекту типа линии и веса линии по слою
Отправлено:
Александр Ривилис
от
17-07-2019, 20:43:56
Как-то так вроде:
Код - Visual Basic
[Выбрать]
For
Each
ADe
In
sset
ADe.Layer =
"Defpoints"
ADe.Lineweight = acLnWtByLayer
ADe.Linetype =
"BYLAYER"
Next
ADe
Название:
Re: Присвоение объекту типа линии и веса линии по слою
Отправлено:
Zailar
от
17-07-2019, 20:48:21
Спасибо