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

haijun19830603

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)
) n- l  G2 n6 _1 m. m  aENTITY/OBJ
# X" \6 G$ `4 `( i' S0 D9 R' NDATA/ATT,'DH','','MC','','XH','','AX','','CL','','ZL','','MD',''
/ n! A+ e' P/ A9 F  d$ p$$DATA/SI,'A1','A2','A3','A4'
" `$ x# Y, W1 e/ o4 o3 D& B
$$IFTHEN/SUBSTR(DATE,9,2)+SUBSTR(DATE,1,2)+SUBSTR(DATE,5,2)>'121231'
$$        PRINT/'OVERDUE'
6 }! s" [" C" }- \2 A$$        JUMP/L999999:
$$ENDIF

START:
DLATT/PART,ALL
ZT=0                                        $$0为模型
4 F; E7 H$ s6 X/ P, VNO=1                                        $$工厂代号的位置3为前1为后
DIR='F:\TMG\'                        $$执行程序和数据文件的存放目录
5 p4 ]$ w' Q2 }, ^IFTHEN/FNDSTR(&PNAME,'.prt',13)>0        $$读文件号
2 y, @) u6 }3 I. W7 \        W(1)=FNDSTR(&PNAME,'.prt',1)-1
  O! g9 L0 d7 a5 G0 G$ y/ M  V! TELSE
        W(1)=FNDSTR(&PNAME,'.PRT',1)-1
$ ^6 k, D6 a+ n, }- z$ B1 [1 FENDIF
5 _8 ]5 v( d7 y" ]" T6 Q+ CIFTHEN/FNDSTR(&PNAME,'.ZT',1)>0                $$判断是否为制图,1为制图
% }9 ^$ B" O; [2 T4 G' ~5 a        W(1)=W(1)-3
! ~* b* j! n- J        ZT=1
ENDIF
DH=SUBSTR(&PNAME,1,W(1))
# c# D" n6 g- o# e' E9 vATT(2)=DH
ASATT/PART,ATT(1..2)
- ?: V6 p1 a! g8 |7 J
IFTHEN/SUBSTR(DH,4,1)=='.' AND SUBSTR(DH,8,1)=='.'        $$零部件
        PD=SUBSTR(DH,NO,1)
  W- F! k% o% \# F9 \        IFTHEN/PD=='2' OR PD=='5' OR PD=='6' OR PD=='8'
                IF/PD=='5',PD='8'
& Y# Z6 \2 t3 J4 w" J                FETCH/TXT,1,DIR+'TH.TXT'                $$读图号名称文件
                DO/L10:,I,1,GETL(1)/10
                        READ/1,LINNO,I*10,JL(I)
  O# W/ T% C1 X                        IFTHEN/PD+SUBSTR(DH,5,3)==SUBSTR(JL(I),1,4)
' e" N; ]& [; c9 |# Y& ^, y) D* R1 O                                MC=SUBSTR(JL(I),5,20)
                                ATT(4)=MC
                                ASATT/PART,ATT(3..4)
                                JUMP/L20:
% K, a& }  R' a" P+ m) k  G                        ENDIF
                L10:                $$(DH,5,3)中的8是部类组代号的起始位置
        ENDIF
, y# ^) N! ^- x
        L20:                                                $$产品型号
        FETCH/TXT,1,DIR+'CP.TXT'
2 W# i+ u( `8 }! R5 C        M=GETL(1)/10
' z, X7 K/ N, r        DO/L25:,I,1,M
                READ/1,LINNO,I*10,JL(I)
2 p, v) c4 ^% S1 D4 n        L25:
( n7 T  O6 O/ j) S        JL(M+1)='键盘输入'
: x& D; s. @3 m" D! A5 N* k2 H        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)
" c& e7 a# v6 C: \' m. ^        ASATT/PART,ATT(5..6)

