[Maps]

Привет всем!

Вопрос собственно в сабж'е.
Например мне нужно чтобы переменная PSLTSCALE всегда для нового чертежа была равна 0. По умолчанию эта переменная равна 1.
Ну и еще надо несколько переменных поменять, а то запаривает.

Спасибо заранее!

[Profan]

В версиях LT нет Express Tools.

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

Сообщение от Ingener-trainer версия AutoCad 2007 LT - там вобше положено быть expres tools ?

нет.

[Andrey10205]

Где можно найти описание всех системных переменных?

[Хмурый]

Сообщение от Andrey10205 Где можно найти описание всех системных переменных?

F1

[trir]

Не а, всех - только здесь

[Хмурый]

Сообщение от trir Не а, всех - только здесь

Всех- нигде нет.

[Barmaley Bubusikin]

Сообщение от Кулик Алексей aka kpblc 1. Самый простой. Делается lisp-файл примерно такого вида:

вроде сделал все как написано, но появляется такое:
ошибка: Настройка переменной AutoCAD отвергнута: "GRIDUNIT" 1 (это первая переменная в моем списке)
Без разницы: в открытый чертеж загружаю или в автозагрузке, все равно ошибка.
Что я делаю не так?

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

В gridunit надо передавать список из 2 чисел (2D-точка).

[Barmaley Bubusikin]

Сообщение от Кулик Алексей aka kpblc В gridunit надо передавать список из 2 чисел (2D-точка).

Ага, и как тогда правильно записать строку (setvar "GRIDUNIT" 1)?

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

Код:

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

 (defun _create-sysvar3 (/ sysvar-list sysvar_name sysvar_value)
  (setq sysvar-list '(("psltscale" . 1) ("dimassoc" . 2) ("filedia" . 1) ("gridunit" 1. 1.)))
  (foreach sysvar_counter sysvar-list
    (if (getvar (car sysvar_counter))
      (vl-catch-all-apply (function (lambda () (setvar (car sysvar_counter) (cdr sysvar_value)))))
    ) ;_ end of if
  ) ;_ end of foreach
) ;_ end of defun

[Barmaley Bubusikin]

по аналогии только добавил строку в конце:

(_create-sysvar3)

и получил:
Команда: (LOAD "E:/Work/AutoCAD/LISP/create-sysvar3.lsp") ; ошибка: неверная функция: "gridunit"

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

Подправил код, забирай из #30

[Barmaley Bubusikin]

Сообщение от Кулик Алексей aka kpblc Подправил код, забирай из #30

Теперь такая ошибка:
Команда: (LOAD "E:/Work/AutoCAD/LISP/create-sysvar3_2.lsp") #<%catch-all-apply-error%>
Проверяю на acad 2019

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

Блин, исправляю:

Код:

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

 (defun _create-sysvar3 (/ sysvar-list sysvar_name sysvar_value)
  (setq sysvar-list '(("psltscale" . 1) ("dimassoc" . 2) ("filedia" . 1) ("gridunit" 1. 1.)))
  (foreach sysvar_counter sysvar-list
    (if (getvar (car sysvar_counter))
      (vl-catch-all-apply (function (lambda () (setvar (car sysvar_counter) (cdr sysvar_counter)))))
    ) ;_ end of if
  ) ;_ end of foreach
  (princ)
) ;_ end of defun

[Barmaley Bubusikin]

Сообщение от Barmaley Bubusikin как тогда правильно записать строку (setvar "GRIDUNIT" 1)?

(setvar "GRIDUNIT" '(0.5 0.5)) для таких как я