Help on "; error : Automation Error. Property [NAME] not available"

[Clint]

I obtained the attached program from another.

In initial running of this program ONLY, I am experiencing the subject line error. (I run this in BricsCAD V25 & V26)

The program continues to run and produces the desired results.

 

IMPORTANT

In later runs, it does not appear. 

 

BACKGROUND

I attempted to debug in the BricsCAD BLADE programming environment (similar to AutoCAD's VLIDE) but have limited experience so far.

 

QUESTIONS

What is causing the following error?

How do I correct it? 

 

-------- COMMAND ERROR MESSAGE -------

Select groups to be exploded: 
Select entities: 
Entities in set: 9
Select entities: 

; error : Automation Error. Property [NAME] not available

------

Best regards,

Clint Hill

quickungroup.lsp

Edited 2 hours ago by Clint

[rlx]

untested

 

;;; (setq g-name (get_groupname (car (entsel))))
(defun GET_GROUPNAME ( ent / d gl o id lst)
  (setq d (vla-get-activedocument (vlax-get-acad-object)) gl (vla-get-groups d))
  (setq o (vlax-ename->vla-object ent) id (vla-get-ObjectID o))
  (vlax-for g gl (vlax-for e g (if (equal (vla-get-ObjectID e) id)
    (setq lst (cons (vla-get-Name g) lst)))(vlax-release-object e))(vlax-release-object g))
  (if (vl-consp lst)(car lst))
)

 

[Clint]

I appreciate and will insert your code and will try it, rlx!