9 Z( ^& s+ z0 T5 B& }$$        IFTHEN/ZT==0
$$                L30:
. s6 }7 A. p. \5 P9 C% }; y. f( a$$                CHOOSE/'请选择图纸幅面',SI(1..4),DEFLT,4,RES
4 \( C7 w/ A% |3 \8 ~$ O$$                JUMP/L30:,L999999:,,,RES
$$                ATT(8)=SI(RES-4)
; g8 b7 L. M; P$$                ASATT/PART,ATT(7..8)
$$        ENDIF

        IFTHEN/SUBSTR(DH,1,1)<>'8'                        $$判断是零件还是部件
$ I4 w3 @0 k/ c% E& s1 A                CHOOSE/'是否为装配件','是','否',DEFLT,1,RES
                IF/RES==5,JUMP/L999999:
) W7 P5 q8 \( E) Y( H- ?        ENDIF

) ?* G3 e( O. a7 B. s) b( O, M        L70:
: ?" g$ h  J0 d5 C4 {4 m. e        CHOOSE/'请选择材料种类','黑色金属','有色金属','电工材料','绝缘材料',DEFLT,1,RES
) v. i- |, s# [$ u+ a& ~        IF/RES==1,JUMP/L90:
1 M. g: [$ x) z  Q        IF/RES==2,JUMP/L999999:
1 d# m" K' t1 V8 p        IF/RES==5,NO=0
        IF/RES==6,NO=59
* {2 p3 C. U( m4 A& K        IF/RES==7,NO=100
        IF/RES==8,NO=129
        FETCH/TXT,1,DIR+'CL.TXT'                $$读文件
3 t/ v) W' L$ \4 b" \1 J5 x# [        M=GETL(1)
        L73:
) `" H5 `' ]+ `; N8 ]        DO/L76:,I,1,14
) B2 ^7 l/ A* t9 w                IFTHEN/NO+I<=M
& T, k, A$ U! P: \                        READ/1,LINNO,(NO+I)*10,FL(I)
                        W(1)=FNDSTR(FL(I),'@',1)
                        W(2)=FNDSTR(FL(I),'@',W(1)+1)
% q$ K- G+ e, J2 k. \' E& ]& U/ I                        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:
" x2 o6 K; o1 O* c. b( I                IF/NO==59,JUMP/L70:
                IF/NO==100,JUMP/L70:
                IF/NO==129,JUMP/L70:
                NO=NO-14
                JUMP/L73:
        ELSEIF/RES<2
- m+ E" Y: o( @& n                JUMP/L999999:
# `) Y' n4 {8 D5 t( s$ X! Y        ELSEIF/RES==4
                NO=NO+14
                IFTHEN/NO+14>59 AND NO<59
                        NO=0
7 e& i3 u5 \: H& w: {+ y                ELSEIF/NO+14>100 AND NO<100
                        NO=59
                ELSEIF/NO+14>129 AND NO<129
                        NO=100
8 ~* U/ b7 x" Y& L2 ?. S' n' \                ELSEIF/NO+14>180 AND NO<180
7 \6 Z+ f3 n7 ?9 b* X6 m. ]: o  _                        NO=129
                ENDIF
