Topic: Layer filter delete with filter

[MP]

Off topic, but ... if you invoke the vla-GetExtensionDictionary method on an entity / object that does not have an extension dictionary said method will add one -- undesirable behavior in most situations. In these situtations it is better to test and conditionally retrieve the extension dictionary --

i.e.

Code: [Select]

(if (eq :vlax-true (vla-get-HasExtensionDictionary object))
    (progn
        (setq xdict (vla-GetExtensionDictionary object))
        ...
    )
)
We now return you to your regularly scheduled discussion ...

[Kerry]

and not trying to tag team you ..

Using something like this is a little safer than just using (vla-item obj index)

Code: [Select]

;;;------------------------------------------------------------------
;;;------------------------------------------------------------------
;;;
(defun k:AssertItem (collection item / returnvalue)
  (if
    (not (vl-catch-all-error-p
           (setq returnvalue (vl-catch-all-apply 'vla-item (list collection item)))
         )
    )
     returnvalue
  )
)

[ronjonp]

Thank guys...my brain hurts now. 

[Kerry]

Relatively simple < the routine, not "Hurting your head" >

Just replace the call to vla-item with k:AssertItem using the same parameters.
The routine will return either the Object related to 'item' or NIL.

.. bypassing the possible dummy-spit in the instance where the 'item' translation errors out.


added:
This could , of course, be written in line each time ... but I type slowly, so ...