现代纺织技术毕业设计-1.2万字织物组织计算机辅助设计.docx

《现代纺织技术毕业设计-1.2万字织物组织计算机辅助设计.docx》由会员分享，可在线阅读，更多相关《现代纺织技术毕业设计-1.2万字织物组织计算机辅助设计.docx（33页珍藏版）》请在课桌文档上搜索。

1、由取学上学毕业设计（论文）类型：口毕业设计说明书口毕业论文题目：织物组织计算机辅助设计学生姓名：李闪闪指导教师：陈浩文一专业：现代纺织技术（纺织品检验与贸易）时间：2022年12月基于织物组织图是由经组织点和纬组织点组成，由此联想到二进制中主要包括“0”和“1”两个数字。若假设二进制中的“1”代表经组织点，“0”代表纬组织点，那么一个组织图就可以用一个二维矩阵来表示，反过来，由一个二维矩阵转换成组织图也是可以实现的。本文通过分析织物组织的规律，从中抽取三个关键参数交叉数、交叉规律和飞数，用“1”表示经组织点，“0”表示纬组织点，利用VB语言编写程序。先根据参数生成二维矩阵，再通过VB语言的绘图

2、功能将二维矩阵转换成组织图。本文设计的用户界面简洁、易懂、友好，用户只需在里面输入三个基本参数，然后点击确定按钮便可得到你想要的织物完整的上机图。关键词：组织图、二维矩阵、VB语言SummaryOrganizationchartisbasedonthefabricbytheorganizationpointsandorganizationalpointsoflatitude,tothebinaryinthisassociationincludethe0and,twofigures.Assumingthatthebinaryinthe,pointbytheorganization,0pointo

3、flatitudeorganization,thenanorganizationchartwithatwo-dimensionalmatrixcanbeexpressed.Inturn,byatwo-dimensionalmatrixintoorganizationchartisachievable.Thisisthefabricthroughtheanalysisofthelaw,thethreekeyparametersextractedfromcrossingnumber,crossingrulesandflightnumber,with,pointbytheorganization,O

4、pointoflatitudeorganizations,usingVBprogramminglanguage.Firstgeneratetwo-dimensionalmatrixoftheparameters,thenthelanguageofdrawingthroughtheVBfunctionintotwo-dimensionalmatrixorganizationchart.Thisdesignoftheuserinterfaceissimple,understandableandfriendly.Usersonlyneedtoenterinsidethethreebasicparam

5、eters,thenclicktheOKbuttonwillgetwhatyouwantthefull-onfabricchart.Keywords：organizationalchart,two-dimensionalmatrix,VBlanguage第一章织物组织CAD系统国内外现状31. 1国外主要织物组织CAD概况31.2国内主要织物组织CAD概况3第二章机织物组织CAD系统的核心理论42.1织物组织的关键参数42. 2织物组织的计算机表达42. 3织物组织计算机分类52. 3.1规则组织53. 3.2非规则组织64. 3.3复杂组织7第三章织物组织的数学建模及计算机设计84.1 织物

6、规则组织的数学建模原理85. 2织物规则组织计算机辅助设计93. 3准规则组织的数学建模原理及计算机辅助设计123. 4非准规则组织的数学建模原理及计算机辅助设计133. 5复杂组织的处理方法14第四章织物组织设计的计算机实现154. 1窗体的设计154.2界面各元素程序的编写及功能的介绍164.2.1关键元素的程序的编写和功能介绍164.2.2其他元素程序的编写及功能介绍19第五章结论21附录：织物上机图绘制的完整程序及应用实例22致谢28参考文献29第一章织物组织CAD系统国内外现状50年代以来，随着CAD研究的不断深化与硬件设施的不断升级，CAD技术已经逐渐应用到纺织行业。织物组织CAD

