vla-AddHatch填充问题
本帖最后由 Gu_xl 于 2018-7-12 11:22 编辑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)
)
遇到 过类似问题，你解决 了吗？
页:
[1]