[求助]：创建对象数组问题

caoyin

;;请高手帮忙!!

;;我想用vla-AddHatch方法创建填充图案
;;----------------------------------------------------
;;对于单个封闭曲线没有问题
;;参数obj是一个封闭曲线
(defun test1 (obj / ms h va)
  (setq obj (vlax-ename->vla-object obj)
        ms (vla-get-modelspace
             (vla-get-activedocument (vlax-get-acad-object))
           )
        h  (vla-AddHatch ms 0 "ANSI31" :vlax-true)
        va (vlax-make-safearray vlax-vbObject '(0 . 0))
  )
  (vlax-safearray-put-element va 0 obj)
  (vla-AppendOuterLoop h va)
)
;;----------------------------------------------------
;;参数obj1 obj2 obj3 obj4是四条首尾依次相连的直线(构成封闭区域)
(defun test2 (obj1 obj2 obj3 obj4 / ms h va)
  (setq obj1 (vlax-ename->vla-object obj1)
        obj2 (vlax-ename->vla-object obj2)
        obj3 (vlax-ename->vla-object obj3)
        obj4 (vlax-ename->vla-object obj4)
        ms (vla-get-modelspace
             (vla-get-activedocument (vlax-get-acad-object))
           )
        h  (vla-AddHatch ms 0 "ANSI31" :vlax-true)
        ;;问题？？
        ;;怎样将四个对象创建为对象数组，而实现填充
        ;;va (vlax-make-safearray vlax-vbObject '(0 . 0))
  )
  ;;(vlax-safearray-put-element va 0 obj)
  ;;(vla-AppendOuterLoop h va)
)

xyz518mm

你是要将四条线为成的区域做填剖动作吗
如果是就要处理四条线所为成的范围做处理

oyxx_1023

是(vlax-make-safearray vlax-vbObject 这个函数啊，没错的。

caoyin

能请二位帮助写出来吗，谢谢！！

eachy

最初由 caoyin 发布
[B]能请二位帮助写出来吗，谢谢！！ [/B]

[iframe h=600 w=100%]http://www.hispacad.com/foro/viewtopic.php?p=57474&sid=fda97260448b21b567c69f2831655f0a[/iframe]

carrot1983

我猜 ，我猜，我猜猜猜

2. 
   
3. (setq object (vlax-make-safearray vlax-vbObject '(0 . 1)))
   
4.   (vlax-safearray-fill object (list obj1 obj2 obj3 obj4))
   

<br /> (setq object (vlax-make-safearray vlax-vbObject '(0 . 1)))<br />   (vlax-safearray-fill object (list obj1 obj2 obj3 obj4))<br />

caoyin

各位热心帮助！小弟十分感谢！


再请教：
AutoCAD 2006及以上版本

1.支持在填充图案创建边界，能否用LISP实现（要考虑边界包含SPL线）

2.支持计算填充图案面积周长。面积可以用vla-get-Area实现，周长怎么计算？

3.支持TRIM对填充图案 的修剪。LISP程序能够完成吗

GTJ116600

caoyin的ADDHATCH