[ALM]

Господа, подскажите пожалуйста. Например в модели у меня штрих пунктирная линия нормально отображается (смаштабирована), а в пространстве листа в видовом экране уже в нужном маштабе она кажется сплошной. Можно ли как-то сделать так, чтобы на листе линия тоже была штрих пунктирной?

[VVA]

>Krieger №18Через переменную TILEMODE

Код:

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

(setq *vlr-sys* (vlr-sysvar-reactor nil '((:VLR-sysVarChanged . cmd-sys))))
(defun cmd-sys (react sysvarname)
  (cond ((and
	 (= (car sysvarname) "TILEMODE")
	 (cadr sysvarname)
	 (= (getvar "TILEMODE") 0)
	 (not *OLD_LTSCALE*)
	 (not *OLD_PSLTSCALE*)
	 )  ;_ЛИСТ
	 (setq *OLD_LTSCALE* (getvar "LTSCALE"))
	 (setq *OLD_PSLTSCALE* (getvar "PSLTSCALE"))
	 (setvar "LTSCALE" 1)
	 (setvar "PSLTSCALE" 1)
	)
	((and
	 (= (car sysvarname) "TILEMODE")
	 (= (getvar "TILEMODE") 1)
	 (cadr sysvarname)
	 *OLD_LTSCALE*
	 *OLD_PSLTSCALE*
	 )  ;_МОДЕЛЬ
	 (setvar "LTSCALE" *OLD_LTSCALE*)
	 (setvar "PSLTSCALE" *OLD_PSLTSCALE*)
	 (setq *OLD_LTSCALE* nil)
	 (setq *OLD_PSLTSCALE* nil)
	 )
	(t nil)))

[Krieger]

>VVA
Супер! Теперь вообще никаких проблем с этими переменными.

[pyatifan]

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

[Krieger]

Сообщение от pyatifan Мне думалось,что celtscale как и dimscale устанавливают новый масштаб для новых обьектов,а ltscale трогал тока из окна свойств.Можно пару слов про код, что он делает...

По-подробнее, в каком окне свойств? В свойствах как раз меняется celtscale. ltscale - глобальный масштаб для всех и вся. Т.е. если мы работаем в масштабе 1:1, а выдавать в конечном итоге надо, например в 20-м, то для удобочтения в пространстве модели я выставляю ltscale в 20. Когда перехожу в лист ставлю ltscale (при PSLTSCALE=1) в еденицу. Ну а код от VVA делает это автоматом.

[pyatifan]

Извините за тупость...этот код в автозагрузку надо зафигарить?

[Krieger]

Сообщение от pyatifan Извините за тупость...этот код в автозагрузку надо зафигарить?

ага