[Nikilin]

Здравствуйте товарищи.
Подскажите существует ли способ изменить масштаб типов линии в активном чертеже.
Суть задачи такая. Есть некий чертеж где около 80 типов линии сделанных в 2 раза меньше чем нужно.
Хочу увеличить их именно кодом, чтобы в свойствах, в масштабе типа линии осталась единица.
Грубо говоря изначально делал под конкретны масштаб, а теперь хочу перевести все дело в аннотативность.
Благодарю за помощь.

[Ingpro]

Сообщение от Nikilin Выбирать можно любые объекты.

Спасибо большое, Nikilin. Выбирает любые объекты, но , если, к примеру, выбрать 3 объекта, то программа 3 раза запрашивает масштаб, причем неизвестно у какого из 3-х объектов будет меняться масштаб... А если объектов 10-30?
Это немного неудобно, если можно подправить лисп:
- выбрать объекты (они могут быть с разными исходными масштабами),
- указать один раз масштаб для всех выбранных объектов ...

[name02]

Код:

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

 (defun c:foo (/ ss ms i sn obj)
 (vl-load-com)
 (if (setq ss (ssget))
	(progn
     (initget 7)
     (setq ms (getreal "\nEnter the linetype scale: "))
      (repeat (setq i (sslength ss))
       (setq sn (ssname ss (setq i (1- i))))
       (setq obj (vlax-ename->vla-object sn))
       (vla-put-LinetypeScale obj ms)
      )
	)
  )
  (princ)
)

[Ingpro]

name02, спасибо! Теперь всем выбранным объектам можно задать одинаковый масштаб типа линий...

[gumel]

Спрашивал в этой теме больше года назад. Задача была масштабировать объекты с индивидуальной корректировкой Linetypescale. Мне нужно, чтобы визуально объекты не отличались до и после масштабирования.

Сообщение от Nikilin Тут все сложней. Как я понимаю логика должна быть такая: 1 Запросить масштабный коэффициент 2 считать у объекта масштаб типа линии 3 изменить масштаб (Считаный масштаб*на коэффициент введённый ранее) Все это применяется для всех объектов в чертеже. Если все верно понял то может на форуме кто то и поможет. Лично для меня такое сильно сложно.

В общем код написал (методом copy/paste), но он некорректно работает:

Код:

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

 
(defun C:sscale() ; superscale
(setq ss (ssget)) ; набор объектов
(setq basepoint (getpoint "Базовая точка: ")) ; запрос базовой точки
(setq scalefactor (getreal "Коффициент масштабирования: [0.25/ 0.5/ 2.0/ 2.5/ ] <2.0> ")) (if (= scalefactor nil) (setq scalefactor 2))
(command "_scale" ss "" basepoint scalefactor) ; Масштабируем средствами АВТОКАДА
    (repeat (setq i (sslength ss)) ; далее цикл по выбранным объектам (с целью изменения LinetypeScale)
      (setq sn (ssname ss (setq i (1- i)))) 
      (setq obj (vlax-ename->vla-object sn))
	  (setq currentlts (vla-get-LinetypeScale obj)) ; текущий LinetypeScale 
	  (setq newlts (* currentlts scalefactor)) ; новый LinetypeScale
      (vla-put-LinetypeScale obj newlts) ; устанавливаем новый LinetypeScale
    )
)

upd. Прошу прощения, всё работает. Вроде ))