[求助] 怎样创建对象数组

caoyin

已知若干图元对象，怎样将图元创建为对象数组

原地踏步

不太明白楼主意思。

按我的理解，表就是数组。如坐标点就是一维数组，又如：(setq A (list '(a11 a12 a13) '(a21 a22 a23) '(a31 a32 a33)))就是一个二维数组，aij的值为(nth j (nth i A))。

carrot1983

所说的应该是安全数组吧！

或者什么叫对象数组？有什么用处！

carrot1983

敢问是这个吗？

3. (setq curves1 (vla-AddArc mSpace centerPnt radius startAngle endAngle))
4. (setq curves2 (vla-AddLine mSpace startPnt endPnt))
5. (setq curves (vlax-make-safearray vlax-vbObject '(0 . 1)))
6. (vlax-safearray-fill curves (list curves1 curves2))

(setq curves1 (vla-AddArc mSpace centerPnt radius startAngle endAngle)) (setq curves2 (vla-AddLine mSpace startPnt endPnt)) (setq curves (vlax-make-safearray vlax-vbObject '(0 . 1))) (vlax-safearray-fill curves (list curves1 curves2))

carrot1983

记得上次，楼主问过vla-get-Perimeter
这个看看能否帮到你！

2. (defun Example_Perimeter ()
3. ;;;这个范例使用一个弧以及一条线来建立一个面域
4. ;;;接着返回面域的周长
5.   (VL-LOAD-COM)
6.   (setq AcadObject   (vlax-get-acad-object)
7. AcadDocument (vla-get-ActiveDocument AcadObject)
8. mSpace      (vla-get-ModelSpace AcadDocument)
9.   )
10.   (setq centerpnt (vlax-make-safearray vlax-vbDouble '(0 . 2)))
11.   (vlax-safearray-fill centerpnt '(5 3 0))
12.   (setq radius 2)
13.   (setq startAngle 0)
14.   (setq endAngle 3.141592)
15.   (setq
16.     curves1 (vla-AddArc mSpace centerPnt radius startAngle endAngle)
17.   )
18. ;;;建立弧与线
19.   (setq startPnt (vla-get-StartPoint curves1))
20.   (setq endPnt (vla-get-EndPoint curves1))
21.   (setq curves2 (vla-AddLine mSpace startPnt endPnt))
22.   (setq curves (vlax-make-safearray vlax-vbObject '(0 . 1)))
23.   (vlax-safearray-fill curves (list curves1 curves2))
24. ;;;建立面域
25.   (setq regionObj (vla-AddRegion mSpace curves))
26.   (vla-ZoomExtents AcadObject)
27. ;;;找出面域的周长
28.   (setq Perimeter (vla-get-Perimeter
29.       (vlax-safearray-get-element
30.         (vlax-variant-value regionObj)
31.         0
32.       )
33.     )
34.   )
35.   (princ (STRCAT "面域的周长是: "
36.    (RTOS Perimeter)
37.    "   Perimeter 范例"
38.   )
39.   )
40.   (princ)
41. )

(defun Example_Perimeter () ;;;这个范例使用一个弧以及一条线来建立一个面域 ;;;接着返回面域的周长   (VL-LOAD-COM)   (setq AcadObject   (vlax-get-acad-object) AcadDocument (vla-get-ActiveDocument AcadObject) mSpace      (vla-get-ModelSpace AcadDocument)   )   (setq centerpnt (vlax-make-safearray vlax-vbDouble '(0 . 2)))   (vlax-safearray-fill centerpnt '(5 3 0))   (setq radius 2)   (setq startAngle 0)   (setq endAngle 3.141592)   (setq     curves1 (vla-AddArc mSpace centerPnt radius startAngle endAngle)   ) ;;;建立弧与线   (setq startPnt (vla-get-StartPoint curves1))   (setq endPnt (vla-get-EndPoint curves1))   (setq curves2 (vla-AddLine mSpace startPnt endPnt))   (setq curves (vlax-make-safearray vlax-vbObject '(0 . 1)))   (vlax-safearray-fill curves (list curves1 curves2)) ;;;建立面域   (setq regionObj (vla-AddRegion mSpace curves))   (vla-ZoomExtents AcadObject) ;;;找出面域的周长   (setq Perimeter (vla-get-Perimeter       (vlax-safearray-get-element         (vlax-variant-value regionObj)         0       )     )   )   (princ (STRCAT "面域的周长是: "    (RTOS Perimeter)    "   Perimeter 范例"   )   )   (princ) )

caoyin

我是想来做填充图案的，在XDCAD也得到了解决。谢谢大家

楼上的很热心，感激！！学习！