Ошибка неверный тип аргумента numberp nil

There are a number of issues with your code:

1. If the ssget expression does not obtain a selection (i.e. if there are no objects present in the drawing which fulfil the selection criteria), then ssget will return nil, and consequently the sslength function will error when supplied with a null argument.

   To avoid this, test the value returned by the ssget function using an if statement before proceeding with the remaining code:

   (if (setq ss1 (ssget "_X" '((0 . "MTEXT") (-4 . "<OR") (90 . 1) (90 . 3) (-4 . "OR>"))))
       (progn
           (setq sscount (sslength ss1))
           ...
       )
   )
   

2. You reference the variable counter in your ssname function, which is not defined in the scope of the c:bgm function:

   (ssname ss1 counter)
   

   This should instead be sscount as defined earlier in your code.

3. You seem to be confused between entity names and vla-objects:

   • ssname returns an entity name, however, you are passing this to the vlax-vla-object->ename function, which converts a vla-object to an entity name.

   • You are using the vla-put-backgroundfill function to change the backgroundfill property of a vla-object, however, you are passing this function the variable defined by the value returned by entget, which is a DXF data list, not a vla-object.

   • You are using entmod to modify the DXF data assigned to the variable mtxtobj — this is not required when changing ActiveX properties of a vla-object.

Taking the above into consideration, I would suggest the following solution:

(defun c:bgm ( / cnt obj sel )
    (if (setq sel (ssget "_X" '((0 . "MTEXT") (-4 . "<OR") (90 . 1) (90 . 3) (-4 . "OR>"))))
        (repeat (setq cnt (sslength sel))
            (setq cnt (1- cnt)
                  obj (vlax-ename->vla-object (ssname sel cnt))
            )
            (vla-put-backgroundfill obj :vlax-false)
        )
    )
    (princ)
)
(vl-load-com) (princ)

answered Jun 24, 2018 at 10:11

The error is probably due to:

(ssname ss1 counter)

where counter is nil.
You should use sscount instead. You also have to decrement the sscount value to iterate through the selection set.

(defun c:bgm (/ ss1 sscount)
  (vl-load-com)
  (if (setq ss1 (ssget "X" '((0 . "MTEXT") (-4 . "<OR") (90 . 1) (90 . 3) (-4 . "OR>"))))
    (repeat (setq sscount (sslength ss1))
      (setq sscount (1- sscount)
        mtxtobj (vlax-vla-object->ename (ssname ss1 sscount))
      )
      (vla-put-backgroundfill mtxtobj :vlax-false)
    )
  )
)

answered Jun 23, 2018 at 17:41

• 
• Aspirine
• Восстановленный участник

• На форуме с 20 марта 2008г.
• Сообщений: 13
• Спасибо: 0

Тема: Нужна помощь с AutoLISP

Здравствуйте!
Задали написать программу на автолиспе чтобы запрашивала у пользователя размеры того что будет строить. Я не знаю каким образом это осоуществить. вроде с функциями типа commnad и setq разобрался, а как спросить пользователя у размерах, и каким образом недопкстить задание им слишком больших или слишком малых размеров?
Зарание спасибо.

• Н.Н.Полещук
• Восстановленный участник

• На форуме с 19 марта 2004г.
• Сообщений: 358
• Спасибо: 0

Re: Нужна помощь с AutoLISP

> Aspirine
См. функции getreal, getint, initget, getpoint

• 
• Aspirine
• Восстановленный участник

• На форуме с 20 марта 2008г.
• Сообщений: 13
• Спасибо: 0

Re: Нужна помощь с AutoLISP

Спасибо. А не подскажите какую-нибудь литературу в которой описаны эти функции?

• 
• Aspirine
• Восстановленный участник

• На форуме с 20 марта 2008г.
• Сообщений: 13
• Спасибо: 0

Re: Нужна помощь с AutoLISP

(command "_cylinder" "0,0,0" "3" "6")
(setq c1 (ssget "l"))
(command "_cylinder" "0,0,0" "1.25" "8")
(setq c2 (ssget "l"))
(command "_cone" "0,0,8" "1.25" "радиус" "0.5" "0.2")
(setq k1 (ssget "l"))
(command "_zoom" "гр" "")
(command "_.union" c2 k1 "")
;(setq c1 (entlast))

• 
• Александр Ривилис
• Активный участник

• Откуда: Украина / Киев
• На форуме с 15 апреля 2005г.
• Сообщений: 8,661
• Спасибо: 158

Re: Нужна помощь с AutoLISP

• 
• Aspirine
• Восстановленный участник

• На форуме с 20 марта 2008г.
• Сообщений: 13
• Спасибо: 0

Re: Нужна помощь с AutoLISP

(setq hd 10)
  (setq parametr1 (getreal (strcat "nВведите высоту детали <" (rtos hd) ">: ")))
  (setq hd (if parametr1 parametr1 hd))
(setq rc1 3)
  (setq parametr2 (getreal (strcat "nВведите радиус большого цилиндра <" (rtos rb) ">: ")))
  (setq rc1 (if parametr2 parametr2 rc1))
(setq rb1 6)
  (setq parametr3 (getreal (strcat "nВведите высоту большого цилиндра <" (rtos rs) ">: ")))
     (while (> parametr3 hd)
     (setq parametr3 (getreal (strcat "nВведите высоту большого цилиндра <" (rtos rs) ">: ")))
     )
  (setq rb1 (if parametr3 parametr3 rb1))

• 
• Victor
• Восстановленный участник

• На форуме с 26 марта 2007г.
• Сообщений: 270
• Спасибо: 0

Re: Нужна помощь с AutoLISP

Что такое rb?

• 
• Atol
• Активный участник

• На форуме с 21 февраля 2006г.
• Сообщений: 1,365
• Спасибо: 3

Re: Нужна помощь с AutoLISP

В редакторе Автолиспа есть возможность проставлять метки остановки (наставь до и после функций) и просмотра текущего значения переменных (а то и целых выражений) для контроля и поиска ошибок

• 
• Aspirine
• Восстановленный участник

• На форуме с 20 марта 2008г.
• Сообщений: 13
• Спасибо: 0

Re: Нужна помощь с AutoLISP

rb- это переменная которая должна по идеи соответствовать высоте большого цилиндра.

• 
• Aspirine
• Восстановленный участник

• На форуме с 20 марта 2008г.
• Сообщений: 13
• Спасибо: 0

Re: Нужна помощь с AutoLISP

Увидел… Да, это не внимательность и моя лень, копировал и набивал разное.
Исправил.
Но это не решило проблему…

• 
• Aspirine
• Восстановленный участник

• На форуме с 20 марта 2008г.
• Сообщений: 13
• Спасибо: 0

Re: Нужна помощь с AutoLISP

(command "_cylinder" "0,0,S3" rc1 rb1 "")

• 
• Александр Ривилис
• Активный участник

• Откуда: Украина / Киев
• На форуме с 15 апреля 2005г.
• Сообщений: 8,661
• Спасибо: 158

Re: Нужна помощь с AutoLISP

(command "_cylinder" (list 0 0 S3) rc1 rb1 "")

• 
• Aspirine
• Восстановленный участник

• На форуме с 20 марта 2008г.
• Сообщений: 13
• Спасибо: 0

Re: Нужна помощь с AutoLISP

помогло, спасибо. А команда List- она создаёт список, да?

• 
• Александр Ривилис
• Активный участник

• Откуда: Украина / Киев
• На форуме с 15 апреля 2005г.
• Сообщений: 8,661
• Спасибо: 158

Re: Нужна помощь с AutoLISP

> Александр Ривилис
Функция (а не команда) (list …) создает список. Учи мат.часть (т.е. язык программирования AutoLisp/VisualLisp).