Topic: LayoutMerge--"bad argument type: lentityp nil"

[highflyingbird]

LayoutMerge(Express tools) can't run.

It prompt "bad argument type: lentityp nil",what's the problem? Someone has the same question.

[Kerry]

How about loading the LSP into the VLIDE, set for 'break on error', load it into ACAD and see where the error is when it breaks .. ?

[highflyingbird]

-->layoutmerge.lsp--> tblname.lsp
  ......
  (repeat (length lst)
    (setq na (acet-dict-ename tblname (nth n lst))
            e1 (entget na)
    );setq
  ......

I caught the error: "na" is nil,so "(entget na)" can't run.
But I can't find the function "acet-dict-ename" ,how can I find that lisp file?
 

[Kerry]

Mine looks like this ...

Code: [Select]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun acet-groups-to-xdata ( prefix / lst na e1 lst2 a na2 e2 xd j b name n )
 
 (setq lst (acet-dict-name-list "acad_group"))
 (setq n 0)
 (repeat (length lst)
 (setq    a (nth n lst)
         na (acet-dict-ename "acad_group" a)
         e1 (entget na)
          a (acet-str-replace "*" "" a)
          name (strcat prefix a)
          b (list .........
... which version are you using ?

The acet-dict-ename is compiled in one of the fas files in AC2008

[highflyingbird]

It's R2006.The acet-dict-ename is compiled ?
Thanks Kerry Brown.

[hmspe]

My guess is that the function is:

(defun acet-dict-ename (dictname dictentry / entry ename)
  (setq ename NIL)
  (if (setq entry (dictsearch (namedobjdict) dictname))
    (if   (setq entry (cdr (assoc -1 entry)))
      (if (setq entry (dictsearch entry dictentry))
   (setq ename (cdr (assoc -1 entry)))
      )
    )
  )
  ename
)

Martin

[LUCAS]

(defun ACET-DICT-FILTER-MATCH (TBLNAME FLT / N LST NA E1 LST2)
  (ACET-AUTOLOAD
    '("acetflt.lsp" "(bns_filter_match tblname flt)")
  )
  (setq LST (ACET-DICT-NAME-LIST TBLNAME))
  (setq N 0)
  (setq   AAAA (vla-get-layouts
          (vla-get-activedocument (vlax-get-acad-object))
        )
  )
  (repeat (length LST)
    (setq NA            ;(acet-dict-ename tblname (nth n lst))
        (vlax-vla-object->ename (vla-item AAAA (nth N LST)));LUCAS
     E1 (entget NA)
    )               ;setq
    (if   (BNS_FILTER_MATCH E1 FLT)
      (setq E1    (cons (cons 2 (nth N LST)) E1)
       LST2 (append LST2 (list E1))
      )               ;setq
    )               ;if
    (setq N (+ N 1))         ;setq
  )               ;repeat
  LST2
)               ;defun acet-dict-filter-match

[highflyingbird]

It's OK!

Thanks hmspe and Lucas!

Is it a bug for the tblname.lsp?

[LUCAS]

(setq ENTRY (dictsearch (namedobjdict) "ACAD_LAYOUT"))
(setq ENTRY (cdr (assoc -1 ENTRY)))
;;(dictsearch ENTRY "MODEL");;THAT OK!
(dictsearch ENTRY "配置2");;DICTSEARCH(NOT SUPPORT CHINESE)