Ошибка no function definition nil

1. 2014-06-16, 04:50 PM

   
   

   #1

   

   
   Member
   

   

   ---

   I’m getting this message » ; error: no function definition: nil»
   

   I have not don list for a while just getting back into it. so I have this lisp that makes a layer from the selected element and changes the color, and moves the selected ement to that layer, This works fine except I get this error message, «would like to know what this means» and how to fix it.
   Thanks,

   Code:

    
   (defun C:LRl (/ ent elay ldata)  ; = Move To -New Layer [and make that Layer]
     (setvar "cmdecho" 0)
     (setq
       ent   (car
        (entsel
          "nSelect object to make -New Layer for and move to it: "
        )
      )
       elay  (cdr (assoc 8 (entget ent)))
      ldata    ; Layer data without non-transferable elements
      (vl-remove-if-not
        '(lambda (x) (member (car x) '(0 100 2 70 62 6)))
        (entget (tblobjname "layer" elay))
      )    ; vl-remove-if-not & ldata
     )
     (if
       (or
         (< (strlen elay) 5) ; not a long-enough Layer name to already end in -New with anything preceding
         (/= (strcase (substr elay (- (strlen elay) 3))) "-REMV")
        ; not already on a Layer like that
       )     ; and
        (progn
          (entmake
     (subst (cons 2 (strcat elay "-REMV")"") (assoc 2 ldata) ldata)
          )    ; create Layer
          ((command "_.chprop" ent "" "_layer" (strcat elay "-REMV")) ; move object to it
     (command "._layer" "_C" "8" "*-remv*" "")
          )
        )     ; progn
     )
   ("cmdecho" 1)    ; if
   (princ)
   )

   Last edited by rkmcswain; 2014-06-18 at 02:16 PM.

   Reason: added [CODE] tags

   ---

2. 2014-06-16, 05:11 PM

   
   

   #2

   Re: I’m getting this message » ; error: no function definition: nil»
   

   Try replacing

   Code:

    ((command "_.chprop" ent "" "_layer" (strcat elay "-REMV"))

   with

   Code:

    (setq elay (strcat elay "-REMV"))
   (command "_.chprop" ent "" "_layer" elay)

   or at least get rid of the extra open parentheses.

   ---

3. 2014-06-16, 05:16 PM

   
   

   #3

   Re: I’m getting this message » ; error: no function definition: nil»
   

   Also should be

   Code:

    (setvar "cmdecho" 1)

   While entering a system variable at the command line to change it works it will not in lisp since «cmdecho» is not a lisp command.

   ---

4. 2014-06-16, 06:44 PM

   
   

   #4

   

   
   Member
   

   

   ---

   Re: I’m getting this message » ; error: no function definition: nil»
   

   Thank you for your response, tried both suggestion and still get this error message:
   it works correctly just has this funny mesage at the end. and dont really understand why.

   PLOT

   Code:

   (defun C:LR (/ ent elay ldata)		; = Move To -New Layer [and make that Layer]
   (setvar "cmdecho" 0)  
   (setq
       ent	  (car
   	    (entsel
   	      "nSelect object to make -New Layer for and move to it: "
   	    )
   	  )
       elay  (cdr (assoc 8 (entget ent)))
       ldata				; Layer data without non-transferable elements
   	  (vl-remove-if-not
   	    '(lambda (x) (member (car x) '(0 100 2 70 62 6)))
   	    (entget (tblobjname "layer" elay))
   	  )				; vl-remove-if-not & ldata
     )
     (if
       (or
         (< (strlen elay) 5)
   			; not a long-enough Layer name to already end in -New with anything preceding
         (/= (strcase (substr elay (- (strlen elay) 3))) "-REMV")
   					; not already on a Layer like that
       )					; and
        (progn
          (entmake
   	 (subst (cons 2 (strcat elay "-REMV")) (assoc 2 ldata) ldata))	; create Layer
   ((command "_.chprop" ent "" "_layer" (strcat elay "-REMV") "" "" ""); move object to it
   (command "._layer" "_C" "8" "*-remv*" "")
   (setvar "cmdecho" 1)
          )
        )					; progn
     )					; if
   )

   Last edited by rkmcswain; 2014-06-18 at 02:17 PM.

   Reason: added [CODE] tags

   ---

5. 2014-06-16, 07:27 PM

   
   

   #5

   Re: I’m getting this message » ; error: no function definition: nil»
   

   Try clicking the ‘Go Advanced’ button, Then pick ‘Wrap [CODE] tags around selected text’ (# symbol from menu bars) and place the lisp code inside the [CODE] tags. That makes it easier for us to test your code.

   Pasting everything that was output to the command line in response to the command may help as well.

   ---

6. 2014-06-18, 02:24 PM

   
   

   #6

   Re: I’m getting this message » ; error: no function definition: nil»
   

   When you paste code into the edit window, please add [CODE] to the beginning and [/CODE] to the end of your code. That will cause the code to be printed in a special window/font so it’s easy to spot, copy, etc.

   Code:

   ;;; this is a sample

   ---

7. 2014-06-20, 01:40 PM

   
   

   #7

   

   
   Member
   

   

   ---

   Re: I’m getting this message » ; error: no function definition: nil»
   

   Code:

   (defun C:LR (/ ent elay ldata)		; = Move To -New Layer [and make that Layer]
     (setq
       ent	  (car
   	    (entsel "nSelect object to make -New Layer for and move to it: "))
       elay  (cdr (assoc 8 (entget ent)))
       ldata ; Layer data without non-transferable elements
   	  (vl-remove-if-not
   	    '(lambda (x) (member (car x) '(0 100 2 70 62 6)))
   	    (entget (tblobjname "layer" elay))
   	  ); vl-remove-if-not & ldata
     ):
     (if
       (or
         (< (strlen elay) 5)
   	; not a long-enough Layer name to already end in -New with anything preceding
         (/= (strcase (substr elay (- (strlen elay) 3))) "-REMV"); not already on a Layer like that
       ); and
        (progn
          (entmake
   	 (subst (cons 2 (strcat elay "-REMV")) (assoc 2 ldata) ldata))	; create Layer
          (command "._layer" "_C" "8" "*-remv*" "")
          (command "_.chprop" ent	 "" "_layer" (strcat elay "-REMV") "" "" ""); move object to it
   	 
          )
       )					; progn
     )					; if
   )					; defun

   ---

