|
发表于 2011-5-16 14:23:57
|
显示全部楼层
来自: 中国辽宁铁岭
- Dim splineObj As AcadSpline' o$ Y* @- u b8 r2 \. S
- Dim startTan(0 To 2) As Double/ k& r& E0 }5 ^- Y3 g
- Dim endTan(0 To 2) As Double
+ U: ^ w6 w$ q5 o - Dim fitPoints(0 To 17) As Double
7 L5 e0 b. W8 l' ^ - Dim p2(0 To 3) As Double
" y# w. ?: a8 e- L* T - Dim PLINEOBJ As AcadLWPolyline
; v7 X5 d8 k. F3 d6 q - '声明一个对象数组,用于定义填充的外边界
/ ]5 a( X: r8 {8 C0 c - '边界必须是由同一平面内首尾相连的若干条线封闭构成. \* a+ m9 r! E8 W4 J, U( D" \1 S
- '本例的填充边界由一条二维多段线和一条二维样条曲线共两条线构成,所以数组元素数为2,最大下标为1
6 g% ?* `" K. T9 b; O9 p5 X - '根据需要,还可以声明若干个对象数组用于定义填充对象的内边界
0 X0 Q& `: k$ N: x - Dim Obj(1) As Object* i: g1 u" f/ G8 \' P
- '声明一个填充对象$ b* J* A8 m% s# J+ t! A
- Dim H As AcadHatch4 t6 I# n- n2 O5 a- W6 J0 J: c
-
: f3 `6 k; b4 [6 V8 E - p2(0) = 1: p2(1) = 14 e9 X6 F& X/ S! u& g( w# O8 q0 r
- p2(2) = 10: p2(3) = 1
7 v) a6 \4 A, W4 f- O7 Q$ z - Set PLINEOBJ = ThisDrawing.ModelSpace.AddLightWeightPolyline(p2)* g- C; F! P2 G- d+ } J4 M8 ?) @
/ j' B s' S) Q' Q- startTan(0) = 0.5: startTan(1) = 0.5$ S) {7 o5 g0 P- v
- endTan(0) = 0: endTan(1) = 0" b) x1 _3 y6 o) O, ~9 a2 B% [
- fitPoints(0) = 1: fitPoints(1) = 1 A7 m; I1 T# {( s8 u( B
- fitPoints(3) = 3: fitPoints(4) = 9
/ E7 }! X/ }, C n0 _5 L$ ? - fitPoints(6) = -1: fitPoints(7) = 17
& X+ b: }0 a: q- v - fitPoints(9) = 1: fitPoints(10) = 25
1 E+ B) G& L5 P& ~9 n. } - fitPoints(12) = 10: fitPoints(13) = 10$ C! G! S" \" ~
- fitPoints(15) = 10: fitPoints(16) = 1
0 N' B. N; s# T' V o9 R -
+ I* M9 ~7 b! Q3 J - Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
' W# s# ~& Z; I+ o - '对构成边界的数组赋值
% r* P! `1 @# O - Set Obj(0) = splineObj' J, |0 O7 x, `* S
- Set Obj(1) = PLINEOBJ
5 N' H0 _: `0 v# C5 K - '创建填充对象2 B3 S* ?0 W6 X w+ F
- 'cad2004及以上版本的AddHatch方法既可以创建图案填充,也可以创建渐变色填充, \7 u* g: y$ Y# [
- '所以2002及以前版本的AddHatch方法有三个参数,而2004及以上版本增加了第四个参数"填充对象类型"(AcHatchObjectType)
( [" |0 t# v# l# L - '该参数有两个命名常量,一个是acHatchObject = 0(图案填充),另一个是acGradientObject = 1(渐变色填充)
& R+ F: @/ s; I2 k. l, W6 Y - '该参数是可选的,默认是0(即图案填充)
% g% S. l x& v - '下面的代码没有写这个参数,用的是默认值图案填充
* J6 y7 t: |2 ?, Y. J) Q - '前面三个参数:9 ?. M, N4 ^ F, K
- '当填充类型为图案填充时& V+ S4 f7 g) k/ \. G
- '第一个参数是"图案类型"(AcPatternType)! a. F$ V$ X/ [6 f# h
- '该参数有三个命名常量, ]& L# r; @% `. }9 I! Z# R
- '一个是acHatchPatternTypeUserDefined = 0,对应于图形界面填充对话框中"类型"下拉列表框中的"用户定义": Z; g0 f2 ]0 U m5 t1 h: i
- '再一个acHatchPatternTypePreDefined = 1,对应于图形界面填充对话框中"类型"下拉列表框中的"预定义"
$ a) R, z4 {/ i* d! ^- t - '第三个acHatchPatternTypeCustomDefined = 2,对应于图形界面填充对话框中"类型"下拉列表框中的"自定义"
8 P, V8 V/ x- t - '下面的代码用的是"预定义"( @' }. ]+ U; [( p- b* ]6 Z2 Y. x
- '第二个参数是"图案名称",在图形界面的填充对话框中都可以看到
) g2 ?) a" ^0 `" N$ ?& e. |! m - '当填充类型为渐变色填充时
+ Y! V9 @# J0 h8 Q: d - '第一个参数是"渐变类型"(AcGradientPatternType)
: F9 B* J1 Q) r5 N2 Q - '该参数有两个命名常量
4 z. d B) @6 ~ - '一个是acPreDefinedGradient = 0(预定义)4 t- f# E# Y1 b z* B
- '另一个是acUserDefinedGradient = 1(用户定义)
$ C7 Z. v0 x0 z% Z$ N - '第二个可能是为以后版本升级备用的,现在不能用,只能用第一个6 J1 b# N4 N+ {! ~% Y8 Q" y
- '第二个参数是"渐变填充名称",预定义的有以下这些
- B$ F% [0 ^# S# f R' b - 'LINEAR, CYLINDER, INVCYLINDER, SPHERICAL HEMISPHERICAL, CURVED, INVSPHERICAL, INVHEMISPHERICAL 或 INVCURVED. i& C1 `4 |$ U8 q) J' D& g6 `* N
- '第三个参数是"关联",布尔型, U; g P' o' r
- Set H = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "ansi31", True)
' n. v/ j" A- x$ }: ]" ^ - '创建填充后的第一件事就是为它指定外边界
# U( B: `* g0 H1 C5 {+ V: `/ r - '填充对象的其它属性可以在后面慢慢弄,这里就不写了; S$ a: S, D( a# T. Z
- H.AppendOuterLoop Obj
' Z6 D) b- q" p - ' `5 e q* o7 | a7 W; \: s4 q
- ZoomAll
复制代码 |
|