(setq centerpnt(vlax-make-safearray vlax-vbDouble'(0 . 2))) (vlax-safearray-fill centerpnt'(50 30 0)) 双精度浮点数。。。比如对点。。。 (setq outerLoop(vlax-make-safearray vlax-vbObject '(0 . 1))) (vlax-safearray-fill outerLoop ( list outerLoop1 outerLoop2)) 对象,比如region 不确定数组,举个例子。。。 (setq centerpnt (vlax-make-safearray vlax-vbdouble (cons 0 (- (length lst) 1)))) (vlax-safearray-fill centerpnt lst)
|