7、意指运用CAD技术进行织物组织设计，目的在于利用计算机的强大的运算、存储、修改和抗疲劳功能，对织物组织和上机信息进行运算和处理，大大缩短设计周期，提高设计质量吗运用这一新技术的前提是必须对织物组织进行数学描述，寻找各类织物组织的规律，建立相应的数学模型和计算方法。1.1 国外主要织物组织CAD概况国外的纺织CAD系统发展较早，也已比较成熟，其中具有代表性的有：德国Designscope公司的EAT系统；荷兰的NedGraphics系统”,它们在织物组织设计上基本都采用二进制的方法，用不同的数学矩阵表达式来模拟经纬纱线的浮沉规律，这个方法简洁、准确、快速，但由于系统本身的复杂性，使得很多企业或个

8、人无法使用，另外对一些复杂织物（多层）的设计较难，操作较为复杂，同时国外的软件在国内应用，没有汉字界面、度量单位不一致。1.2 国内主要织物组织CAD概况我国在80年代才开始了此项研究，国内一些科技人员本着科技与市场相结合的理念,开发和研制了一些商品化的CAD系统。其中，中国纺织科学研究院开发的织物仿真系统已经具有超强的织物仿真功能，在很大程度上能代替织物小样机进行打样工作，而且织物的组织结构、纱线种类、经纬排列、纱线颜色都可以进行随意的更换，大大提高了工作效率；浙江大学开发研制了一套纹织CAD系统（简称JCD），功能比较完善，应用较广，利用纹织CAD的图像输入、图像编辑及工艺处理等功能进行提

9、花织物的品种设计及改进的；上海视博数码科技有限公司与上海东华大学（原中国纺织大学）及绍兴轻纺科技中心有限公司联合开发的FCAD电脑提花设计软件；以上软件系统基本都具备了织物组织CAD功能，操作也相对简单，在一些大中型企业应用较为广泛，但价格昂贵，一些中小型企业仍采用的是手工绘图设计的方式。第二章机织物组织CAD系统的核心理论织物结构与设计中按参与交织的经纬线组数以及交织规律等因素，将织物组织分成简单组织和复杂组织。简单组织相对于重组织和层组织而言，其结构是单层，故又可称之为单层组织。在单层组织中，三原、变化和联合这种传统的分类方法，并没有考虑计算机进行组织模拟显示和设计生成逻辑。例如平纹和2/

10、2斜纹，在传统的组织分类中分别归属于三原和变化两个不同的类别，但这两种组织在各自的组循环中均保持经纬交织规律不变，飞数不变，而且完全组织的经纬线循环数的计算方法也相同，因而从计算机生成组织的角度，可以建立相同的数学模型与算法。2.1 织物组织的关键参数要生成织物组织图就需要知道它的几个关键参数，它主要包括交叉规律、交叉数、飞数和组织经纬循环数这四个参数。(1)交叉规律：组织循环中每根经(或纬)线的交叉数以及每次交叉时的经纬浮长数的变化规律。(2)交叉数：有经向交叉数和纬向交叉数之分.经向交叉数等于经线交叉规律表达式中分子个数与分母个数之和。纬向交叉数等于纬线交叉规律表达式中分子个数与分母个数之

11、和。(3)飞数：有经向飞数和纬向飞数之分。S尸相邻两跟经纱上相似组织点之间相隔的纬纱根数，向上为正向下为负。SL相邻两根纬纱上相似组织点之间相隔的经纱根数，向右为正向左为负。纱线序数组织图经纱序数j由左向右递增，纬纱序数由上向下递减。(4)组织经纬循环数经纱循环数Rj：一个完全组织中所需经纱总根数。纬纱循环数Rw：一个完全组织中所需纬纱总根数。2.2 织物组织的计算机表达织物中经、纬纱线相互沉、浮交织规律，通常采用组织图的方式来表述。如果将组织图中每一个格子看作为一个元素，经浮点()用“1”来表示，纬浮点(口)用“0”来表示。于是组织图必然对应与一个二维的布尔矩阵，称之为组织矩阵或组织阵。组织

12、阵中行代表纬线，列代表经线，w(i,j)表示第i根纬、第j根经相交处组织点的状态。当组织图用矩阵进行数学描述后，组织图设计就可以转化为组织矩阵的运算和处理。织物组织CAD亦就是组织矩阵的赋值和运算。同理织物上机图中的穿综图和纹板图，也可以用矩阵表示。在纹板矩阵中行代表纹板，列代表纹板上对应的某片综框。用“1”表示植纹钉，对应综框提起；“0”表示不植纹钉，对应综框不提起。在穿综矩阵中，行代表综框，列代表经线。用“1”表示对应经线穿入该片综框内；用“0”表示不穿入该片综框。穿综矩阵的，特点是，每一列中只有一个元素是“1”，其余均是为此，图上机图中组织图、穿综图和纹板图可用图1-2对应的矩阵等效地表

