请高手帮忙看看 那里出错了（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)
9 c) T+ D; X. YENTITY/OBJ
DATA/ATT,'DH','','MC','','XH','','AX','','CL','','ZL','','MD',''
  t2 o) t) |  n& Y. q4 B5 R2 I$$DATA/SI,'A1','A2','A3','A4'

$$IFTHEN/SUBSTR(DATE,9,2)+SUBSTR(DATE,1,2)+SUBSTR(DATE,5,2)>'121231'
$$        PRINT/'OVERDUE'
2 {, V  T- ]/ ~; j3 g2 _! }8 G$$        JUMP/L999999:
6 O2 \! y: ]% E6 I, s6 e+ Z5 Q$$ENDIF

START:
DLATT/PART,ALL
, K' t$ v) O$ X. DZT=0                                        $$0为模型
NO=1                                        $$工厂代号的位置3为前1为后
: r8 @! v3 R* `# e3 aDIR='F:\TMG\'                        $$执行程序和数据文件的存放目录
9 w7 T) T% d& w% _+ jIFTHEN/FNDSTR(&PNAME,'.prt',13)>0        $$读文件号
        W(1)=FNDSTR(&PNAME,'.prt',1)-1
: |/ S5 T. N( V) D9 A) Z/ r0 jELSE
' N: S; K, g; z- P        W(1)=FNDSTR(&PNAME,'.PRT',1)-1
, e9 E, }' m$ J- BENDIF
5 V6 ?5 C( A6 V3 N/ ]/ cIFTHEN/FNDSTR(&PNAME,'.ZT',1)>0                $$判断是否为制图,1为制图
+ y& |% @9 Y/ [9 w' a8 {        W(1)=W(1)-3
, z7 X3 J& W" h" Y# k  j        ZT=1
2 W% o, N5 I$ P" D7 d2 `+ `1 KENDIF
DH=SUBSTR(&PNAME,1,W(1))
/ b+ T# F! s$ D' ZATT(2)=DH
ASATT/PART,ATT(1..2)

8 n, r/ c% M' h' e! g# Z+ YIFTHEN/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'
) |! y9 B8 f  T# t+ @8 V                IF/PD=='5',PD='8'
                FETCH/TXT,1,DIR+'TH.TXT'                $$读图号名称文件
( g! W; ?$ B+ [# A& w                DO/L10:,I,1,GETL(1)/10
+ |+ E8 z, @' A2 W& ~3 p                        READ/1,LINNO,I*10,JL(I)
. E' e6 u1 b2 ?. q" {% w) ?                        IFTHEN/PD+SUBSTR(DH,5,3)==SUBSTR(JL(I),1,4)
                                MC=SUBSTR(JL(I),5,20)
/ g. S$ D' }/ p6 s8 ^# Z                                ATT(4)=MC
                                ASATT/PART,ATT(3..4)
                                JUMP/L20:
$ x1 N! s1 r; B                        ENDIF
                L10:                $$(DH,5,3)中的8是部类组代号的起始位置
        ENDIF

        L20:                                                $$产品型号
$ l. k* o6 x6 }5 M        FETCH/TXT,1,DIR+'CP.TXT'
        M=GETL(1)/10
# i* p8 g$ U3 l$ I# G! t        DO/L25:,I,1,M
                READ/1,LINNO,I*10,JL(I)
7 j' [" Z2 A4 r$ v6 u7 x        L25:
        JL(M+1)='键盘输入'
- K( `, b9 f7 }  b9 L        CHOOSE/'输入产品型号',JL(1..M+1),DEFLT,1,RES
0 B  t' b& [- S: n        IFTHEN/RES-5==M
8 _' f% h) Q9 i% C! b3 I                TEXT/'输入型号',JL(M+1),RSP
                JUMP/L20:,L999999:,,,RSP
! Y! ~4 {8 b1 B6 }' @3 D+ H        ENDIF
        ATT(6)=JL(RES-4)
# y; Y. k; O) d- g2 ]* S        ASATT/PART,ATT(5..6)

