Показать сообщение отдельно
 
Непрочитано 29.01.2009, 14:07
#6
Zouss


 
Регистрация: 14.03.2006
Сообщений: 863


на скорую руку можно так
Код:
[Выделить все]
(defun c:ltslts	(/ var_PSLTSCALE var_LTSCALE n i ll ln)
  (setq
    var_PSLTSCALE (getint "новое значение PSLTSCALE (0 или 1): ")
    var_LTSCALE	  (getreal "новое значение LTSCALE: ")
    n		  (length (setq ll (layoutlist)))
    i		  0
  ) ;_  setq
  (repeat n
    (setq ln (nth i ll)
	  i  (1+ i)
    ) ;_  setq
    (command "_LAYOUT" "_SET" ln)
    (command "_SETVAR" "PSLTSCALE" var_PSLTSCALE)
    (command "_SETVAR" "LTSCALE" var_LTSCALE)
  ) ;_  repeat
) ;_  defun
проверок никаких нет, после работы команды активным остается последний layout, как этим лиспом воспользоваться здесь
Zouss вне форума  
 
Размещение рекламы