[SAMik]

Простите за ламерский вопрос...
Я только начал разбиратся...
С литературой что то туго в интернете...
Поэтому кто может подскажите почему первый вариант работает а второй нет.
Собственно нужно тока многострочный текст делать и всё... а по параметрам которые в книгах запустить не могу...
Кад 2006й если что.

Код:

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

1. (command "_text" (list(+ (* 210 nst) 28) (+ (* ns 297) 232)) 4 0 st )

Код:

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

2. (setq cord (list(+ (* 210 nst) 28) (+ (* ns 297) 232) (+ (* 210 nst) 190) (+ (* 297 nst) 90)))
(command "_.mtext" (cord  3 "sdasd" ))
; ошибка неверная функция: (658 232 820 981)

(setq cord (list(+ (* 210 nst) 28) (+ (* ns 297) 232) (+ (* 210 nst) 190)))
(command "_.mtext" (cord  3 "sdasd" ))
; Ошибка: Функция отменена

[Дима_]

по тому что ты пытаешся запустить функцию (658 232 820 981) которй у тебя нет, короче то что у тебя в первом случае работает - тоже бред и "везение" командного метода (там что-то типа одна ошибка другую компенсирует) для начала получи в командной строке что тебе надо в мтексте нарисовать - если это cord то и вставляей ее как переменную - а не как имя функции (без скобок то есть) но в любом случае, он (cord) не списком должен быть (как у тебя), а строкой.

[Буджум]

cord - это координаты mtextа, а нарисовать хотим "sdasd" (насколько я понял)
(setq cord1 (list (+ (* 210 nst) 28) (+ (* ns 297) 232));первая точка
cord2 (list (+ (* 210 nst) 190) (+ (* 297 nst) 90));вторая точка
)
(command "_.mtext" cord1 cord2 "sdasd" "");рисуем

[SAMik]

Буджум: ошибка: неверная функция: (658 232)
даже просто на скопированном твоём коде

Дима_: а можно хоть не большой пример, а то с программированием хорошо знаком, а тут в LISPе что то совсем запутался со скобками и параметрами...

[ытя]

Сообщение от Буджум (command "_.mtext" cord1 cord2 "sdasd" "");рисуем

надо:
(command "_.-mtext" cord1 cord2 "sdasd" "")

[SAMik]

ытя: не понял к чему этот минус, но всё равно не рисует...(((

Код:

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

(820 981) 
nil

[ытя]

А если поискать в районе рядом с (820 981)?
Высота текста какая (запрос в комстроке _textsize<enter>) ?

[Буджум]

Минус для того чтобы диалоговое окно mtext не вылезало. Все и без него работать должно

Команда: (setq nst 1)
1

Команда: (setq ns 1)
1

Команда: (setq cord1 (list (+ (* 210 nst) 28) (+ (* ns 297) 232)))
(238 529)

Команда: (setq cord2 (list (+ (* 210 nst) 190) (+ (* 297 nst) 90)))
(400 387)

Команда: (command "_.mtext" cord1 cord2 "sdasd" "")
_.mtext Текущий текстовый стиль: "standart". Высота текста: 3.5000
Аннотативный: Нет
Первый угол:
Противоположный угол или [Высота/вЫравнивание/Межстрочный
интервал/Поворот/Стиль/Ширина/Колонки]:
МТекст: sdasd
МТекст:

Команда: nil

откуда функция?
проверь как точки считаешь

И выложи всё, что в комстроке пишет после command"а

[SAMik]

ытя: Огромное спасибо разобрался)

И ещё маленький вопрос если можно: как переносить строку в mtext - Enter.
Желательно на коротком примере, я так лучше понимаю)

Буджум: Спасибо, уже вроде заработало)

[Дима_]

Сообщение от SAMik Дима_: а можно хоть не большой пример, а то с программированием хорошо знаком, а тут в LISPе что то совсем запутался со скобками и параметрами...

Код:

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

(command "_mtext" '(0 0 0) '(100 100 0) "Привет медвед" "")

если координаты надо вычислить то из переменных (например вместо '(0 0) '(100 100) нужна координата x y, x+100 y+100) то:

Код:

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

(setq x 500 y 600)
(command "_mtext" (list x y 0) (list (+ x 100) (+ y 100) 0) "Привет медвед" "")

[SAMik]

Дима_: Спасиб, теперь полностью всё понял)

[ытя]

Сообщение от SAMik как переносить строку в mtext

(command "_mtext" '(0 0 0) '(100 100 0) "Привет медвед\n2-я строка\n3-я строка" "")
см. справку по "format codes"

[SAMik]

ытя спасиб ещё раз) по справке тяжело... там не очень понятно плюс англиским не владею... да и искал по mtext а по нему почемуто в справке пусто...