$$        IFTHEN/ZT==0
1 u0 |" v1 [1 e5 A; o- R: |$$                L30:
$$                CHOOSE/'请选择图纸幅面',SI(1..4),DEFLT,4,RES
$ `$ D4 z9 L# E$$                JUMP/L30:,L999999:,,,RES
1 J8 |* y4 \$ j& R& [+ x) h$$                ATT(8)=SI(RES-4)
$$                ASATT/PART,ATT(7..8)
$$        ENDIF

        IFTHEN/SUBSTR(DH,1,1)<>'8'                        $$判断是零件还是部件
                CHOOSE/'是否为装配件','是','否',DEFLT,1,RES
6 P) }* s2 E3 g% n# w0 n                IF/RES==5,JUMP/L999999:
        ENDIF

        L70:
        CHOOSE/'请选择材料种类','黑色金属','有色金属','电工材料','绝缘材料',DEFLT,1,RES
        IF/RES==1,JUMP/L90:
        IF/RES==2,JUMP/L999999:
; _, Z. A0 I2 \        IF/RES==5,NO=0
+ H9 y$ P  x1 z& a        IF/RES==6,NO=59
. P3 c1 a6 j/ T5 N3 g        IF/RES==7,NO=100
        IF/RES==8,NO=129
4 `& h( d" z4 H* u* I# k        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)
3 O4 a. I0 L' J. z# ^                ENDIF
$ h6 D$ n0 O' ]. N- v        L76:
+ N$ p' l0 p. ^2 n) f9 h  K# m- w; M        CHOOSE/'请选择材料型号',BS(1..14),ALTACT,'下一页',RES
2 A$ s2 k: t' d$ Q* r$ `$ i        IFTHEN/RES==1
3 I/ r( b; C: }" E                IF/NO==0,JUMP/L70:
0 ?0 o) V& G/ [                IF/NO==59,JUMP/L70:
                IF/NO==100,JUMP/L70:
                IF/NO==129,JUMP/L70:
4 ~- N2 b5 m, }2 i0 w% e8 W' ^                NO=NO-14
! L8 F4 C2 v" h3 y! Y: m                JUMP/L73:
        ELSEIF/RES<2
' ?( k) l) f) t0 ^0 y0 n. l/ ~                JUMP/L999999:
        ELSEIF/RES==4
                NO=NO+14
