[apawa]

Не судите строго, тока второй день занимаюсь LISP.
писал простую программу:

(defun C:BTH ()

(setq old_cmdecho (getvar "CMDECHO")
old_blipmode (getvar "BLIPMODE")
)
(setvar "CMDECHO" 0)
(setvar "BLIPMODE" 0)

(setq pt1 (getpoint))
(setq pt2 (list (car pt1) ( + (car (cdr pt1)) 200)))

(command ".текст" "В" "Ц" pt2 0 "ВТН" )

(command ".масштаб" "Т" "Е" pt2 100 )

(setvar "CMDECHO" old_cmdecho)
(setvar "BLIPMODE" old_blipmode)
(prin1)

)

Но при загрузке в автокад(2010) выдапет: "ошибка: неверный тип аргумента: stringp nil"

попробовал удалить все:

(defun C:BTH ()

(setq pt1 (getpoint))
(setq pt2 (list (car pt1) ( + (car (cdr pt1)) 200)))

)

И таже проблема.Хотя вчера работала нормально.

[Alan]

Сообщение от apawa (command ".текст" "В" "Ц" pt2 0 "ВТН" )

Эта строка по разному работает в зависимости от текущего текстового стиля.
Тебе в эту тему надо, там многое объяснено.
http://forum.dwg.ru/showthread.php?t=22894

[apawa]

Alan,
так в следующем примере я ее удалил:

(defun C:BTH ()

(setq pt1 (getpoint))
(setq pt2 (list (car pt1) ( + (car (cdr pt1)) 200)))

)

и все равно выдает: "ошибка: неверный тип аргумента: stringp nil"

[Alan]

Автокад 2010 (рус)
Команда: (setq pt1 (getpoint"\n Введите точку --->")) - привыкай сразу ставить вопросы
(1599.15 1054.31 0.0)
Команда: (setq pt2 (list (car pt1) ( + (car (cdr pt1)) 200))) - желательно добавить координату Z - (setq pt2 (list (car pt1) ( + (car (cdr pt1)) 200) 0.0))
(1599.15 1254.31)

Это я загрузил твой краткий текст и запустил.
Команда: BTH
(1467.61 1437.14)

Учись сразу в отладчике Visual Lisp работать
Команда: _vlide - появиться отладчик с многими функциями

[apawa]

Alan, спасибо за подсказки,все исправил,кстати пишу сразу в отладчике Visual Lisp)))
но проблема походу в другом:
написал просто код:

( defun c:ups () )

------------------------

(load ups)
; ошибка: неверный тип аргумента: stringp nil - опять та же ошибка!!!

---------------------------
Автокад 2010 (рус).




блин надо было писать Команда: (load "ups")
но он все равно выдает: ; ошибка: неверный синтаксис DEFUN: (C:UPS nil)

[Alan]

Напиши ОДИН оператор

Код:

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

(defun c:ups (/)
  (prompt "Hello World")
(princ))

блин надо было писать Команда: (load "ups")

Загружай прямо из редактора, там кнопочка есть

[apawa]

Спасибо большое))тоже уже разобрался,а то я с утра парюсь,а забыл кавычки)))