[Zaghim]

Друзья, помогите оптимизировать код. Он очень долго думает в следующих кусках:

Код:

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

(command "line" tvstav1 tvstav2 "")
	      (setq l0 (ssget "L"))
              (command "change" l0 "" "P" "la" layer "" "")
	      (command "line" tvstav2 tvstav31 "")
	      (setq l0 (ssget "L"))
              (command "change" l0 "" "P" "la" layer "" "")
	      (command "line" tvstav2 tvstav32 "")
      	      (setq l0 (ssget "L"))
              (command "change" l0 "" "P" "la" layer "" "")
	      (command "line" tvstav31 tvstav32 "")
      	      (setq l0 (ssget "L"))
              (command "change" l0 "" "P" "la" layer "" "")
	      (command "line" tvstav3 tvstav4 "")
      	      (setq l0 (ssget "L"))
              (command "change" l0 "" "P" "la" layer "" "")

При этом постоянно появляется надпись Unknown command P1 - имя моей команды

И еще я взрываю блоки и восстанавливаю их цвет:

Код:

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

(vl-cmdf "_explode" name "")
          (setq l1 (ssget "p"))
          (vl-cmdf "_chprop" l1 "" "la" layer "" "")

Здесь те же тормоза и надписи с неизвестной командой... тормоза критические, вместо 5-10 секунд код работает пару минут, а то и больше...

[Zaghim]

Мне нужно получить содержимое блока, что бы были примитивы в том же слое и цвете что и блок...а сам блок удалить ну или взорвать. Блок в котором только линия, я сделал, там все просто, а есть блоки в которых может быть все что угодно, кроме еще одного блока...
Точнее не получить, а нарисовать заместо блока

[Кулик Алексей aka kpblc]

Тогда ищи тему "Exress Tools Bugs", таи VVA много чего сделал