[Scorpion_n]

Привет всем!
Помогите плиз с такой задачей:
необходимо програмно (LISP) выделить все линии на чертеже и установить масштаб линий для них 400.

В ЛИСПе не силён, только пытаюсь грызть это дело...
Делаю так:

(DEFUN C:LTS ()
(vl-cmdf "_ai_selall")
(vl-cmdf "ltscale" "400")
); End of Func.

После выполнения скрипта никакие объекты не выделены, в окне свойств Linetype scale = 400, но масштаб существующих линий остался прежний.
:-(

где накосячил? Или может нужно по-другому это делать?

[Олег (jr.)]

Код:

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

(DEFUN C:LTS ()
  (redraw)
  (vl-cmdf "_select" "_all" "")
  ;; Эта команда меняет Глобальный Масштаб самого чертежа
  ;; открой меню для Linetype и увидишь что изменилось
  (vl-cmdf  "_ltscale" 400.0 "")
  ;; Эта команда меняет масштаб линий в самом чертеже,
  ;; в данном случае тех, то выбраны
  (vl-cmdf  "_chprop" (ssget "_P") "" "_S"  400.0 "")
  (princ)
 ); End of Func.

~'o'~

[Scorpion_n]

Супер!
Это самое короткое и красивое решение из того что удалось найти...
Огромное СПАСИБО! :-)

[Олег (jr.)]

Это самое глупое и бестолковое решение на самом деле
Успехов в освоении Лиспа

~'o'~

[Scorpion_n]

Сообщение от Олег (jr.) Это самое глупое и бестолковое решение на самом деле Успехов в освоении Лиспа ~'o'~

А выглядит супер!
Всё равно спасибо!

[Олег (jr.)]

Кстати,
Хорошее место для разминки
www.afralisp.net

~'o'~