Dim object As AcadSolid1 h: }; K/ P! t9 y* E. B
" S/ H$ H q3 C( W; [
ThisDrawing.SetVariable "fillmode", 1$ o# f( p; }( Q8 D. d: a
/ S& O7 ?$ f, A8 g% o$ N( W, tSet object = ThisDrawing.ModelSpace.AddSolid(e点, f点, h点, g点)
2 {8 u' Y T& y+ e: `9 e( F. Z
object.color = 6% G* h9 n a q$ S4 d. c% ]- k
3 x4 L6 c( ?* U2 i2 u- D
6 f& @# l5 j1 ~" i t/ A* A9 e: w( D2 e3 ]
0 f' X( P8 q, z9 s8 t4 i
" G1 @& o7 b; N$ p5 f) E
点已经定义好了。。只要这4个点是二维的。。就可以填充。。。但是如果点定义为三维的就不行。。
2 r% [; M5 |) W5 x1 @/ G# S | ^7 ~) R& X7 F* p( c
, d: \" _! f* H; A$ {( j) P0 Q8 A0 V8 T9 V8 S/ C
高手指点！ |
发表于 2009-2-4 23:34