field-p

Anyone have thoughts/comments they want to share?

; function to determine if a field
; has been applied to an object.
; Arguments:
; [object] - vla-object
; return: vla-object, IAcadObject or nil
; Notes:
; First stab at doing anything with fields
; unsure if this function will cover all
; instances that are possible.
(defun field-p (object / result)
(if
(and
(= :vlax-true (vla-get-hasextensiondictionary object))
(setq
result
(vl-catch-all-apply
(function
(lambda ()
(vla-item
(vla-getextensiondictionary object)
"Acad_field")))))
(not (vl-catch-all-error-p result)) )

(vla-item result 0)
)
)

 

Great, Luis. Glad you find it useful.

 

I may find it useful someday after I get some of our engineers off of R2000i
and up to R2005. In the mean time is gets saved in the hold folder with a
lot of others.

Murph