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

haijun19830603

NUMBER/NO,W(3),MD,ZL,M,CZ,WZ(14,8),N(42),ZT
! ]) H9 G' a3 Z: t1 L2 u* X+ M+ RSTRING/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)
5 X% h: h0 O7 AENTITY/OBJ
DATA/ATT,'DH','','MC','','XH','','AX','','CL','','ZL','','MD',''
$$DATA/SI,'A1','A2','A3','A4'

4 E. B) J7 P' H1 O/ q# {1 }$$IFTHEN/SUBSTR(DATE,9,2)+SUBSTR(DATE,1,2)+SUBSTR(DATE,5,2)>'121231'
: P  r5 Y0 b" F8 r1 X$$        PRINT/'OVERDUE'
$$        JUMP/L999999:
$$ENDIF

START:
DLATT/PART,ALL
( X* v! q4 s% t# PZT=0                                        $$0为模型
NO=1                                        $$工厂代号的位置3为前1为后
DIR='F:\TMG\'                        $$执行程序和数据文件的存放目录
9 Y& C# V! E. o! D: R& eIFTHEN/FNDSTR(&PNAME,'.prt',13)>0        $$读文件号
        W(1)=FNDSTR(&PNAME,'.prt',1)-1
ELSE
        W(1)=FNDSTR(&PNAME,'.PRT',1)-1
8 J0 e$ u- \* N4 M  p! C! QENDIF
2 e4 s6 L# _& e% m, p; {IFTHEN/FNDSTR(&PNAME,'.ZT',1)>0                $$判断是否为制图,1为制图
        W(1)=W(1)-3
& X2 n  x6 g0 R3 l5 N3 |        ZT=1
5 f8 K  t) W9 U- V. [3 b) T* rENDIF
DH=SUBSTR(&PNAME,1,W(1))
+ T* N2 D* E* p, \" y! n' TATT(2)=DH
, S/ O5 w5 X6 x1 g, xASATT/PART,ATT(1..2)
3 ^' l) `& R  A' z3 j. ?
  j& W8 n; w  s! P5 KIFTHEN/SUBSTR(DH,4,1)=='.' AND SUBSTR(DH,8,1)=='.'        $$零部件
7 |' z: y( T6 E        PD=SUBSTR(DH,NO,1)
        IFTHEN/PD=='2' OR PD=='5' OR PD=='6' OR PD=='8'
                IF/PD=='5',PD='8'
/ M. b& s; R& P/ J$ n                FETCH/TXT,1,DIR+'TH.TXT'                $$读图号名称文件
                DO/L10:,I,1,GETL(1)/10
8 E% B2 M2 ^+ A$ e; n                        READ/1,LINNO,I*10,JL(I)
                        IFTHEN/PD+SUBSTR(DH,5,3)==SUBSTR(JL(I),1,4)
* \% ?# W5 l/ Q                                MC=SUBSTR(JL(I),5,20)
                                ATT(4)=MC
                                ASATT/PART,ATT(3..4)