13、达。rOOOOOl、0000100001000010000100001.OOolll、001110011100IllOOO110001图2-2为图2-1对应的数字矩阵l100011,2.3 织物组织计算机分类为了便于织物组织的计算机模拟生成与设计，通过分析单层组织的数学规则，按计算机实现方法，有必要从新进行组织分类。一般的织物组织都可以归为单层组织或复杂组织中，即织物组织可以分为单层组织和复杂组织两大类。单层组织又可以分为规则组织和非规则组织等三类。而复杂组织是指除简单组织以外的所有组织，如重组织和双层组织。2.3.1 规则组织（1）规则组织的定义规则组织从广义上讲既包括规则组织也包括准规则组

14、织。经（纬）向交叉规律一定，且经（纬）向飞数一定的组织成为经（纬）向规则组织。既是经向规则组织又是纬向规则组织的称之为两项规则组织。例如：图2-3-由（a）所示的组织，经向交叉规律一定，均为432/221,经向飞数Sj均为2,故为经向规则组织；（b）所示的组织，纬向交叉规律一定，均为21/63,纬向飞数Sw均为2,故为纬向规则组织；（C）所示的组织，经纬向交叉规律一定，均为11/51,经纬向飞数Sj、Sw一定，均为3,故为经纬两向规则组织。(2)准规则组织的定义(b)(c)图2-4准规则组织图例经(纬)向交叉规律一定但经(纬)向飞数不定的组织称之为经(纬)向准规则组织。经纬向交叉规律均一定，但

15、经纬向飞数均不定的组织成为两向准规则组织。如：图2-4中，(a)所示的组织经向交叉规律一定均为1/3,但经向飞数不定。2、3、4根经线的经向飞数均等于1,而5、6根经线的经向飞数均为-1。表示为Sj(2)=Sj(3)二Sj(4)=1,Sj(5)=Sj(6)=-1,故为经向准规则组织；(b)图所示的组织纬向交叉规律均为1/3,但纬向飞数不定。Sw(2)=Sw(3)=Sw(4)=1,Sw(5)=Sw(6)=-1,故为纬向准规则组织；(C)图所示的组织经纬向交叉规律均为1/3,但经纬向飞数不定。Sj(2)=1,Sj(3)=2,Sj(4)=T且SW(2)=-1,Sj(3)=-2,Sj(4)=1,故为经

16、纬两向准规则组织。2.3.2 非规则组织非规则组织的定义：经纬向交叉规律均不定的组织称为非规则组织。图2-5所示的组织经纬向交叉规律均不定，第1根经线交叉规律为42/24,第二根经线交叉规律为1122/2211,，第12根经线交叉规律为42/42。第一根纬线交叉规律为42/42,第2根纬线交叉规律为1122/2112,第12根纬线交叉规律为42/24,故为非规则组织。任何一个单层组织可划归为上述三类组织中的一类或由某一类组织经组织变换方式得到，复杂组织可由单层组织联合的方式得到。这样，三原、变化和联合等单层组织的组织图设计实质上便可转化为上述三类组织的组织图设计。2.3.3复杂组织图2-5非规

17、则组织图复杂组织包括重组织和双层组织。在实践中，人们对原组织这类有明显规律的组织可以通过输入少量参数和符号进行设计，而对复杂组织，很难用一个固定的模式加以描述.通过各类组织的研究可以发现：一些组织如联合组织和复杂织尽管不能用固定的数学语言来描述,但在这些组织中的某一部分或某些纱线的交织状况都是有一定的规律的叫如山形斜纹左右或上下的交织规律相同，飞数取值相反,锯齿斜纹的飞数则是有规律的正负变化,菱形斜纹则是由基础组织经对称而得到，破斜纹则是由基础组织取反而得，曲线斜纹则是由斜纹的飞数不断改变使倾斜角不断变化而获得曲线效应.那么，通过计算机快速处理的特点能很方便地根据这些变化特征来模拟织物组织.如

