NC程序单原代码

axjl_yd

我的NC程序单原代码，是调用后置出的.xl文件的，可时当时是好的，关闭文件再打开图框就不见了，那位好友知道指导一下，非常感谢！！
原代码如下：
entity/obj(40),PNT(10),obj4(6)
entity/obj1,obj2,obj3,pl(6)
8 S, `- s3 M' n" z8 k8 Anumber/num,num1,d(7),a(6),b(6),po(3),pd(3),pw(3),i,j
number/size1(20),i1,j1,th,pos,maxsize,scl1,i2,j2,M(12)
, ?/ j- }* H6 V. y4 @number/texts,texth,ncd(2),nx,ny,nct(2),ncf(2)
string/image(8),b1(60)
) `& v6 G2 P) u! a, O  f5 v/ wstring/dir1(90),dir2(90),dir3(90),dirf(99)
# W, D2 R4 M* X# q2 E, R) IDATA/image,'#@@@@.@@'
$$ 读入设置文件
dopen/'d:\tool'
3 _, o( c) s0 a9 @) r2 t. p7 h* zfetch/txt,1,'d:\tool\config.txt',iferr,err:
- z1 U2 y3 N1 {# k  zreset/1
  r! W' ~0 r: N& W- c& `n10:
read/1,linno,10,using,image,ifend,n20:,iferr,err1:,texts
read/1,linno,20,using,image,ifend,n20:,iferr,err1:,ncd
, w3 ?6 e, {3 x) l. k3 v, `0 Rread/1,linno,30,using,image,ifend,n20:,iferr,err1:,texth
/ F, l. d- G3 L1 uread/1,linno,120,using,image,ifend,n20:,iferr,err1:,scl1
# r$ \& x; s+ t/ I  nread/1,linno,130,using,image,ifend,n20:,iferr,err1:,nct
read/1,linno,140,using,image,ifend,n20:,iferr,err1:,ncf
n20:
fterm/txt,1
dclose
4 H+ n- ?6 l% W- [' @) A  ^7 X( C$$导入图纸
4 F1 a% p6 V6 |0 j% p  PATRET/'D:\tool\PATTEM\nc.prt',IFERR,PATERR:
  &DSTATE=2
/ d! `( X! p( u0 nnc:
$$NC程序标注
&ENSITE=&TOPL
&ASPECT=0.8
&CSIZE=texts
nx=ncd(1)
ny=ncd(2)
8 g7 s& S$ g' k2 |3 w8 Y$ n  I2 \/ g$$ 打开程序文件
8 G. @' {5 D1 k1 }5 u- [! J  [dir1='e:\NC\'
dir2=&pname
pos=fndstr(dir2,'.',1)
/ Z# g! T5 _1 K! f, Edir3=substr(dir2,1,pos)
dirf=dir1+dir3+'xl'
5 {; J7 i3 S' m8 p" m7 I+ R5 p5 Edopen/'e:\NC\'
+ W2 a8 v9 }9 sfetch/txt,1,dirf,iferr,err2:
reset/1
9 W% Z* O" a, h2 f0 [$ l- `n30:
  k3 u8 E0 W" ~& i6 Rread/1,ifend,n40:,iferr,err3:,b1
note/nx,ny,b1
7 }: c! ^; i/ `1 M3 O( Cny=ny-texth
jump/n30:
n40:
0 D8 A  V1 r% Y7 Tfterm/txt,1
fdel/dirf
dclose
2 R3 b3 _5 `8 ]& S+ J/ s& YJUMP/TRM:
PATERR:
        MESSG/'The file nc.prt does not exists!'
        jump/nc:
* e* \" K* {/ V/ UERR1:
1 ]" @+ |: ]! u5 f" |. D5 z        MESSG/'Read file error!'
, R, s$ K5 K) |$ V, u        halt
/ M1 x9 t5 R, j  n8 E: n# xerr:
5 ]# k, G" T4 n! y/ h/ b4 o# w        messg/'The config file does not exists!'
( p/ }% C7 [5 r' r# O        halt
( S% C0 ^, f( {err2:
+ n$ S( F. }+ ]+ A        messg/'The NC file does not exists!'
& W* Q# g5 m7 h& W$ }; O$ o' m        halt
  t# V: U  M0 Z: q1 serr3:
0 D  p  s3 V. D2 y/ t        messg/'Read NC file error!'
        halt
TRM:
        halt

cpp645

这么好的东西啊？

王杰

好东西，d...........

yang-830

好东西!!!!

axjl_yd

那位朋友知道，指点一下，将感激不尽！！！

kclv

把你的外挂发上来看看，可以解决。

axjl_yd

这个就是原文件，还调入了一个图框，NC.PRT

-KASA-

这个简单，加一环境变量，轻松解决，
变量名：UGII_PATDIR
变量值：你的图框路径
7 n. V4 s9 |% k/ ^7 D
更多问题，可加群咨询：94377814

axjl_yd

已经解决，谢谢-KASA- 的帮助

scxdh

指点一下，将感激不尽！！！