[DEM]

Проблема следующая т.к. Я работаю одновременно с двумя приложениями под Автокад PS-конструкции и СПДС, мне приходится каждый раз работать с двумя масштабными переменными(т.к. у каждой из этих прогамм свое окошко по выбору текущего масштаба)CELTSCALE и Dimscale.
Требуется сделать реактор на изменение CELTSCALE, чтобы при изменении CELTSCALE автоматически изменялась Dimscale.
Надеюсь кто нить по может, а то Я с реакторами еще не работал.

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

не знаю как в PS, а вот в СПДС в свое время был вариант смены масштаба, меняющий одновременно dimscale, celtscale, hpscale и hpspace. Перед тем, как прописывать реактор, я б посмотрел более подробно на изменения этих переменных. Можно хоть через modemacro. К примеру, аналогично такому:

Код:

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

(setvar
    "modemacro"
    "\"dimscale:\"$(rtos,$(getvar,\"dimscale\"),2);\" hpscale:\"$(rtos,$(getvar,\"hpscale\"),2);\" celtscale:\"$(rtos,$(getvar,\"celtscale\"),2)"
    )

[DEM]

Хм точно, точно КрЫс сейчас проверил вооще какая то белиберда получается с размерными масштабами и масштабом линий.
Надо наверное еще несколько переменных включать в этот ректор.
Причем интересно в PS-контрукции при изменении DIMSCALE масштаб в окошке меняется, а вот в СПДС при изменении CELTSCALE в диалоговом окне масштаб не меняется.

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

Все правильно. Потому что в СПДС изменение этих переменных висит на собственно СПДС-ке, а она еще и свое чего-то там кидает в файл. То есть в PS есть обратная связь, а в СПДС - мимо.

[DEM]

Вот и нужен такой ректор который бы следил за CELTSCALE и соответственно изменял Dimscale. А масштаб Я буду менять в СПДС.

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

во е-мое. вколоти код на modemacro, который я показал, и меняй масштаб как хошь. И смотри на изменения.
Или все не так просто? У тебя PS одновременно с СПДС запускается или не човчем? Потому что (думаю) будет проще накатать 3-4 кнопки, кторые и будут устанавливать эти переменные.

[DEM]

Хм да я понимаю что можно и кнопки делать просто удобнее с выпадающей менюшкой работать, т.к. много масштабов используется.

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

Если честно, я просто опасаюсь в такого класса дебри лезьть (запуган СПДС 2.03 под ACAD2002).

[VVA]

Код:

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

(if *VLR-SYS*
  (progn 
    (setq *VLR-SYS* nil) 
    (vlr-remove-all :VLR-SysVar-Reactor) 
    ) ;_ end of progn 
  ) ;_ end of if 
(setq *VLR-SYS* (VLR-SysVar-Reactor nil (list '(:VLR-sysVarChanged . chceltscale)))) 
(defun chceltscale (name event / nstyle) 
  (if (= (car event) "CELTSCALE")(setvar "DIMSCALE" (getvar "CELTSCALE")))
  (princ) 
  )

Dimscale устанавливается = CELTSCALE Если не так подредактируй как надо эту строку
(if (= (car event) "CELTSCALE")(setvar "DIMSCALE" (getvar "CELTSCALE")))

[DEM]

ОК попробую

[DEM]

VVA
Большое спасибо за код .
Все получилось.