1 h2 s4 {" e& O% L$ {                                JUMP/L20:
                        ENDIF
7 d2 d, `5 K$ y$ n                L10:                $$(DH,5,3)中的8是部类组代号的起始位置
        ENDIF

        L20:                                                $$产品型号
        FETCH/TXT,1,DIR+'CP.TXT'
* Q  ]/ r' Q+ x( o+ W        M=GETL(1)/10
: ~5 Y) M' |8 r% Q        DO/L25:,I,1,M
                READ/1,LINNO,I*10,JL(I)
1 q( F* Z; n$ q5 V; U        L25:
* S# t" v5 y8 S# g        JL(M+1)='键盘输入'
        CHOOSE/'输入产品型号',JL(1..M+1),DEFLT,1,RES
3 B: p  l# g: {& o0 ^9 N' y! E        IFTHEN/RES-5==M
9 x8 X  r5 n  `$ c/ c, e                TEXT/'输入型号',JL(M+1),RSP
, q9 E9 t" v2 n# ?1 S: r                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)
' i# {4 J5 n5 h# o4 H! }% k$$                ASATT/PART,ATT(7..8)
$$        ENDIF
* E; l1 M2 M  B2 J
+ F9 ^/ q. N/ E/ x7 p        IFTHEN/SUBSTR(DH,1,1)<>'8'                        $$判断是零件还是部件
/ z  o- Q# ~7 v                CHOOSE/'是否为装配件','是','否',DEFLT,1,RES
" N# K4 l2 [+ f5 U                IF/RES==5,JUMP/L999999:
* ?5 K( {: x. s        ENDIF
6 e$ I) q3 N+ j# |
0 k7 z- c0 i- N5 \        L70:
; J5 R3 z" Z# d& |( [' R* ~        CHOOSE/'请选择材料种类','黑色金属','有色金属','电工材料','绝缘材料',DEFLT,1,RES
        IF/RES==1,JUMP/L90:
        IF/RES==2,JUMP/L999999:
  q: p  s+ ]: w2 ~! E        IF/RES==5,NO=0
        IF/RES==6,NO=59
0 T9 D' s; a9 ^8 R& v* x        IF/RES==7,NO=100
( p5 b  f& [- E        IF/RES==8,NO=129
  _9 r$ G4 k* A        FETCH/TXT,1,DIR+'CL.TXT'                $$读文件
# C; y/ o1 n* f9 O, N$ N2 h0 x        M=GETL(1)
# a: W4 g  x: o) B        L73:
        DO/L76:,I,1,14
                IFTHEN/NO+I<=M
- q  A: p! H7 W                        READ/1,LINNO,(NO+I)*10,FL(I)
                        W(1)=FNDSTR(FL(I),'@',1)
4 g; Z. L# y3 j9 D  L  U3 p                        W(2)=FNDSTR(FL(I),'@',W(1)+1)
                        BS(I)=SUBSTR(FL(I),W(1)+1,W(2)-W(1)-1)
                ENDIF
( E5 O# D" k$ q# p! d        L76:
        CHOOSE/'请选择材料型号',BS(1..14),ALTACT,'下一页',RES
1 I. ^) e& }& `; N        IFTHEN/RES==1
+ K! g& ~+ ^! c- r* b/ W                IF/NO==0,JUMP/L70:
# y$ k7 ]+ ?2 Z3 D) b& L5 Y                IF/NO==59,JUMP/L70:
                IF/NO==100,JUMP/L70:
( E) `3 e/ _6 E3 o) S+ i! s                IF/NO==129,JUMP/L70:
9 m8 i  Z7 @) L) K7 W: W3 e% h                NO=NO-14
                JUMP/L73:
        ELSEIF/RES<2
1 P' {, |2 G! I# j5 H! r0 \. t                JUMP/L999999:
4 e9 Z- @& y+ }        ELSEIF/RES==4
9 U( u9 _# H9 U% W) J8 X" |                NO=NO+14
+ N4 l! ^, _, T9 Q8 x                IFTHEN/NO+14>59 AND NO<59
                        NO=0
                ELSEIF/NO+14>100 AND NO<100
6 f; C4 r& w) t                        NO=59
                ELSEIF/NO+14>129 AND NO<129
                        NO=100
, ~1 e  D3 _) ^6 G                ELSEIF/NO+14>180 AND NO<180
+ F% d; |  ?4 ~2 W4 u, x% b! V                        NO=129
7 {4 ?8 e! a; u: Q2 ~5 f- I) b# c* R- B2 o                ENDIF
                JUMP/L73:
        ENDIF
