本帖最后由 kuangben8 于 2019-4-14 10:11 编辑 ' E i# f( y; m7 W( Z6 g* f! f
7 E- i2 h/ E% P V
关于创建图案填充的补充:(非常感谢woaishuijia老师的热心帮助,以下是老师的帮助文档+我的一点总结)一、关于 AddHatch方法的参数 1、在2002版及以前,AutoCAD 只有图案填充,那时的AddHatch 方法只有三个参数,即 PatternType(图案类型)、PatternName(图案名称)和 Associativity(关联性);到2004版,增加了渐变填充, AddHatch 方法就增加了第四个参数 HatchObjectType(填充对象类型)。 2、先说第四个参数 HatchObjectType(填充对象类型) 先说它的原因是它的值决定了第一个参数的用法。按我们通常的思维习惯,它本来应该是第一个参数,但由于是后增加的,所以排在了第四个。 这个参数为 AcHatchObjectType 枚举类型。如果使用变量,应这样声明 Dim ** As AcHatchObjectType 这个枚举共有两个值: 1、acHatchObject= 0(图案填充):表示选择填充样式为图案填充!对应填充界面如下 ( G6 {- ?4 I* i* c
2、acGradientObject= 1(渐变填充):表示选择填充样式为渐变填充!对应填充界面如下
) M: x3 z7 ]2 l
% N. {5 H. q! ^4 k1 R& [这个参数是可选的,默认值为 0(acHatchObject,图案填充)。
4 L9 V0 q5 B- q2 U( R
3、再来说第一个参数 PatternType 在2002版及以前,没有第四个参数(只有图案填充),这个 PatternType 参数是 AcPatternType 枚举类型。2004版及以后,这个参数的类型就有了两种选择,即:如果第四个参数HatchObjectType(填充对象类型)的值是 acHatchObject = 0(图案填充)或省略,则这个 PatternType 参数就必须用 AcPatternType 枚举类型;如果第四个参数 HatchObjectType(填充对象类型)的值是acGradientObject = 1(渐变填充),则这个 PatternType 参数就必须用 AcGradientPatternType 枚举类型。 这个PatternType 参数的值决定着第二个参数 PatternName(图案名称)的用法,后面再说。先说这个参数两种枚举的值: 1)AcPatternType 枚举类型。如果使用变量,应这样声明 Dim ** As AcPatternType 这个枚举共有三个值: acHatchPatternTypePreDefined = 0(预定义):使用CAD自带的填充样式! acHatchPatternTypeUserDefined = 1(用户定义):此时CAD自带的填充样式不可选! acHatchPatternTypeCustomDefined = 2(自定义):此时CAD自带的填充样式不可选! 这三个值对应着图形界面“图案填充和渐变色”对话框中“图案填充”选项卡上的“类型(Y)”下拉列表(见图)。
: E8 w' j: q1 V* y5 h' t) H
( r9 d2 S3 Y' A, z; B
% P1 }; n5 E+ Y" _, |. Z
2)AcGradientPatternType 枚举类型。如果使用变量,应这样声明 Dim ** As AcGradientPatternType 这个枚举共有两个值: acPreDefinedGradient = 0(预定义) acUserDefinedGradient = 1(用户定义) 第一个值容易理解;第二个值E文是这样说的:Definesa pattern based on property values. 翻译:基于属性值定义模式。比较费解。经多次尝试,出错的提示总是“尚未实现”,且图形界面“图案填充和渐变色”对话框中也没有对应的选项。猜想这是为 AutoCAD 为今后的渐变填充改进预留的,就是说这个枚举目前只能用 acPreDefinedGradient = 0(预定义)值。 8 c; u4 F# t1 T
4、第二个参数 PatternName(图案名称) 1)当第一个参数 PatternType 是 AcPatternType 枚举类型且其值为 acHatchPatternTypePreDefined = 0(预定义)时,图形界面“填充图案选项板”(见图)上的“ANSI”、“ISO”和“其它预定义”选项卡上的所有图案名称都可以用。 2)当第一个参数 PatternType 是 AcPatternType 枚举类型且其值为 acHatchPatternTypeUserDefined = 1(用户定义)时,本参数只能为"_U"。这个图案没有什么实际用处。所以 AcPatternType 枚举类型的值 acHatchPatternTypeUserDefined = 1(用户定义)我认为至少在当前阶段是多余的,也许随着 AutoCAD 的改进将来会有用吧? 3)当第一个参数 PatternType 是 AcPatternType 枚举类型且其值为 acHatchPatternTypeCustomDefined = 2(自定义)时,本参数应使用图形界面“填充图案选项板”上的“自定义”选项卡上的图案名称。我没自定义过填充图案,我的这个选项卡上也是一片空白,所以这个枚举值对我也是没有用的。 4)当第一个参数PatternType 是 AcGradientPatternType 枚举类型且其值为acPreDefinedGradient = 0(预定义)时,本参数为下列9个名称之一:
$ [8 C% C A7 A 1、"Linear"、2、"Cylinder"、3、"InvCylinder"、4、"Spherical"、5、"HemiSpherical"、6、"Curved"、7、"InvSpherical"、8、"InvHemiSpherical"、9、"InvCurved" ,对应图案如下:
0 \, Y9 M$ B: x+ ]: x5、第三参数: Associativity(是否关联) 参考如上右图 Boolean[布尔值]; 仅用于输入,TRUE: 图案填充为关联的。 FALSE: 图案填充为不关联的。 作用:当填充图案的边界发生变化时,填充的图案是否自动适应边界的变化。 省略时默认是FALSE(不关联,即不勾选)。但是第三参数仍然要定义变量,可以不赋值。 ; h- w2 L7 H0 U$ I! a0 {2 h
: {2 z0 e$ {8 x+ x' N$ a
( b4 A$ ]6 x% }, L# |, U综上,第一个参数就取 0,第二个参数根据第四个参数的值取现有的图案填充名称或渐变名称,第四个参数决定第二参数的选择是图案填充还是渐变填充,图案名称必须是符合第四参数指定的类型中的图案名称。. V* e% t$ C! j! g% N! J% v
, `0 X5 N- t9 S% }
二、创建填充的步骤和要求 首先用 AddHatch 方法创建填充对象;紧接着用Hatch 对象的 AppendOuterLoop 方法明确外边界;如果填充内部有空白,还要用 AppendInnerLoop 方法添加内边界,有几个内边界就用几次。边界必须是封闭的。组成边界的多个图元之间必须是首尾相连的,换句话说,组成边界的多个图元之间不允许交叉,只允许且必须端点重合。 在实际测试中发现使用图案填充时,添加完外边界后刷新界面,然后添加内边界无效!但是渐变填充却没事! 内边界与外边界不许交叉,各个内边界之间也不许交叉。 内边界可以内部还有内边界,就是两个内边界“嵌套”组成环形。 内边界内部是否填充、嵌套的内边界怎样填充,可以用 Hatch 对象的 HatchStyle 属性(孤岛检测样式)来决定。可以在图形界面打开“特性”管理器,再选择一个有内边界的填充对象,在“特性”管理器中修改“孤岛检测样式”属性查看效果。 - Sub AddHatch方法()5 @& M( g1 v$ ?9 [5 M- Q. f
- Rem 语法:RetVal = Object.AddHatch(PatternType, PatternName, Associativity [, HatchObjectType])
6 h) C5 p! m1 v9 W( l8 I8 n - Dim HatchObject As AcadHatch '定义填充图案对象3 A7 H0 H- E5 {! A
- Rem 定义填充类型为长整型,取值为图案填充的0,1,2;渐变填充的0,1,一般就取0(CAD预定义)
* ~" e& }9 S& ^! d - Dim hatchtype As AcPatternType '参数4设置为图案填充的类型,参数4若是渐变填充,则定义为AcGradientPatternType类型2 y6 t& I2 ?% \7 J, g3 h1 j2 O5 o
- ' Dim hatchtype As AcGradientPatternType
# |* ^' Q. y, K3 o$ ?1 g1 C: j0 i - Dim HatchName As String '定义图案名称为字符串类型
: m. I7 g3 P- C! X - Dim HatchAssociativity As Boolean '定义关联类型为布尔值,取值为True表示关联,False表示非关联。" {/ R7 T. o% ?# s+ j* h7 J2 y
- Dim HObjectType As AcHatchObjectType '定义图案对象类型,取值为“图案填充-0”、“渐变填充-1”。省略默认为0.* ?0 P0 ?- S) E7 |9 N
- 5 J( S3 ~/ d4 n$ \, w
- Rem 首先添加几个边界以备填充使用
4 U2 u. `/ z2 l8 i5 Z - Dim L As AcadLWPolyline, cir1 As AcadCircle, cir2 As AcadCircle, CIR3 As AcadCircle '定义一个多段线和三个圆5 Y! V! t+ ]4 A& N0 o) ]* l k( K. ]+ o
- Dim pts(11) As Double, P0(2) As Double, R As Double '定义多段线端点变量,圆心变量,半径变量
0 X- f$ y8 }) u6 M8 ?' ` - pts(0) = 0: pts(1) = 0: pts(2) = 20: pts(3) = 15: pts(4) = 10: pts(5) = 30
. N5 p- m1 b6 ]$ n& z% ^2 _! a$ J - pts(6) = 50: pts(7) = 50: pts(8) = 0: pts(9) = -70: pts(10) = -70: pts(11) = 32
$ q" G+ U! M. g7 j0 H" E* o - Set L = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts)
6 z" D/ `: H" X P3 _% W6 i" a - Update
% A0 Z: y! \/ g v, W1 H - L.Closed = True '将多段线闭合- ^. D* g. C; q7 A
- Update- t4 Z7 ^3 a* m; S; M' M# V4 t& a: k: \
- P0(0) = 0: P0(1) = 0: P0(2) = 0
6 m( b- a a( t5 Y9 T2 l - R = 25$ j8 x% e, x4 e) Q' O0 i
- Set cir1 = ThisDrawing.ModelSpace.AddCircle(P0, R)4 v* Z6 A: S U% [
- Update
' h3 }4 ~$ ~' i - R = 50 r; O& z1 V& m8 W
- Set cir2 = ThisDrawing.ModelSpace.AddCircle(P0, R)
9 _) m% d: B! P8 [) N - Update2 ]6 R$ `/ X. i0 A6 m
- R = 70& w% h8 C! U+ F% p) C# K3 f. e
- Set CIR3 = ThisDrawing.ModelSpace.AddCircle(P0, R): W. D- C" Z, _- a$ r9 G; ^# c
- Update
) t0 C3 |" N1 ]9 B* ] - 6 f* T6 w% q3 w' v( D8 o
- Rem 接下来赋值图案填充变量,先复制第四参数,再赋值第一参数、第二参数、第三参数
1 i9 L6 [. ?( w+ I/ ~( w - HObjectType = 1 '写0也可以直接写acHatchObject,表示图案填充类型,都省略默认为0;写1也可以写成acGradientObject,表示渐变填充3 F! Z: @6 N _& ]) y# I
- ' HObjectType = acGradientObject '也可以直接写1,表示渐变填充类型6 U0 X9 j% K+ W' w. L, m: Y+ a [9 e
- Rem 第一参数值英文名称太长,还是直接记住数字好了!" m1 Y' v4 M+ m- P& G) W& B
- hatchtype = 0 'acHatchPatternTypePreDefined,参数太长,直接记住数字吧!
% R' ?1 z4 @+ B) _8 D5 L - ' HatchType = 1 'acHatchPatternTypeUserDefined) {& L# m$ _7 \" u$ y4 X6 }
- ' HatchType = 2 'acHatchPatternTypeCustomDefined,第四参数为1时此参数无效!) y- a8 X) N2 ~1 m d' s4 y, ? o! }
- Rem 以下四类图案名称仅在第四参数=0时有效!每一类里有数个名称可用!
0 N* [7 V- s, v) R8 s - ' HatchName = "ANSI32"7 a, G; @! `! e0 q1 Z
- ' HatchName = "ISO02W100" '此处的名字到底是什么?3 b J; Z& e C0 m
- ' HatchName = "AR-HBONE"& B. m1 t& s% r8 \
- ' HatchName = "STARS"+ U) b2 N) j4 t& B' \# S8 j
- Rem 以下9种图案名称仅在第四参数=1时有效!表示渐变填充名称,只有这9个名称。 c/ _, }$ \4 s3 d2 l8 h( a
- ' HatchName = "Linear" '对应第1行第1列图案
$ O5 S8 J: l8 v! _# p/ l - ' HatchName = "Cylinder" '对应第1行第2列图案
) D% l v/ A8 {4 Q& J* } - ' HatchName = "InvCylinder" '对应第1行第3列图案( T8 W% J" y' H
- HatchName = "Spherical" '对应第2行第1列图案. |4 Q- B" c) P$ R2 G8 X6 o6 R5 m. F( e
- ' HatchName = "HemiSpherical" '对应第2行第2列图案
" F) F! V: G* \1 I* {) D0 o - ' HatchName = "Curved" '对应第2行第3列图案
+ Z$ G, o) C9 R# a5 V+ o# B - ' HatchName = "InvSpherical" '对应第3行第1列图案8 r, m3 h; @! O; J* h8 x7 _# A% ^+ G$ @
- ' HatchName = "InvHemiSpherical" '对应第3行第2列图案
- E0 R+ t, _$ D% G, J/ t - ' HatchName = "InvCurved" '对应第3行第3列图案
* x @* D, j7 ]) B- W* S( L) P - Rem 第三参数一般设置为true(关联)
! S: u9 d& N3 f$ n6 H - ' HatchAssociativity = True '省略赋值时默认为False
( ?* m; i* L. J1 T; D - ' HatchAssociativity = False
* @$ m, m2 b& m8 G - - F, |6 k7 D2 p5 a' N1 m
- Rem 首先创建图案填充,然后创建图案外边界和内边界
8 f; s. k/ q' }. j$ o- m4 P# H - Set HatchObject = ThisDrawing.ModelSpace.AddHatch(hatchtype, HatchName, HatchAssociativity, HObjectType)) R# t3 [, z: r+ U' ?- Q1 c8 N& _% e
- ' Set HatchObject = ThisDrawing.ModelSpace.AddHatch(0, "ANSI32", True, 0) '也可以直接写参数值: c5 B% T2 P; p' N6 }" d) H7 A
- Dim OUTLOOP(0) As AcadEntity '定义外边界为CAD实体类型# p! z" y: y& h; F" r7 J- l; p$ T
- Set OUTLOOP(0) = CIR3 '将cir1圆赋给外边界0 N; J3 X" s8 Z) Y, \/ O
- HatchObject.AppendOuterLoop (OUTLOOP) '设置图案填充的外边界
A' q* a8 g2 |' M" s* B7 g v$ ^6 A - Update '添加内边界之前刷新界面,后续图案填充内边界添加无效!但是渐变填充可以!4 N n S0 o$ f# Y) C. Z5 p
- Dim INTLOOP(0) As AcadEntity '定义内边界为CAD实体类型
" d9 b! u( v) z0 P6 `+ Z. X2 e - Set INTLOOP(0) = cir2 '将cir2圆赋给第一个内边界,如果内边界比外边界大,则出错!
$ l. \8 F- t+ w }; A& X - HatchObject.AppendInnerLoop (INTLOOP) '设置图案填充的内边界9 T, P1 {" B' X9 X
- Update) A1 j6 o( q/ k
- Set INTLOOP(0) = L '将cir3圆赋给第二个内边界,同时设置两个内边界不好使!要一个一个设置- q' R4 ?$ [" `1 `. L
- HatchObject.AppendInnerLoop (INTLOOP) '设置图案填充的内边界
) S) i& v& e. k2 | - Update
. P% {+ T% c Z( [: ?4 c+ N: t3 X - End Sub
复制代码 ' |* y# n) Y. x+ p5 \
2.11.02、创建图案填充的补充.zip
(11.2 KB, 下载次数: 10)
|