" [" c$ n& r( |# |( o) p2 J0 m                IFTHEN/NO+14>59 AND NO<59
2 ?8 _; Q( C7 q                        NO=0
                ELSEIF/NO+14>100 AND NO<100
                        NO=59
1 n+ W& g  n5 ~$ i3 j  A# y                ELSEIF/NO+14>129 AND NO<129
4 L; N1 S! Z1 M2 n" g4 ~* x$ L                        NO=100
                ELSEIF/NO+14>180 AND NO<180
1 w. P; w$ ?  y3 f7 n                        NO=129
                ENDIF
& U( U& O/ q7 c% Q4 ^                JUMP/L73:
        ENDIF
2 e3 \/ y3 O4 X: k* v; Y5 g. h        M=RES-4
4 A3 U2 l% w* l7 w+ h! [6 X        W(1)=FNDSTR(FL(M),'@',1)
        W(2)=FNDSTR(FL(M),'@',W(1)+1)
" S& u1 x. ^# I) B9 O6 {! T; c( q        W(3)=LENF(FL(M))
, o- h7 q" o1 M* k8 i' y3 Q% k        ATT(10)=SUBSTR(FL(M),W(1)+1,W(2)-W(1)-1)
        ASATT/PART,ATT(9..10)
2 R+ W' p0 c, j! C: V        IFTHEN/ZT==0
) z, i8 R! E9 g, m# h  V% o0 W% |) s3 h                MASK/70
                IDENT/'选择零件',SCOPE,WORK,OBJ,CNT,NO,RES
  y" U0 e$ V) K, I/ F                ATT(14)=SUBSTR(FL(M),W(2)+1,W(3)-W(2))
: j0 a2 Y  G: d/ G                MD=VALF(ATT(14))
+ m: S. q: z$ J+ ^' c- ^                &SDUNIT=3
                &SDENS(OBJ)=MD
* H' o4 u/ }( h; ^7 Y" ?                ANLSIS/SOLID,OBJ,GCM,N
                ATT(12)=SUBSTR(FSTR(N(3)),1,4)+'g'        $$重量
                ASATT/PART,ATT(11..14)
        ENDIF
& A' L) \, @# {* ^# KELSEIF/SUBSTR(DH,1,2)=='GB'        $$标准件名称
        W(1)=FNDSTR(DH,'-',1)
' L; p: I9 Q& Z' U9 N2 i) t        FETCH/TXT,1,DIR+'JGJ.TXT'
+ E( Y3 t' K8 ]0 u  Y4 x: O* [( U        DO/L40:,I,1,GETL(1)/10
# C% x* I4 t/ F                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))
( x8 {/ l  b9 ?9 F* c                        ATT(4)=MC
9 I( g8 m/ V+ o% n                        ASATT/PART,ATT(3..4)
9 ?) t. H+ \! I7 r0 M8 ~                        JUMP/L50:
                ENDIF
        L40:
        L50:
ELSE                                $$外购件
) g. S( T' f7 M' s        W(1)=FNDSTR(DH,'-',1)-1
        FETCH/TXT,1,DIR+'WGJ.TXT'
        DO/L45:,I,1,GETL(1)/10
# x" s& F9 h: A4 P- j, R                READ/1,LINNO,I*10,JL(I)
& F& P1 R4 v5 _, U. g                W(2)=FNDSTR(JL(I),'-',2)-1
7 u  c# _! Q) G9 n                IFTHEN/SUBSTR(DH,3,W(1))<>SUBSTR(JL(I),2,W(2))
                        MC=SUBSTR(JL(I),W(2)+2,15)
                        ATT(4)=MC
3 r& A& X; g) F8 C& l0 a2 i6 J3 J& R                        ASATT/PART,ATT(3..4)
                        JUMP/L50:
) |4 W9 \! w% G                ENDIF
1 A- i7 p+ s+ l4 f8 f. d        L45:
5 \  S+ M% @$ c& T4 \; y: H        L60:
/ S- o* X  C2 W. ^ENDIF
& ?4 E& K, e: G! ~L90:
" q& i& c! F9 g. T8 N

L999999:
HALT

! A+ @3 Q+ c/ L6 W& }里面27、31、32、70、134、135、140  在操作过程中提示字符串无效！！！！  请大神们看看哈  怎么回事
$ V' N! d" A  k/ V. I

ypcopy

' {0 N9 A1 J% B# j8 Lstring/dh(30),mc(30),dir(132),partname(132),att(14,55)
; H) P$ E) C" I9 Y4 D4 v* U
* H1 R, _5 r: p: t% M) S  ISTART:
DLATT/PART,ALL
ZT=0                                        $$0为模型
4 L7 y7 a5 E7 ?1 ~- `2 jNO=1                                        $$工厂代号的位置3为前1为后
& y8 R% V/ G2 Z+ F* Ydir='D:\'  
: I" z* n% h: K' \$ C( S! L# k
" e; \+ y9 Y& w, I* Zprint/&pname           $$从 asdf.zt.prt中截取输出asdf.zt.prt

ifthen/fndstr(&pname,'.prt',1)>0    $$从 asdf.zt.prt中截取输出asdf.zt
6 [# L6 b4 l2 L$ Y' zdh=substr(&pname,1,fndstr(&pname,'.prt',1)-1)
1 T) p- i+ r% celse
dh=substr(&pname,1,fndstr(&pname,'.PRT',1)-1)
( D1 v" e: c2 b5 `: l, B% l6 Aendif
6 L2 A3 ~5 x+ h0 m. c9 E, \( s. Iprint/dh
# \! l6 C" z7 d9 t5 {
ifthen/fndstr(dh,'zt',1)>0   $$从 asdf.zt.prt中截取输出asdf
dh=substr(dh,1,lenf(dh)-3)
endif
print/dh
END:
halt
# e% }- Z3 c/ I, k) Z

haijun19830603

ypcopy 发表于 2014-11-2 21:51
: b5 A6 v3 M# F! Y3 Wstring/dh(30),mc(30),dir(132),partname(132),att(14,55)

START:

4 i$ c  b0 b2 G# x. Q/ m大神    你的不可以用呀~~~        怎么回事呢~~~   现在不懂~~~

ypcopy

见      图

haijun19830603

ypcopy 发表于 2014-11-3 12:39
2 q- \; l6 `% X* Z9 D见      图

5 K* `) G4 \3 C% b1 ^2 E你好！    又有新的问题了，请指导下，感谢哈！！！
: `1 S5 P  j+ {. j- y

ypcopy

设置 代号这一列属性

haijun19830603

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

; b. v2 O9 h: H" h我用的是4.0     注释样式这个功能键我怎么没找到   郁闷~~~~~   请告之
* Y- E6 J0 P( f. j* B

ypcopy

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

haijun19830603

ypcopy 发表于 2014-11-7 18:07
8.0 选择代号这一列 后右键选样式就会出来

2 ^! r; E+ K* u; _& W2 u; L$ N+ g$ Q请看下，是不是我哪里设置的不对~~~~~
  h8 D! \7 Y) A: _2 ?( H

ypcopy

4也有啊