vla-AddHatch填充问题

stoyer

A和B是同一个面域，B是通过实体编辑中的差集命令剪掉一部分后得到的。我自己做的个填充小程序TT能正确填充A，但填充B就出错，但是B又可以用(command "-bhatch" "s" en "" "") 填充,请问是怎么回事？下面是我做的小程序代码：
(defun vmkHacth(en / obj gMspace HatchObj)
  (setq obj (vlax-ename->vla-object en))
  (setq gMspace (vla-get-modelSpace (vla-get-activeDocument (vlax-get-acad-object))))
  (setq HatchObj (vla-AddHatch gMspace acHatchPatternTypePredefined "SOLID" :vlax-true))
  (vla-appendouterloop HatchObj
    (vlax-safearray-fill
      (vlax-make-safearray
        vlax-vbobject
         (cons 0 (1- (length (list obj))))
      )
      (list obj)
    )
  )
)
(defun c:tt()
  (setq en (car (entsel)))
  (vmkHacth en)
)

dcl1214

遇到 过类似问题，你解决 了吗？