(defun draw-point-vla-by-list-property(input-list / point_obj)
  ;;;  создание примитива point средствами ActiveX
;| пример
  (draw-point-vla-by-list-property
    (list
      (cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
      (cons "Coordinates" (list 10 10 0))
      (cons "Color" 1)
      ))
|;
  (setq point_obj (vla-AddPoint
		     (cdr(assoc "spece" input-list))
		     (vlax-3D-point(cdr(assoc "Coordinates" input-list)))
		     ))
  (foreach x input-list
    (if (vlax-property-available-p point_obj (car x) T)
      (if (not(eq (car x)"Coordinates"))
	(eval(list(read(strcat "vla-put-" (car x)))point_obj(cdr x)))
	)
      )
    )
  point_obj
  )