& s0 m( G- [5 s                JUMP/L73:
        ENDIF
9 Z1 G" [) `$ s        M=RES-4
3 n# U  {: E. Z: N4 x" @7 z, Y        W(1)=FNDSTR(FL(M),'@',1)
        W(2)=FNDSTR(FL(M),'@',W(1)+1)
! U' p; @0 ~5 G! ?  ?" k        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
% v4 ?, Y; }; h2 w" _6 J' K                MASK/70
6 @$ u  H( u* l/ H. V; l                IDENT/'选择零件',SCOPE,WORK,OBJ,CNT,NO,RES
! q: h8 R  y; I                ATT(14)=SUBSTR(FL(M),W(2)+1,W(3)-W(2))
                MD=VALF(ATT(14))
                &SDUNIT=3
5 @/ b8 ~0 q! `! V* O4 _- h                &SDENS(OBJ)=MD
                ANLSIS/SOLID,OBJ,GCM,N
8 d* N) q3 {& E& J/ v' ^1 O                ATT(12)=SUBSTR(FSTR(N(3)),1,4)+'g'        $$重量
                ASATT/PART,ATT(11..14)
        ENDIF
5 W5 A, g$ G) e3 e5 n' JELSEIF/SUBSTR(DH,1,2)=='GB'        $$标准件名称
- E# s3 ~1 D+ U( _9 k% A. Q- z, {        W(1)=FNDSTR(DH,'-',1)
8 [6 i  Y/ u. S        FETCH/TXT,1,DIR+'JGJ.TXT'
% x+ |) W7 J' N, ~1 `        DO/L40:,I,1,GETL(1)/10
                READ/1,LINNO,I*10,JL(I)
/ W7 t* }+ ^8 k: Y8 O                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
1 O- p2 h% W& t                        ASATT/PART,ATT(3..4)
4 _* K: [' b6 |& W9 e& F4 c1 O$ ]                        JUMP/L50:
                ENDIF
        L40:
- e8 o  R. u. `4 o* y  c        L50:
' K. D$ T+ a  R; ?2 z9 FELSE                                $$外购件
        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)
! h. V  g3 ~! H0 f                W(2)=FNDSTR(JL(I),'-',2)-1
                IFTHEN/SUBSTR(DH,3,W(1))<>SUBSTR(JL(I),2,W(2))
8 m: h3 p  V9 X& v: b4 t                        MC=SUBSTR(JL(I),W(2)+2,15)
% ?, w" r; W" }! m3 d2 v+ H                        ATT(4)=MC
4 V$ ]3 f& c) k, ~' }/ t                        ASATT/PART,ATT(3..4)
/ L: L" X- x1 K( k, ?                        JUMP/L50:
9 N# f( q! f9 K( q3 P" A                ENDIF
6 G& N- V9 u8 ]' \3 x        L45:
        L60:
ENDIF
% h) s9 I( ]6 y7 @0 IL90:

, W# B+ r% f5 i& o8 h0 v
L999999:
HALT
/ p: h9 o' Z9 e3 s
4 Q2 t! j0 g" Z; R  S里面27、31、32、70、134、135、140  在操作过程中提示字符串无效！！！！  请大神们看看哈  怎么回事
5 J" B5 {6 {  h; k; i& u

ypcopy

: Q2 r( M" D3 G, r0 }0 k0 y3 m
string/dh(30),mc(30),dir(132),partname(132),att(14,55)
; H$ Q" z$ j8 s# c
+ V3 A- y  d. l4 Y' FSTART:
! `0 g1 a. o% c' G7 PDLATT/PART,ALL
% n% t) V+ ^2 `4 IZT=0                                        $$0为模型
4 Y+ w* Z2 V0 l1 kNO=1                                        $$工厂代号的位置3为前1为后
6 U1 A% |2 I& ^dir='D:\'  

4 j4 i3 \0 v8 I8 e) w$ F- b5 Vprint/&pname           $$从 asdf.zt.prt中截取输出asdf.zt.prt
: @) ~! R+ Y+ X4 |$ i, P
' }; A  x3 v* a  Vifthen/fndstr(&pname,'.prt',1)>0    $$从 asdf.zt.prt中截取输出asdf.zt
( M/ V4 e. ^* e0 N8 @dh=substr(&pname,1,fndstr(&pname,'.prt',1)-1)
+ Z' k) L% x2 T  xelse
4 h* s' P# ?, I2 l: S4 ndh=substr(&pname,1,fndstr(&pname,'.PRT',1)-1)
! k' I# m3 p8 s5 K2 l/ fendif
, ]( C3 `6 k; ~$ p6 Gprint/dh

% o: Z* c" w- P- S9 L0 v" h) aifthen/fndstr(dh,'zt',1)>0   $$从 asdf.zt.prt中截取输出asdf
, N/ D& l3 J1 ]9 `5 i: \dh=substr(dh,1,lenf(dh)-3)
endif
# f/ l& x+ f4 x2 U9 f- H1 \print/dh
END:
/ _7 V+ _& l7 _( x* S2 ]halt

* `, [' ?/ Z- u* U! A" D. [( B
4 ?$ J# o$ j" C* x3 a

haijun19830603

ypcopy 发表于 2014-11-2 21:51
% x+ ~: }8 L' l: j0 ^' Pstring/dh(30),mc(30),dir(132),partname(132),att(14,55)
# d) U  `6 ?  l% y3 k, ?
, c) {$ K, z% f! Y3 u6 L7 WSTART:

/ q" t4 V( t$ f# ^. k% m) V$ k大神    你的不可以用呀~~~        怎么回事呢~~~   现在不懂~~~

ypcopy

见      图

haijun19830603

ypcopy 发表于 2014-11-3 12:39
( [$ x' z4 o, X见      图

6 b( Z# |3 Y  F你好！    又有新的问题了，请指导下，感谢哈！！！

ypcopy

设置 代号这一列属性

haijun19830603

ypcopy 发表于 2014-11-7 12:42
设置 代号这一列属性

; O: w, K& b1 g( ?; W: q我用的是4.0     注释样式这个功能键我怎么没找到   郁闷~~~~~   请告之
- }! p0 n# J/ m1 _

ypcopy

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

haijun19830603

ypcopy 发表于 2014-11-7 18:07
- ^; K. ^3 `4 Q# |! Z( j. j8.0 选择代号这一列 后右键选样式就会出来

9 o9 L: ^1 T8 ~8 c请看下，是不是我哪里设置的不对~~~~~

ypcopy

4也有啊