Направете обект Hatch в AutoCAD с помощта на COM

Работя с чертежи на AutoCAD, използвайки език Python и библиотека comtypes. Това е фрагмент от моя код:

from comtypes.client import *
from comtypes.automation import *

def connect_acad(self):
    self.acad = GetActiveObject("AutoCAD.Application")
    self.dwg = self.acad.ActiveDocument
    self.mspace = self.dwg.ModelSpace

def mark_point(self, xy, num, lay):

    def point(*args):
        lst = [0.]*3
        if len(args) < 3:
            lst[0:2] = [float(x) for x in args[0:2]]
        else:
            lst = [float(x) for x in args[0:3]]
        return VARIANT(array("d",lst))

    def variant(data):
        return VARIANT(VT_VARIANT, data)

    def vararr(*data):
        if (  len(data) == 1 and 
              isinstance(data, collections.Iterable) ):
            data = data[0]
        return map(variant, data)

    p1 = point(xy[0], xy[1])
    ent = self.mspace.AddCircle(p1, 0.3)
    htch = self.mspace.AddHatch(0, 'SOLID', False)
    htch.AppendOuterLoop(vararr([ent,]))
    htch.Evaluate()

Ако някой се интересува, пълният код тук: https://github.com/nsedenkov/py_acadcoord/blob/master/acadcoord.py

И всичко работи правилно, но командата htch.AppendOuterLoop предизвиква изключение "ComTypeError". Вероятно някой знае правилния начин за създаване на вариантен масив от графични обекти на AutoCAD за метода AppendOuterLoop? Благодаря ти!