18、图2-6和图2-7所示图2-6重平组织图图2-7为双层组织第三章织物组织的数学建模及计算机设计3.1 织物规则组织的数学建模原理根据重新分类的定义，规则组织涵盖了大多数常用的组织，如平纹、斜纹、缎纹，以及他们的一些衍生组织，如加强、复合及角度斜纹和加强缎纹等。规则组织的共同特点是，在整个组织循环中都能用固定的交叉数、固定的飞数和连续经、纬浮长序列来描述。也就是说，规则组织可由交叉数、浮长序列和飞数三个参数唯一确定。并且，若浮长序列以组织点的沉浮规律给出，则交叉数等于沉浮规律中的分子和分母之和。这样，交叉数和浮长序列就可合并为一个沉浮规律参数。例如，图3T(a)为8/5纬面缎纹，每根经、纬线的交

19、叉数均为2,浮长序列为1、7,飞数为5,则可用1/7和5飞表示；(a)交叉数均为4,浮长序列为2、1、1、2,飞则组织参数建模如表3-1(b)图3-1规则组织图例表3-1规则组织的组织参数模型组织名称组织参数模型备注平纹Nf=2；Ll=I,L2=l；Sj=Sw=l两向规则组织原组织斜纹Nf=2；Ll+L23且1.l=I或L2=l；Sj=Sw=lLl=I为纬面斜纹，L2=l为经面斜纹；若Sw=+1,则Sj=+1为右斜纹；Sj=-I为左斜纹；SxUT时相反。加强斜纹Nf=2；Ll+L24,且Ll1,L2l;Sj=Sw=1L1L2经面加强斜纹1.KL2纬面加强斜纹1.1=L2双面加强斜纹复合斜纹Nf

20、24；Li5;Sj=Sw=l某斜纹的条数为Nf/2角度斜纹（不考虑经纬密）Nf22；ELi25急斜纹：Sjl,Sw=1缓斜纹:Swl,Sj=l原组织缎纹Nf=2；Li5,且1.i6,且Ll=I或L2=l；lSj=SwLi-lLl=I为纬面缎纹1.2=l为经面缎纹加强缎纹Nf2;Li5,且Li6;lSj=SwLi-l注：Nf为组织交叉数，Li为浮长序列中第i项的组织点数，Sj（Sw）为经（纬）向飞数表中，经向和纬向飞数均被给出，但实际只使用一个。若指定的飞数是Sj,则Nf和Li是针对首经而言的。若飞数是Sw,则Nf和Li是针对首纬而言的。3.2 织物规则组织计算机辅助设计已知规则组织的三个参数，

21、要获得组织矩阵，首先要计算它的经纬纱循环数，确定组织阵的大小，从而进一步对组织阵元素进行赋值。现按经向飞数进行讨论。假设规则组织的经向交叉数为Nf,首列第i次交叉的浮长序列为Li（i=l,2,3,4.,Nf）,经向飞数为Sj,则织物组织的纬纱循环数RW和经纱循环数Rj,可由式（2-1）和（2-2）计算得出。Rw=Li(i=l,2,3,Nf)(3-1)Rw,若RWmod|SjI0Rj=(3-2)RwSjI,Rwmod|Sj|=0式中的mod为取余运算符。同理，也可按纬向飞数Sw进行讨论，此时，首纬的交叉数和浮长序列必须给出，经纬纱循环数的计算与式(3-1)、(3-2)具有同样的形式，只需将Rw与

22、Rj对调即可。由于在组织循环中飞数Sj(Sw)可取的值很多，并且即可取正值(正飞数)，也可取负值(负飞数)，不同的取值将带来不同的计算结果。对于任意给定的飞数Sj,可按式(3-3)对其进行n次递归转换，找出绝对值最小的负飞数Sj*,再进一步将其转换为正飞数Sj,这样Sj的取值为所有正飞数中绝对值最小者，保证了飞数的唯一性。这个唯一的飞数成为标准飞数。“Sj*=Sj-nRwJ(3-3).Sj=Rw+Sj*因为组织阵是采用布尔矩阵表示的，按照织物组织图绘做的传统布局，矩阵的左下角为组织起点，向上纬纱递增，向右经纱递增。设W表示布尔矩阵，存储组织点类别的变量用数组W表示，则数组W的阶数是RwXRj,

