[Ingpro]

Всем привет!
Есть очень классный лисп VVA SETKA.
https://forum.dwg.ru/showthread.php?t=12569
Тема закрыта, поэтому вопрос в новой теме...
Пытаюсь закомментировать строки 8-10, чтобы сетка была без отступов по длине и ширине, как на виде 2:

Код:

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

 (defun C:Setka1 ( / Lx Ly Ox Oy ShagX ShagY pt LarmX LarmY nX nY OstX OstY)
  (setvar "CMDECHO" 0)
  (initget 7)
  (setq Lx (getdist "\nДлина участка: "))
  (initget 7)
  (setq Ly (getdist "\nШирина участка: "))
  (initget 7)
  ;(setq Ox (getdist "\nОтступ по длине участка: "))
 ; (initget 7)
 ; (setq Oy (getdist "\nОтступ по ширине участка: "))
  (setq ShagX (getdist "\nШаг арматуры по длине участка: "))
  (initget 7)
  (setq ShagY (getdist "\nШаг арматуры по ширине участка: "))
  (initget 1)
  (setq pt (getpoint "\nЛевый нижний угол"))
  (setq LarmX (- Lx Ox Ox))
  (setq LarmY (- Ly Oy Oy))
  (setq nX (fix (/ LarmX ShagX)))
  (setq nY (fix (/ LarmY ShagY)))
  (setq OstX (* 0.5 (- LarmX (* nX ShagX))))
  (setq OstY (* 0.5 (- LarmY (* nY ShagY))))
  (setq pt (mapcar '+ pt (list Ox Oy)))
  (command "_.LINE" "_none" (mapcar '+ pt (list 0 OstY)) "_none" (mapcar '+ pt (list Larmx OstY)) "")
  (command "_-ARRAY" (entlast) "" "_R" (1+ ny) 1 ShagY)
  (command "_.LINE" "_none" (mapcar '+ pt (list OstX 0)) "_none" (mapcar '+ pt (list OstX LarmY)) "")
  (command "_-ARRAY" (entlast) "" "_R" 1 (1+ nx) ShagX)
  (setvar "CMDECHO" 1)
  (princ)
  )

Но выдает ошибку:
ошибка: неверный тип аргумента: numberp: nil.
Как можно исправить! Спасибо...

[name02]

Строки 8-10 замени на это:

Код:

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

 
  (setq Ox 0)
  (setq Oy 0)

[Сергей812]

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

[Ingpro]

Сообщение от name02 Строки 8-10 замени на это:

name02, спасибо! Это работает!
Сергей812, спасибо за пояснение...