Topic: Create empty safearray from scratch

[roy_043]

I have a simple function ListToArray that turns a one-dimensional list into a safearray. It checks for empty list because I haven't been able to create an empty safearray from scratch. Is this in anyway possible?

Code: [Select]

(defun ListToArray (typ lst)
  (if lst ; check for empty list
    (vlax-safearray-fill
      (vlax-make-safearray
        typ
        (cons 0 (1- (length lst)))
      )
      lst
    )
  )
)

[Lee Mac]

An empty variant:

Code: [Select]

(vlax-make-variant)

[roy_043]

Thanks for the quick answer. But an empty variant and an empty safearray are different "animals".

Code: [Select]

(type (ListToArray vlax-vbinteger '(1 2 3 4 5))) => SAFEARRAY
(type (vlax-make-variant)) => VARIANT

[fixo]

What about this way

Code: [Select]

(vl-load-com)
(setq lst nil)
(repeat 99 (setq lst (cons (vlax-make-variant) lst)))
(setq sfar (vlax-safearray-fill
     (vlax-make-safearray vlax-vbvariant
       '(0 . 98))
     lst)
      )

[Lee Mac]

An empty safearray has a negative upper bound, but positive lower bound. However, you will throw an exception if you try to create this.

[Atwist]

Hé Roy_043

Welcome on theswamp

Atwist

[roy_043]

Thank you Atwist. We meet again!