Сообщество программистов Autodesk в СНГ

ADN Club => VBA => Тема начата: Zailar от 17-07-2019, 20:07:03

Название: Присвоение объекту типа линии и веса линии по слою
Отправлено: Zailar от 17-07-2019, 20:07:03
Приветствую.

Есть код:
Код - 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
Каким образом присвоить выбранным объектам тип и вес линии по слою? Попробовал втупую присвоить значение "ПоСлою" но не прокатило.



Название: 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 [Выбрать]
  1. For Each ADe In sset
  2.     ADe.Layer = "Defpoints"
  3.     ADe.Lineweight = acLnWtByLayer
  4.     ADe.Linetype = "BYLAYER"
  5. Next ADe
Название: Re: Присвоение объекту типа линии и веса линии по слою
Отправлено: Zailar от 17-07-2019, 20:48:21
Спасибо