23、二维布尔矩阵表示为图3-2：W=WRWlWRwWRWjI-WwRWilW12WlJ.WRIW21W22-W2jW2RjWnW12-2Wtj-一附对一j图3-2二维布尔矩阵图以经向规则组织为例，由于首列经纱的运动规律已知，可对矩阵第一列元素进行赋值，然后按第一列元素和飞数对矩阵的其他列元素进行赋值。对于首列的第i行(i=L2,.,Nf)元素，其赋值为：当iLl时，Wil=I;当Ll+L2+L(k-l) Rw图3-3规则组织计算机算法流程(8)遍历布尔组织阵元素，若为1,则在相应位置填上黑格(或经色块)；否则，在相应位置上留空格(或填上纬色块)。3.3 准规则组织的数学建模原理及计算机辅助设计准规

24、则组织与规则组织的区别仅为飞数在整个组织循环内是一个变值，准规则组织可用飞数数组来替换规则组织中的飞数常数。这类组织包括曲线斜纹、山形斜纹、锯齿形斜纹、变则缎纹和交叉数为2的破斜纹等。类似于规则组织，准规则组织也可由参数Nf,Li(i=l,2,Nf),经向(或纬向)飞数数组Sj()(或Sw()唯一确定。并且在已知经向飞数数组的情况下，纬纱循环数RW的赋值同式(3-1),经纱循环数Rj等于飞数数组的长度，矩阵元素的赋值同式(3-4)(3-5),但在式(3-5)中Sj应以第j个经向飞数Sj(j)来替代。这样准规则组织的组织矩阵也可以唯一确定。使用飞数组建立准规则组织的数学模型时，除曲线斜纹可直接输

25、入飞数参数外，其他组织需要对飞数组数的值进行计算。例如：山形斜纹为求出飞数组数的长度和数组元素的值，还应先给出改变斜纹方向时的山峰位置参数K(Kj或Kw)o对于经山形斜纹，经向飞数组数的长度Rj=2Kj-2,这样飞数组数元素赋值为：rSj(j)=1若KKjJ(J=2,3,Rj)(3-7)1.Sj(j)=-1若jKj同理，对与经纬山形斜纹，纬向飞数组数的长度Rw=2Kw-2,这样飞数组数元素赋值为：Sw(w)=1若WSKWY(w=2,3,RW)(3-8)Sw(w)=-1若wKw由此例看出，准规则组织的数学描述，主要是通过给定准规则组织的有关参数，计算飞数组数，在此基础上按照与规则组织类似的步骤求

26、准规则组织的布尔矩阵W,从而自动绘出之织物的组织图形。算法流程可参见规则组织。对几种准规则组织的组织参数建模见表2-2,供准规则组织参数输入时参考。表3-2准规则组织的组织参数模型举例组织名称组织参数模型备注经曲线斜纹Nf4;Li6;Sj(j)modLi=O;Max(allSj(j)3;KjLi飞数数组由组织参数Kj按公式(3-7)计算获得，故参数输入时输入Kj即可纬山形斜纹Nf22;ELi23;Kw2ELi飞数数组由组织参数Kw按公式(3-8)计算获得，故参数输入时输入Kw即可3.4 非准规则组织的数学建模原理及计算机辅助设计非规则组织包括一些平纹变化组织如重平、方平，斜纹变化组织如芦席斜纹

27、、棱形斜纹、交叉数大于2的破斜纹，以及联合组织等。部分规则组织可调用规则组织矩阵，采用组织设计中一个或几个映射变换方法组合形成。也有部分非规则组织，不能调用其他规则组织生成，需要找寻规律，建立独用的数学模型。例如：变化方平组织由首经交叉数和相应浮长序列、首纬交叉数和相应浮长序列唯一确定。设首经交叉数为Njf,对应的浮长数组为Lji(i=l,2,Njf)；首纬交叉数为Nwf,对应的浮长数组为LWj(j=l,2,Nwf)；则变化方平组织由此四个参数确定。首先，经纬纱循环数的计算与公式(3-1)类似，为：Rw=Ljii=l,2,.,Njf(3-9)Rj=ZLWjj=l,2,Nwf(3-10)按照与公

28、式(3-4)相同的方法分别给首经和首纬的各元素赋值，接下来，组织矩阵中任何其他元素W(i,j)(i=l且jl)的赋值，可按式(3-11)确定：1若W(i,D=W(l,j)W(i,j)=JA2,3,，Rw；j=2,3,Rj(3-11)若W(i,l)W(l,j)还有部分非规则组织，很难实现其数学描述，只能通过对矩阵元素的赋值生成组织第三章织物组织的数学建模及计算机设计矩阵。3.5 复杂组织的处理方法绝大部分的联合组织和复杂组织都包含门类繁多的不同规律的组织,并且不同的组织拥有不同的组织参数,很难通过统一的数学描述来实现组织自动设计.那么,只能在已知组织图的情况下,按映射关系对组织矩阵元素进行分别赋

29、值可以用计算机编程的方法,利用画图完成对组织矩阵内各元素的赋值,这样不仅可使组织图变得简单直观,而且便于后续编程工作的顺利进行，一般的赋值步骤是：第1步：用已知的组织循环数Rj和RW（可自行设计）构建连续RjXRW个的空白方格图；第2步：依照已知的组织图，用鼠标分别点击相应的经组织点，使相应的空白方格变为黑色（或其他颜色），完成组织图的设计（默认白色方格为纬组织点）.第3步：对组织图进行校对,保存,便于以后调用，准备进行织物模拟.第四章织物组织设计的计算机实现上机图中，当组织图、穿综图和纹板图用相应的矩阵表达后，它们之间的数学关系有:由纹板矩阵和穿综矩阵求对应的组织矩阵；由组织矩阵和穿练矩阵求

30、纹板矩阵；由纹板矩阵和组织矩阵求穿综矩阵。初看起来，似乎这三个关系中，由任一个关系就可以推出另外两个关系。但是，由于这三个矩阵不一定是方阵，所以就不存在逆方阵；即使是方阵，求逆的运算也不符合织物组织设计的规律。由于本人知识有限加上该程序本身编写的过程就很复杂，是我目前能力所不能及的，所以本文以下内容只对简单的组织图的生成进行程序编写，穿综一律采用顺穿，也就是说文板图和组织图是一样的。再次恳请大家的谅解，我真的希望能有一套完整，功能比较齐全的程序呈现给大家可我是心有余而力不足，我真诚的希望自己以后能够实现这个愿望。4.1 窗体的设计图4-1织物上机图它由五个text文本框（用来与用户进行互动的窗

31、口，用户需在里面键入合理的数字）、六个command按钮（确定按钮是用来启动程序执行命令的，两个清空按钮是用来清空显示区和说明区的内容，三原组织按钮是三个快捷键用户无需输入参数只需点击一下按钮便可快速对三原组织的上机图及简要介绍有个大体的概念）、七个IabeI（标注其附近文本框及图片框）和一个picture（用来显示织物上机图）组成。用户在使用时只需在界面中的文本框中依次输入三个参数：交叉数、飞数、交叉规律然后点击确定按钮便可以得到想要的图片。例如：在交叉数文本框中输入4,飞数文本框中输入3,交叉规律文本框上框输入H下框输入51（输入时要保证分子分母的数字个数之和相加等于交叉数），然后按确定键

32、，你想要的上机图便会在显示区中生成（如图4-2所示）。当你按下缎纹组织按钮时在窗体的显示区中会显示出缎纹组织的上机图，在说明文本框中会显示对缎纹组织的简要介绍，如下图所示。同样，当你按下平纹组织按钮和斜纹组织按钮时也会有同样的效果。当你按下两个清空键中的任何一个文本框中的文字及显示区的图片都会被清空，然后你可以重新输入新的参数。图4-2输入参数后的界面4.2 界面各元素程序的编写及功能的介绍上一节我们对窗体的布局构造及功能有了初步的了解和认识，这一节我们将重点讨论窗体中各个按钮功能是如何实现的。在第三章我们研究了规则组织、准规则组织、非规则组织及复杂组织的计算机生成规律及数模的建立，由于非规则

33、组织及复杂组织是以规则组织及准规则组织为基础所以我们这一节把重点放在规则组织和准规则组织的生成上。4.2.1 关键元素的程序的编写和功能介绍首先，一个织物完整的上机图是由三部分组成：组织图、穿综图和文板图。其中组织图的生成是核心，认识到这一点我们应该考虑如何产生组织图的二维矩阵，然后根据二维矩阵绘出组织图，这就要涉及到VB中给数组赋值及绘图两方面的知识。下面一段完整的程序是运用VB中给二维数组赋值的知识对组织图进行赋值，即“确定”按钮这一关键元素的程序编写介功能介绍：PrivateSubCommandl_Click()DimSjAsInteger,RwAsInteger,RjAsInteger

34、DimkAsInteger,iAsInteger,jAsInteger,cAsIntegerDimS1AsInteger,S2AsInteger,mAsIntegerDimA()AsInteger,B()AsIntegerDimW()AsInteger,D()AsInteger,L()AsIntegerDimtAsInteger上面一段程序是对程序中用到的变量进行定义，在VB中只有先定义了变量下面才可以用m=Val(TextLText)/2Sj=Abs(Val(Text2.Text)Fori=1TomReDimPreserveA(m)A(i)=Mid(Text3.Text,i,1)Sl=Sl+

35、A(i)ReDimPreserveB(m)B(i)=Mid(Text4.Text,i,1)S2=S2+B(i)Nexti这一段程序的作用是将交叉规律的分子分母非别建一个一维数组，为下面做好铺垫。Rw=Sl+S2IfRwModSj=OThenRj=Rw/SjElseRj=RwEndIf确定一个组织循环中经纬纱的根数ReDimPreserveW(Rw,Rj)定义一个二维数组Fori=1TomDoW(Rw-c,1)=1c=c+lA(i)=A(i)-11.oopUntilA(i)=0DoW(Rw-c,1)=0c=c+IB(i)=B(i)-11.oopUntilB(i)RwThenW(i,j)=W(i+

36、Sj-Rw,j-1)ElseW(i,j)=W(i+Sj,j-l)EndIfNextiNextj为余下的经纱一一赋值，得到组织图的二维数组矩阵。赋值后，我们在运用绘图的知识把二维矩阵转化为组织图。请看下面一段程序：Fori=1ToRwForj=1ToRjIfW(i,j)=IThen如果数值为1则画实心黑色方块PicLLine(x,y)-(x+150,y+150),QBColor(O),BFElse否则画空心方块如下图所示PicLLine(x,y)-(x+150,y+150),QBColor(O),BEndIfx=x+150Nextjx=0y=y+150Nexti如下图所示：图4-3(a)为二维数

37、字矩阵，图4-3(b)则为程序运行后的结果。穿综图和文板图的生成可以用同样的方法。(b)LOOO111、OOlllOOlllOOIIlOOO110001J100011J图4-3二维矩阵及其对应的组织图4.2.2 其他元素程序的编写及功能介绍上文的程序是点击“确定”按钮所执行的一段程序，下面我们来介绍其他按钮的程序编写。两个“清空”按钮的程序如下：PrivateSubCommand2/6_Click（）PicLCls（图片的清空）Textl=（文本框的清空）Text2=Text3=Text4=Text5=,mTextLSetFocus（光标回到文本框1中，等待新数字的输入）EndSub三原组织按

38、钮程序的编写。简单来讲这三个按钮的编写跟上面程序基本上是一样的，所不同的是这三个按钮的程序直接给出了三个参数，只要点击一下按钮程序便根据给定的三个参数运行。以平纹组织为例，其程序的不同之处如下：清空所有内容PrivateSubCommand3_Click()PicLClsTextl=|,Text2=,Text3=,Text4=,Text5=,TextLSetFocus重新赋值Textl=2Text2=1Text3=1Text4=1.Endsub同理，斜纹组织和缎纹组织也是直接在程序中赋值。第五章结论通过对国内外织物CAD系统的研究发现，虽然在大部分的大中型企业中织物CAD系统己得到广泛应用，但

39、在很多的中小型企业中，仍然采用的是手工设计的方式。针对这一现象，本文通过二维矩阵的形式来表示织物组织，并利用可视化语言VB6.O在计算机上进行了功能的实现。本文结论主要有以下几点：(1)织物组织在计算机表达中需要建立三个关键参数，即组织交叉数、经纬交叉规律和飞数，并可通过一些软件控件和基础算法，将三者连接起来，形成不同的织物组织。(2)织物组织的经纬浮沉规律可用二进制数值来表示，经浮点用“1”表示，纬浮点用“0”表示，从而一幅组织图就可转换为一个二维矩阵图，同理，只要进行设计二维矩阵，即可得到不同的织物组织图。(3)规则组织与非规则组织的数学建模在理论上基本相同，只是经纬浮长线和飞数有所不同，

40、在今后的研究中，可以通过逐根识别的方式来实现非规则组织的计算机模拟。(4)利用可视化语言VB6.0实现了织物组织的计算机绘制，该程序系统可直接应用于企业的生产，大大缩短织物组织工艺设计中花费的时间，提高工作效率。附录：织物上机图绘制的完整程序及应用实例完整程序：PrivateSubCommand1_Click()DimSjAsInteger,RwAsInteger,RjAsIntegerDimkAsInteger,iAsInteger,jAsInteger,cAsIntegerDimSlAsInteger,S2AsInteger,mAsIntegerDimA()AsInteger,B()AsI

41、ntegerDimW()AsInteger,D()AsInteger,L()AsIntegerDimtAsIntegerm=Val(TextLText)/2Sj=Abs(Val(Text2.Text)Fori=1TomReDimPreserveA(m)A(i)=Mid(Text3.Text,i,1)Sl=Sl+A(i)ReDimPreserveB(m)B(i)=Mid(Text4.Text,i,1)S2=S2B(i)NextiRw=Sl+S2IfRwModSj=0ThenRj=Rw/SjElseRj=RwEndIfReDimPreserveW(Rw,Rj)Fori=1TomDoW(Rw-c,1

42、)=1c=c+1A(i)=A(i)-11.oopUntilA(i)=0DoW(Rw-c,1)=0c=c+1B(i)=B(i)-11.oopUntilB(i)RwThenW(i,j)=W(i+Sj-RwJ-1)ElseW(i,j)=W(i+Sj,j-l)EndIfNextiNextj以上为组织图赋值k=RjReDimPreserveD(k,Rw)Fori=1TokForj=1ToRwIfi+j=k+1ThenD(iJ)=lElseD(iJ)=OEndIfNextjNexti为穿综图赋值ReDimPreserveL(Rw,Rj)Fori=1ToRwForj=1ToRj1.(i,j)=W(i,j)N

43、extjNexti为文板图赋值绘图PicLCurrentX=xPicLCurrentY=yFori=1TokForj=1ToRjIfD(i,j)=1ThenPicLLine(x,y)-(x+150,y+150),QBColor(O),BFElsePicLLine(x,y)-(x+150,y+150),QBColor(O),BEndIfx=x+150Nextjx=0y=y+150Nexti上为穿综图的绘法PicLLine(x,y)-(x,y300)PicLLine(Rj*150,y)-(Rj*150,y+300)y=y+300t=yFori=1ToRwForj=1ToRjIfW(i,j)=1Th

44、enPicLLine(x,y)-(x+150,y+150),QBColor(O),BFElsePicLLine(x,y)-(x+150,y+150),QBColor(O),BEndIfx=x+150Nextjx=0y=y150Nexti上为组织图的绘法PicLLine(Rj*150,t)-(Rj*150+300,t)PicLLine(Rj*150,y)-(Rj*150+300,y)x=Rj*150+300y=tFori=1ToRwForj=1TokIfL(i,j)=1ThenPicLLine(x,y)-(x+150,y+150),QBColor(O),BFElsePicLLine(x,y)-(x+150,y+150),QBCoIor(O),