Dim object As AcadSolid
4 @( C: g/ Y$ b @; M+ P5 l8 }2 c6 C0 L
ThisDrawing.SetVariable "fillmode", 1
4 I/ h5 p$ O' r1 \9 j
( ?0 J8 q# d+ ]Set object = ThisDrawing.ModelSpace.AddSolid(e点, f点, h点, g点)
& p5 E/ Q/ T3 O( `1 R( C" c. z3 s) p- g% c2 G1 q4 \
object.color = 6
2 Y1 h4 ]% A H4 Q, M& t% J+ q, }$ X! L5 Y9 k
8 `+ E! R$ [' R1 _
; ~9 }) @8 ^7 F# |2 p5 ]
; m6 J7 I, d7 [6 k
- A' O5 D9 \7 R点已经定义好了。。只要这4个点是二维的。。就可以填充。。。但是如果点定义为三维的就不行。。4 r1 p5 `! ?. r; T# L! ^
* V$ f% X# j1 @1 i! O
5 o. n. W% F( O) M7 f8 r! w g( n) O4 _) ?5 w; q
高手指点！ |
发表于 2009-2-4 23:34