7 C% U! g5 |% n- J+ {        M=RES-4
        W(1)=FNDSTR(FL(M),'@',1)
- @* n  L+ w6 e1 g        W(2)=FNDSTR(FL(M),'@',W(1)+1)
# ~5 I6 T+ V5 V        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
- N; }" A  ]  e# S7 S1 Z! c                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
( ^: O. x( B9 v3 W9 i' {& x                ANLSIS/SOLID,OBJ,GCM,N
! U9 }4 t5 i. I% n' H& [) {                ATT(12)=SUBSTR(FSTR(N(3)),1,4)+'g'        $$重量
                ASATT/PART,ATT(11..14)
/ I9 L& s, S# M, w& l$ K, d        ENDIF
6 \8 I) k( }6 `& [: ]: d  u# tELSEIF/SUBSTR(DH,1,2)=='GB'        $$标准件名称
( Y' ~- {& e- W5 t0 Z+ k6 P        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)
8 m* i: i$ w- T" T5 U3 k                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
" g& Y( \$ A& i                        ASATT/PART,ATT(3..4)
                        JUMP/L50:
                ENDIF
- b4 L. `$ i0 ?% M0 }& ^$ [" ^& T        L40:
% t& C% j) y1 C* \2 l! ^* z9 Y        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
5 V  L$ K# e$ l                IFTHEN/SUBSTR(DH,3,W(1))<>SUBSTR(JL(I),2,W(2))
# E, \  j! O3 x, l. g# z                        MC=SUBSTR(JL(I),W(2)+2,15)
                        ATT(4)=MC
% g. P$ C( \. m, D4 u                        ASATT/PART,ATT(3..4)
$ ]" y5 S$ e$ x                        JUMP/L50:
) R3 z  I! [: |% K# p! N                ENDIF
- L4 ^6 G9 S6 s' _# c. o; N( e- s; ~        L45:
4 y# v; P  Z% D  [* `/ d. X        L60:
* O) J/ b" k. \ENDIF
, C9 B' N$ I: c- ~5 b3 m- WL90:

9 @0 S8 _* j3 n
  m3 y0 e/ @8 d3 t  tL999999:
5 r0 P/ i4 Y8 t- B6 ?; yHALT

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

ypcopy

1 x1 q7 d! K% l6 b
string/dh(30),mc(30),dir(132),partname(132),att(14,55)

START:
DLATT/PART,ALL
, Y5 }5 |3 u7 p" s% [9 \  V0 GZT=0                                        $$0为模型
NO=1                                        $$工厂代号的位置3为前1为后
& T' @7 i) e- Cdir='D:\'  

8 r) L& r/ v3 |; `, a# _print/&pname           $$从 asdf.zt.prt中截取输出asdf.zt.prt
) ], R2 A! G/ x! I4 M' f% N: r8 W
ifthen/fndstr(&pname,'.prt',1)>0    $$从 asdf.zt.prt中截取输出asdf.zt
dh=substr(&pname,1,fndstr(&pname,'.prt',1)-1)
; t# p; b; E* q* S* Belse
- r* l1 t' Q' q& B. d; y9 Q4 c  [4 ddh=substr(&pname,1,fndstr(&pname,'.PRT',1)-1)
endif
& E$ `+ `% }  m9 d6 T4 K! [5 T3 eprint/dh
# o- c0 c# Z& W! `; {' W0 k1 F
+ O% s$ G4 i' b4 g- hifthen/fndstr(dh,'zt',1)>0   $$从 asdf.zt.prt中截取输出asdf
dh=substr(dh,1,lenf(dh)-3)
endif
print/dh
) U) b& E1 q3 _END:
halt


3 H7 C3 g! N0 n

haijun19830603

ypcopy 发表于 2014-11-2 21:51
string/dh(30),mc(30),dir(132),partname(132),att(14,55)

9 H* B, U3 @- RSTART:

0 l9 g. `! c% n) l8 B大神    你的不可以用呀~~~        怎么回事呢~~~   现在不懂~~~

ypcopy

见      图
1 u7 X* y- ?( |8 j

haijun19830603

ypcopy 发表于 2014-11-3 12:39
见      图

, Y8 ^3 T, M  l9 f你好！    又有新的问题了，请指导下，感谢哈！！！
( I5 S; O/ z" o5 U0 e

ypcopy

设置 代号这一列属性
6 s, B) K8 P3 I& G

haijun19830603

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

- j( [4 q$ \9 R' K( X我用的是4.0     注释样式这个功能键我怎么没找到   郁闷~~~~~   请告之
+ j9 K4 u. C4 F

ypcopy

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

haijun19830603

ypcopy 发表于 2014-11-7 18:07
  |' J5 @# }& @* c6 U8.0 选择代号这一列 后右键选样式就会出来

请看下，是不是我哪里设置的不对~~~~~
, L, t: C& _( t7 W# C

ypcopy

4也有啊