[serg72]

Подскажите, плиз как у активной выборки поменять одно свойство объектов на другое. Нужно ли перебирать в цикле все объекты в ActiveSelectionSet или можно за один раз?

[Лиспер]

Для начала не помешало бы сказать, на каком языке идет программирование. Следом - что за свойство надо менять (может, оно не в каждом объекте будет существовать - кто ж его знает-то?).

[gomer]

Сообщение от serg72 Подскажите, плиз как у активной выборки поменять одно свойство объектов на другое. Нужно ли перебирать в цикле все объекты в ActiveSelectionSet или можно за один раз?

Вот не стыдно такое писать?

[serg72]

Да, совсем уж коротко написал. Пытаюсь облегчить работу в Акаде с помощью лиспа. Сейчас стоит задача изменить Масштаб типа линии во вхождениях в блок (по какой то причине блоки в разных чертежах имеют разные масштабы и нужно привести к одному). Через свойства объекта в Акаде эта позиция не редактируется, в лиспе нашел свойство и для одного выбранного блока все прекрасно работает, а организовать то же самое для всех объектов выборки пока не получается.

[gomer]

Если найдешь соответствующий метод для набора или свойство, то можешь не перебирать... Или ты надеешься, что так быстрее было бы? Нет, можно, конечно, схалтурить: преобразовать набор в список и применить mapcar, но суть от этого не поменяется

[serg72]

Сообщение от gomer Если найдешь соответствующий метод для набора или свойство, то можешь не перебирать... Или ты надеешься, что так быстрее было бы? Нет, можно, конечно, схалтурить: преобразовать набор в список и применить mapcar, но суть от этого не поменяется

Разбираюсь с лиспом совсем не давно, под рукой только отсканированный Полещук, времени как всегда в обрез. Так что чего не догоняю приходится спрашивать на форумах. Для одиночного блока использовал vla-put-LineTypeScale но оно работает с vla-объектами. Можно ли сделать что-то типа:

( vla-put-LineTypeScale ( определение ActiveSelectionSet) масштаб)

Может у кого есть готовый код для примера?

[gomer]

Сообщение от serg72 Разбираюсь с лиспом совсем не давно, под рукой только отсканированный Полещук, времени как всегда в обрез.

Это очень плохой подход...

Сообщение от serg72 Может у кого есть готовый код для примера?

Это тоже очень плохой подход...

зы Может и

Код:

[Выделить все]

 (defun put-LTypeScl (ss sc)
  (if (< 0 (vla-get-Count ss))
    (progn
      (vla-put-LineTypeScale (vla-Item ss 0) sc)
      (vla-RemoveItems
	ss
	(vlax-safearray-fill
	  (vlax-make-safearray vlax-vbObject '(0 . 0))
	  (list (vla-Item ss 0))
	)
      )
      (put-LTypeScl ss sc)
    )
  )
)

[serg72]

gomer, спасибо за код, такой метод обучения конечно же не приемлем, но мы зачастую живем по принципу старого армейского анекдота "Некогда думать - прыгать надо". Вот и сейчас так - сдача объекта через неделю, а косяков в нем выше крыши. Готовый код в любом случае анализирую, бездумно не вставляю.

[Do$]

В коде из #7, наверное, вместо if надо while?

[gomer]

Сообщение от Do$ В коде из #7, наверное, вместо if надо while?

Ну это если явно перебирать
Вариант 1 (классический)

Код:

[Выделить все]

 (defun put-LTypeScl (ss sc / el)
  (while (< 0 (sslength ss))
    (setq
      el
      (subst
        (cons 48 sc)
        (assoc 48 (setq el (entget (ssname ss 0))))
        el
      )
    )
    (entmod el)
    (ssdel (ssname ss 0) ss)
  )
)

Вариант 2 (объектный)

Код:

[Выделить все]

 (defun put-LTypeScl (ss sc)
  (while (< 0 (vla-get-Count ss))
    (vla-put-LineTypeScale (vla-Item ss 0) sc)
    (vla-RemoveItems
      ss
      (vlax-safearray-fill
        (vlax-make-safearray vlax-vbObject '(0 . 0))
        (list (vla-Item ss 0))
      )
    )
  )
)

Вариант 3 (смешанный)

Код:

[Выделить все]

 (defun put-LTypeScl (ss sc)
  (while (< 0 (sslength ss))
    (vla-put-LineTypeScale
      (vlax-ename->vla-object (ssname ss 0))
      sc
    )
    (ssdel (ssname ss 0) ss)
  )
)

зы. Каюсь, в последнее время голова забита рекурсиями...

[serg72]

Еще раз, спасибо за помощь, у меня возник небольшой вопросик: на данный момент пробую делать наборы с использованием ssget. Наборы получаются, но как теперь использовать этот код, ведь полученный SelectionSet не является vla-объектом. Можно ли его преобразовать во vla или нужно идти другим путем ?

[gomer]

Ну, так с этого и надо было начинать См. #10

[serg72]