请高手帮忙看看那里出错了（UG模型填零件属性的）~~~急

haijun19830603 · 发表于 2014-10-29 13:59

NUMBER/NO,W(3),MD,ZL,M,CZ,WZ(14,8),N(42),ZT
STRING/DIR(50),DH(25),PD(2),JL(300,30),MC(30),ATT(14,50),FL(200,100)
STRING/BS(14,200),JC(100),SI(4,2)
ENTITY/OBJ
DATA/ATT,'DH','','MC','','XH','','AX','','CL','','ZL','','MD',''
$$DATA/SI,'A1','A2','A3','A4'

$$IFTHEN/SUBSTR(DATE,9,2)+SUBSTR(DATE,1,2)+SUBSTR(DATE,5,2)>'121231'
$$ PRINT/'OVERDUE'
$$ JUMP/L999999:
$$ENDIF

START:
DLATT/PART,ALL
ZT=0 $$0为模型
NO=1 $$工厂代号的位置3为前1为后
DIR='F:\TMG\' $$执行程序和数据文件的存放目录
IFTHEN/FNDSTR(&PNAME,'.prt',13)>0 $$读文件号
W(1)=FNDSTR(&PNAME,'.prt',1)-1
ELSE
W(1)=FNDSTR(&PNAME,'.PRT',1)-1
ENDIF
IFTHEN/FNDSTR(&PNAME,'.ZT',1)>0 $$判断是否为制图,1为制图
W(1)=W(1)-3
ZT=1
ENDIF
DH=SUBSTR(&PNAME,1,W(1))
ATT(2)=DH
ASATT/PART,ATT(1..2)

IFTHEN/SUBSTR(DH,4,1)=='.' AND SUBSTR(DH,8,1)=='.' $$零部件
PD=SUBSTR(DH,NO,1)
IFTHEN/PD=='2' OR PD=='5' OR PD=='6' OR PD=='8'
IF/PD=='5',PD='8'
FETCH/TXT,1,DIR+'TH.TXT' $$读图号名称文件
DO/L10:,I,1,GETL(1)/10
READ/1,LINNO,I*10,JL(I)
IFTHEN/PD+SUBSTR(DH,5,3)==SUBSTR(JL(I),1,4)
MC=SUBSTR(JL(I),5,20)
ATT(4)=MC
ASATT/PART,ATT(3..4)
JUMP/L20:
ENDIF
L10: $$(DH,5,3)中的8是部类组代号的起始位置
ENDIF

L20: $$产品型号
FETCH/TXT,1,DIR+'CP.TXT'
M=GETL(1)/10
DO/L25:,I,1,M
READ/1,LINNO,I*10,JL(I)
L25:
JL(M+1)='键盘输入'
CHOOSE/'输入产品型号',JL(1..M+1),DEFLT,1,RES
IFTHEN/RES-5==M
TEXT/'输入型号',JL(M+1),RSP
JUMP/L20:,L999999:,,,RSP
ENDIF
ATT(6)=JL(RES-4)
ASATT/PART,ATT(5..6)

$$ IFTHEN/ZT==0
$$ L30:
$$ CHOOSE/'请选择图纸幅面',SI(1..4),DEFLT,4,RES
$$ JUMP/L30:,L999999:,,,RES
$$ ATT(8)=SI(RES-4)
$$ ASATT/PART,ATT(7..8)
$$ ENDIF

IFTHEN/SUBSTR(DH,1,1)<>'8' $$判断是零件还是部件
CHOOSE/'是否为装配件','是','否',DEFLT,1,RES
IF/RES==5,JUMP/L999999:
ENDIF