8. 2014-06-20, 01:59 PM

   
   

   #8

   Re: I’m getting this message » ; error: no function definition: nil»
   

   Try:

   Code:

   (defun C:LR (/ ent elay ldata)		; = Move To -New Layer [and make that Layer]
     (setq
       ent	  (car
   	    (entsel
   	      "nSelect object to make -New Layer for and move to it: "
   	    )
   	  )
       elay  (cdr (assoc 8 (entget ent)))
       ldata				; Layer data without non-transferable elements
   	  (vl-remove-if-not
   	    '(lambda (x) (member (car x) '(0 100 2 70 62 6)))
   	    (entget (tblobjname "layer" elay))
   	  )				; vl-remove-if-not & ldata
     )
     :
     (if
       (or
         (< (strlen elay) 5)
   					; not a long-enough Layer name to already end in -New with anything preceding
         (/= (strcase (substr elay (- (strlen elay) 3))) "-REMV")
   					; not already on a Layer like that
       )					; and
        (progn
          (entmake
   	 (subst (cons 2 (strcat elay "-REMV")) (assoc 2 ldata) ldata)
          )				; create Layer
          (command "_.chprop" ent	 "" "_layer" (strcat elay "-REMV") "" "._layer" "_C" "8" "*-remv*" ""); move object to it
        )					; progn
     )					; if
     (princ)
   )

   ---

9. 2014-06-20, 07:59 PM

   
   

   #9

   

   
   Member
   

   

   ---

   Re: I’m getting this message » ; error: no function definition: nil»
   

   Is there a way to have this promt for user input for the layer it creates?

   ---

10. 2014-06-23, 05:16 PM

    
    

    #10

    Re: I’m getting this message » ; error: no function definition: nil»
    

    Try:

    Code:

    (defun C:LR (/ str len ent elay ldata)		; = Move To -New Layer [and make that Layer]
      (setq
        str	  (getstring T "nAdd Suffix: ")
        len	  (strlen str)
        ent	  (car
    	    (entsel
    	      "nSelect object to make -New Layer for and move to it: "
    	    )
    	  )
        elay  (cdr (assoc 8 (entget ent)))
        ldata				; Layer data without non-transferable elements
    	  (vl-remove-if-not
    	    '(lambda (x) (member (car x) '(0 100 2 70 62 6)))
    	    (entget (tblobjname "layer" elay))
    	  )				; vl-remove-if-not & ldata
      )
      :
      (if
        (or
          (< (strlen elay) len)
    					; not a long-enough Layer name to already end in -New with anything preceding
          (/= (strcase (substr elay (- (strlen elay) len))) str)
    					; not already on a Layer like that
        )					; and
         (progn
           (entmake
    	 (subst (cons 2 (strcat elay str)) (assoc 2 ldata) ldata)
           )				; create Layer
           (command "_.chprop" ent	 "" "_layer" (strcat elay str) "" "._layer" "_C" "8" (strcat "*" str) ""); move object to it
         )					; progn
      )					; if
      (princ)
    )

    ---

Перейти к содержимому раздела

Форумы CADUser

Информационный портал для профессионалов в области САПР

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Дерево сообщений Активные темы Темы без ответов

(defun c:mlen2 (/ adoc selset layer_list init _kpblc-string-subst item sum_len)
  (vl-load-com)
  (setq  adoc  (vla-get-activedocument (vlax-get-acad-object))
  sum_len  0.0
  ) ;_ end of setq
  (vla-startundomark adoc)
  (if
    (setq ent (entsel "nУкажите примитив, с которого брать слой <Выход> : "))
     (progn
       (setq selset (ssget (list (assoc 8 (entget (car ent))))))
       (while (and selset
       (> (sslength selset) 0)
       ) ;_ end of and
   (setq item (ssname selset 0))
   (ssdel item selset)
   (setq item    (vlax-ename->vla-object item)
         sum_len (+ sum_len
        (if (vlax-property-available-p item 'length)
          (vla-get-length item)
          (cond
            ((= (strcase (vla-get-objectname item) t) "acdbarc")
             (vla-get-arclength item)
             )
            ((= (strcase (vla-get-objectname item) t) "acbcircle")
             (* pi 2.0 (vla-get-radius item))
             )
            (t 0.0)
            ) ;_ end of cond
          ) ;_ end of if
        ) ;_ end of +
         ) ;_ end of setq
   ) ;_ end of while
       (princ (rtos sum_len 2 4))
       ) ;_ end of progn
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

^C^C^P(if (not c:mlen2) (load "mlen2.lsp")) mlen2

^C^C^P(if (not c:mlen2) (load "mlen2.lsp")) (c:mlen2)

Сообщения 12

Тему читают: 1 гость