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

Автор Тема: Присвоение объекту типа линии и веса линии по слою  (Прочитано 2252 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Тема содержит сообщение с Решением. Нажмите здесь чтобы посмотреть его.

Оффлайн ZailarАвтор темы

  • ADN OPEN
  • Сообщений: 17
  • Карма: 0
Приветствую.

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




Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Zailar,
Один вопрос - одна тема.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн ZailarАвтор темы

  • ADN OPEN
  • Сообщений: 17
  • Карма: 0

Отмечено как Решение Zailar 17-07-2019, 20:48:11

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Как-то так вроде:
Код - Visual Basic [Выбрать]
  1. For Each ADe In sset
  2.     ADe.Layer = "Defpoints"
  3.     ADe.Lineweight = acLnWtByLayer
  4.     ADe.Linetype = "BYLAYER"
  5. Next ADe
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн ZailarАвтор темы

  • ADN OPEN
  • Сообщений: 17
  • Карма: 0