Присвоение объекту типа линии и веса линии по слою
« предыдущая тема следующая тема »
Страницы: [1]   Вниз

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

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

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

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

  • ADN OPEN
  • Сообщений: 17
  • Карма: 0
Присвоение объекту типа линии и веса линии по слою
« : 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
Каким образом присвоить выбранным объектам тип и вес линии по слою? Попробовал втупую присвоить значение "ПоСлою" но не прокатило.



Записан

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

  • Administrator
  • *****
  • Сообщений: 13886
  • Карма: 1788
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Присвоение объекту типа линии и веса линии по слою
« Ответ #1 : 17-07-2019, 20:28:48 »
Zailar,
Один вопрос - одна тема.
Записан
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

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

  • ADN OPEN
  • Сообщений: 17
  • Карма: 0
Re: Присвоение объекту типа линии и веса линии по слою
« Ответ #2 : 17-07-2019, 20:29:40 »
Поправил
Записан
Отмечено как Решение Zailar 17-07-2019, 20:48:11

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

  • Administrator
  • *****
  • Сообщений: 13886
  • Карма: 1788
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Присвоение объекту типа линии и веса линии по слою
« Ответ #3 : 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
Записан
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

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

  • ADN OPEN
  • Сообщений: 17
  • Карма: 0
Re: Присвоение объекту типа линии и веса линии по слою
« Ответ #4 : 17-07-2019, 20:48:21 »
Спасибо
Записан
Страницы: [1]   Вверх
« предыдущая тема следующая тема »