Dim object As AcadSolid# X! |6 E1 V: u8 P
$ e2 T7 |5 g/ V3 [+ |# G: Q! Y4 LThisDrawing.SetVariable "fillmode", 1
! O) Z* J. \4 t0 h$ K1 Z- [- z) p: D
2 l z v6 D9 a3 x$ sSet object = ThisDrawing.ModelSpace.AddSolid(e点, f点, h点, g点)
0 u C/ F1 l" l1 Q7 w5 m% s/ ]6 m
7 L) E8 }1 P9 {object.color = 6
3 x/ n) H$ _- Q9 u$ d$ D% f8 F' w! Z% N: u: t1 b
* p3 T2 i6 N# G" l8 ]4 _
, p; w8 Z6 O% r4 S* h0 k; G: e y- ]9 \% P% ?; @" V
+ a0 ~9 {- D* k2 r点已经定义好了。。只要这4个点是二维的。。就可以填充。。。但是如果点定义为三维的就不行。。
* [2 ~+ m% L1 t) [3 ^9 d" C) E. G2 P9 K# p# I4 T
3 \( S8 D* _- x7 p3 U1 N+ S
" |& t: T% N7 _
高手指点！ |
发表于 2009-2-4 23:34