[Sel]

Не знаю, как и задать вопрос... А что у меня размеры при перемещении объекта "расползаются" (другого слова и не подобрать) по экрану. Чего при Copy не происходит? И как с этим бороться? стыдно!

[VetalBY]

В настройках стоит "Make new dimensions associative", новые размеры создаются ассоциативными (привязываются к объектам). Существующие размеры можно "разассоциировать" командой _dimdisassociate

[Sel]

ЗАРАБОТАЛО! Спасибо, VetalBY.

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

Скорее всего, размеры проставлены с dimassoc = 2. Вот лиспик, который по идее делает то, чего хочется:

Код:

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

;|=============================================================================
*    Функция переноса объектов с временной деактивацией ассицативности размеров
*    После переноса реассоциируются [b]все[/b] размеры.
*    Параметры вызова:
*	нет
*    Примеры вызова:
(_kpblc-move)
=============================================================================|;
(defun _kpblc-move (/ _cmdecho_ _nomutt_ _dimassoc_)
  (setq	_cmdecho_  (getvar "cmdecho")
	_nomutt_   (getvar "nomutt")
	_dimassoc_ (getvar "dimassoc")
	) ;_ end of setq
  (mapcar 'setvar
	  '("cmdecho" "nomutt" "dimassoc")
	  '(0 1 1)
	  ) ;_ end of mapcar
  (command "_.dimdisassociate" "_all" "")
  (mapcar 'setvar
	  '("cmdecho" "nomutt")
	  '(_cmdecho_ _nomutt_)
	  ) ;_ end of mapcar
  (command "_.move")
  (while (/= (getvar "cmdactive") 0)
    (command pause)
    ) ;_ end of while
  (mapcar 'setvar
	  '("cmdecho" "nomutt")
	  '(0 1)
	  ) ;_ end of mapcar
  (command "_.dimreassociate" "_all" "")
  (while (/= (getvar "cmdactive") 0)
    (command "")
    ) ;_ end of while
  (mapcar 'setvar
	  '("cmdecho" "nomutt" "dimassoc")
	  '(_cmdecho_ _nomutt_ _dimassoc_)
	  ) ;_ end of mapcar
  ) ;_ end of defun

;|=============================================================================
*    Собственно вызов. Можно обойтись и без него
=============================================================================|;
(defun c:ext-move ()
  (_kpblc-move)
  ) ;_ end of defun