L70:
CHOOSE/'请选择材料种类','黑色金属','有色金属','电工材料','绝缘材料',DEFLT,1,RES
IF/RES==1,JUMP/L90:
IF/RES==2,JUMP/L999999:
IF/RES==5,NO=0
IF/RES==6,NO=59
IF/RES==7,NO=100
IF/RES==8,NO=129
FETCH/TXT,1,DIR+'CL.TXT' $$读文件
M=GETL(1)
L73:
DO/L76:,I,1,14
IFTHEN/NO+I<=M
READ/1,LINNO,(NO+I)*10,FL(I)
W(1)=FNDSTR(FL(I),'@',1)
W(2)=FNDSTR(FL(I),'@',W(1)+1)
BS(I)=SUBSTR(FL(I),W(1)+1,W(2)-W(1)-1)
ENDIF
L76:
CHOOSE/'请选择材料型号',BS(1..14),ALTACT,'下一页',RES
IFTHEN/RES==1
IF/NO==0,JUMP/L70:
IF/NO==59,JUMP/L70:
IF/NO==100,JUMP/L70:
IF/NO==129,JUMP/L70:
NO=NO-14
JUMP/L73:
ELSEIF/RES<2
JUMP/L999999:
ELSEIF/RES==4
NO=NO+14
IFTHEN/NO+14>59 AND NO<59
NO=0
ELSEIF/NO+14>100 AND NO<100
NO=59
ELSEIF/NO+14>129 AND NO<129
NO=100
ELSEIF/NO+14>180 AND NO<180
NO=129
ENDIF
JUMP/L73:
ENDIF
M=RES-4
W(1)=FNDSTR(FL(M),'@',1)
W(2)=FNDSTR(FL(M),'@',W(1)+1)
W(3)=LENF(FL(M))
ATT(10)=SUBSTR(FL(M),W(1)+1,W(2)-W(1)-1)
ASATT/PART,ATT(9..10)
IFTHEN/ZT==0
MASK/70
IDENT/'选择零件',SCOPE,WORK,OBJ,CNT,NO,RES
ATT(14)=SUBSTR(FL(M),W(2)+1,W(3)-W(2))
MD=VALF(ATT(14))
&SDUNIT=3
&SDENS(OBJ)=MD
ANLSIS/SOLID,OBJ,GCM,N
ATT(12)=SUBSTR(FSTR(N(3)),1,4)+'g' $$重量
ASATT/PART,ATT(11..14)
ENDIF
ELSEIF/SUBSTR(DH,1,2)=='GB' $$标准件名称
W(1)=FNDSTR(DH,'-',1)
FETCH/TXT,1,DIR+'JGJ.TXT'
DO/L40:,I,1,GETL(1)/10
READ/1,LINNO,I*10,JL(I)
W(2)=FNDSTR(JL(I),'-',1)
IFTHEN/SUBSTR(DH,3,W(1)-3)==SUBSTR(JL(I),1,W(2)-1)
MC=SUBSTR(JL(I),W(2)+1,LENF(JL(I))-W(2))
ATT(4)=MC
ASATT/PART,ATT(3..4)
JUMP/L50:
ENDIF
L40:
L50:
ELSE $$外购件
W(1)=FNDSTR(DH,'-',1)-1
FETCH/TXT,1,DIR+'WGJ.TXT'
DO/L45:,I,1,GETL(1)/10
READ/1,LINNO,I*10,JL(I)
W(2)=FNDSTR(JL(I),'-',2)-1
IFTHEN/SUBSTR(DH,3,W(1))<>SUBSTR(JL(I),2,W(2))
MC=SUBSTR(JL(I),W(2)+2,15)
ATT(4)=MC
ASATT/PART,ATT(3..4)
JUMP/L50:
ENDIF
L45:
L60:
ENDIF
L90:

L999999:
HALT

里面27、31、32、70、134、135、140 在操作过程中提示字符串无效！！！！请大神们看看哈怎么回事

ypcopy · 发表于 2014-11-2 21:51

本帖最后由 ypcopy 于 2014-11-2 21:52 编辑

string/dh(30),mc(30),dir(132),partname(132),att(14,55)

START:
DLATT/PART,ALL
ZT=0                                     $$0为模型
NO=1                                     $$工厂代号的位置3为前1为后
dir='D:\'

print/&pname          $$从 asdf.zt.prt中截取输出asdf.zt.prt

ifthen/fndstr(&pname,'.prt',1)>0 $$从 asdf.zt.prt中截取输出asdf.zt
dh=substr(&pname,1,fndstr(&pname,'.prt',1)-1)
else
dh=substr(&pname,1,fndstr(&pname,'.PRT',1)-1)
endif
print/dh

ifthen/fndstr(dh,'zt',1)>0 $$从 asdf.zt.prt中截取输出asdf
dh=substr(dh,1,lenf(dh)-3)
endif
print/dh
END:
halt

haijun19830603 · 发表于 2014-11-3 09:53

ypcopy 发表于 2014-11-2 21:51, d( i% a# U# @3 w1 k' t' v# l
string/dh(30),mc(30),dir(132),partname(132),att(14,55)4 c7 ?; O9 F# c8 @6 ~1 c
. W, |0 m; \7 J
START:

大神你的不可以用呀~~~ 怎么回事呢~~~ 现在不懂~~~

ypcopy · 发表于 2014-11-3 12:39

见图

haijun19830603 · 发表于 2014-11-7 10:43

ypcopy 发表于 2014-11-3 12:397 }8 q, C# M, G+ H* ?
见图

你好！又有新的问题了，请指导下，感谢哈！！！

ypcopy · 发表于 2014-11-7 12:42

设置代号这一列属性

haijun19830603 · 发表于 2014-11-7 16:27

ypcopy 发表于 2014-11-7 12:42# K. |( v" C! H7 B& |
设置代号这一列属性

我用的是4.0 注释样式这个功能键我怎么没找到郁闷~~~~~ 请告之

ypcopy · 发表于 2014-11-7 18:07

8.0 选择代号这一列后右键选样式就会出来

haijun19830603 · 发表于 2014-11-8 08:32

ypcopy 发表于 2014-11-7 18:07* q: c- p P/ ^, s
8.0 选择代号这一列后右键选样式就会出来

请看下，是不是我哪里设置的不对~~~~~

ypcopy · 发表于 2014-11-8 10:12

4也有啊

		自动登录	找回密码
密码			注册

[疑难] 请高手帮忙看看那里出错了（UG模型填零件属性的）~~~急

浏览过的版块

[疑难] 请高手帮忙看看 那里出错了（UG模型填零件属性的）~~~急

浏览过的版块

[疑难] 请高手帮忙看看那里出错了（UG模型填零件属性的）~~~急