[ifa]

У меня возникла такая проблемка:

создаю объект (допустим Окружность) и имею в переменной newCircle этот самый объект.

а теперь мне надо создать массив типа Variant с этим объектом.

пытался через SafeArray и CreateTypedArray, но ничего не выходит.

Код:

[Выделить все]

 (setq newCircle (vla-AddCircle *ModelSpace* (i:Points '(10.0 10.0 0.0))
		    (vlax-make-variant 15 vlax-vbDouble)))
 ;;; (vla-CreateTypedArray *Utility*  mass vlax-vbvariant newEllipse)
 ;;;это не работает, пишет too few actual parameters
;;; хотя в хэлпе написано CreateTypedArray(VarArr, Type, Value1, ;;;[value2, value3, ...valueN]) 
;;; ну и соответственно сам объект - это *Utility*

;;;ну а с SafeArray чего только не перепробовал....
;;;пишет, что  lisp value has no coercion to VARIANT with this type

подскажите плиз

[Кулик Алексей aka kpblc]

Не так?

Код:

[Выделить все]

  (setq circle (vla-addcircle
                 (vla-get-modelspace
                   (vla-get-activedocument (vlax-get-acad-object))
                   ) ;_ end of vla-get-ModelSpace
                 (vlax-3d-point '(10. 10. 0.))
                 10.
                 ) ;_ end of vla-addcircle
        array  (vlax-make-variant
                 (vlax-safearray-fill
                   (vlax-make-safearray vlax-vbobject '(0 . 0))
                   (list circle)
                   ) ;_ end of vlax-safearray-fill
                 ) ;_ end of vlax-make-variant
        ) ;_ end of setq

[ifa]

Спасибо ограмное!