[Torino]

Код:

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

(defun startCommand (calling-reactor
		     startcommandInfo
		     /
		     thecommandstart
		    )
  (setq OldLayer (getvar "CLAYER"))
  (setq thecommandstart (nth 0 startcommandInfo))

  (cond
    ((wcmatch thecommandstart "DIM*")
     (setvar "clayer" "размеры")
    )
    ((wcmatch thecommandstart "*HATCH*")
     (setvar "clayer" "штриховка")
    )
  )
;;;  (if (wcmatch thecommandstart "DIM*")
;;;    (setvar "clayer" "размеры")
;;;  )


  (princ)
)

На строчке

Код:

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

((wcmatch thecommandstart "DIM*")
     (setvar "clayer" "размеры")

вываливается ошибка

Код:

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

; error: bad argument type: stringp nil

Однако в вышеприведенном коде (закоментированный фрагмент) все работало без ошибок.

[kos]

В сообщении об ошибке прописано, что текстовая строка - nil. Единственное место, где может появляться сей трабл - извлечение имени команды из списка параметров по nth. Посмотри (в отладчике) какой передается список параметров startCommandInfo и как из него извлекается имя команды.

Вдогонку: только что проверил у себя - все работает.

[Torino]

THECOMMANDSTART = "DIMLINEAR"

У меня было подозрение, что для функции wcmatch в качестве первого параметра можно передавать только string (в виде "ABCDEF").

Но тогда почему работал вариант
(if (wcmatch thecommandstart "DIM*")
(setvar "clayer" "размеры")
)

Не понимаю...

[Эдуард]

Ты делаешь переменную
thecommandstart в функции startCommand локальной
и надеешься что она будет видима в функции endCommand ?

Разберись с областью видимости.
(а wcmatch здесь ни при чем)

[Torino]

Идея как раз в "локальности" переменной thecommandstart.
Но не в этом дело.
Дело в том, что ошибка возникает в функции startCommand, хотя в watcher'e значение переменной thecommandstart (при запуске команды DIMALIGN) - DIMALIGN, но функция wcmatch, считает ее nil.

[Alaspher]

Попробуй добавить в cond отладочную строку, примерно так:

Код:

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

...
  (cond
    ((/= (type thecommandstart) 'str) (print thecommandstart))
    ((wcmatch thecommandstart "DIM*")
     (setvar "clayer" "размеры")
    )
    ((wcmatch thecommandstart "*HATCH*")
     (setvar "clayer" "штриховка")
    )
  )
...

посмотри, что будет происходить. В принципе, можно эту строку и после отладки оставить (на непредвиденный случай), только print убрать.

[Эдуард]

Идея как раз в "локальности" переменной thecommandstart.

Тогда не понял идеи. С глобальными работает как надо.

Дело в том, что ошибка возникает в функции startCommand

Тестировал - ошибка возникает в endcommand.
Поставь в редакторе "break on error" и убедись сам.

[Torino]

Все разобрался!
"break on error" помог.

В функциях endCommand и cancelCommand должны быть строки вида (wcmatch thecommandend "DIM*") и (wcmatch thecommandcancel "DIM*") соответственно.
А я скопировал из первой функции в последующие, забыв изменить названия переменных.

Спасибо!

[Alaspher]

Сообщение от Torino ... А я скопировал из первой функции в последующие, забыв изменить названия переменных.

По тому коду, который выложен в другой ветке, не видно ни потребности в раздельных функциях для штатного и нештатного завершения команды, ни в локальных переменных в них(ней). Разве что это только части более сложных функций...

В качестве рекомендации - не надо делать столь длинные и столь похожие имена аргументов и переменных - длинные переменные имеют смысл только если они глобальные, но и тогда - желательно, что-бы они различались больше, чем парой литер. А для глобальных имён (функции, глобальные переменные, словари...) стоит ввести свой префикс, например: Tor-startCommand...

[Torino]

>>Alaspher
В последнем варианте я объединил эти две функции.
А за рекомендацию - спасибо