Dim object As AcadSolid2 |9 ^- |5 ?' A0 E" b, Y' ?- G
- W6 x K4 F. [2 SThisDrawing.SetVariable "fillmode", 1
# A9 C9 X& X* J- @6 e+ j/ K0 W, p( E7 S" [
Set object = ThisDrawing.ModelSpace.AddSolid(e点, f点, h点, g点)/ `5 b( U* X( g, `
. a% k. S( Y1 B5 A( c4 p& Jobject.color = 6 v8 ]' g3 J7 }9 }# Y' n$ I
$ T, r, w5 [4 O4 W5 U" G% C3 y& X3 w! l3 D# O
8 t- l3 N$ W& e3 Q& a7 N$ D7 J. v6 m! P; K! U
" X+ ~, N8 F! ]# a6 x点已经定义好了。。只要这4个点是二维的。。就可以填充。。。但是如果点定义为三维的就不行。。
! O/ ?4 d, o) U8 w! Q. I: d: A8 M
' Z" k% h4 {6 t9 S7 w
1 R/ @# ^! I8 v. R: y. E8 m高手指点！ |
发表于 2009-2-4 23:34