NC程序单原代码

axjl_yd

我的NC程序单原代码，是调用后置出的.xl文件的，可时当时是好的，关闭文件再打开图框就不见了，那位好友知道指导一下，非常感谢！！
原代码如下：
entity/obj(40),PNT(10),obj4(6)
* X  n  S3 h; G2 oentity/obj1,obj2,obj3,pl(6)
4 i. T3 l4 @( ~# W  o$ `4 jnumber/num,num1,d(7),a(6),b(6),po(3),pd(3),pw(3),i,j
" |: W; r, a0 g* Qnumber/size1(20),i1,j1,th,pos,maxsize,scl1,i2,j2,M(12)
number/texts,texth,ncd(2),nx,ny,nct(2),ncf(2)
string/image(8),b1(60)
; g" F* H* W/ Ustring/dir1(90),dir2(90),dir3(90),dirf(99)
DATA/image,'#@@@@.@@'
' K' Y8 b  ?+ |9 |; V2 M$$ 读入设置文件
dopen/'d:\tool'
/ _7 T4 }4 K8 C0 p; i  h7 N5 ]0 ofetch/txt,1,'d:\tool\config.txt',iferr,err:
reset/1
n10:
. g$ V4 Z. T- T+ y1 Lread/1,linno,10,using,image,ifend,n20:,iferr,err1:,texts
read/1,linno,20,using,image,ifend,n20:,iferr,err1:,ncd
read/1,linno,30,using,image,ifend,n20:,iferr,err1:,texth
, b7 E: `; J2 Q( z4 _read/1,linno,120,using,image,ifend,n20:,iferr,err1:,scl1
2 Q7 Z$ V) X* M+ mread/1,linno,130,using,image,ifend,n20:,iferr,err1:,nct
read/1,linno,140,using,image,ifend,n20:,iferr,err1:,ncf
  D6 b6 l! k- I+ _, E) X7 n, n! Jn20:
, p# i) C( H: p2 q% Sfterm/txt,1
' t% \: W5 z+ V& r6 q! t$ n: A% o0 Kdclose
( ]6 [% B" W5 r2 [4 G8 w$$导入图纸
  PATRET/'D:\tool\PATTEM\nc.prt',IFERR,PATERR:
  &DSTATE=2
; }, [/ b7 S' m& }$ q/ O7 X+ hnc:
$$NC程序标注
+ c! f5 z, m3 u! g1 K9 n0 G* Y2 q&ENSITE=&TOPL
% V* c" P3 q* V&ASPECT=0.8
/ X$ m0 n( G& r! d&CSIZE=texts
nx=ncd(1)
ny=ncd(2)
$$ 打开程序文件
: x; v% B% _+ O4 E+ Q' Adir1='e:\NC\'
; Z) B; b3 p6 Z/ L5 K8 H! S% _, ~# Hdir2=&pname
pos=fndstr(dir2,'.',1)
* j+ n4 b! N8 ^% E% {: gdir3=substr(dir2,1,pos)
: [* i9 Q' `. vdirf=dir1+dir3+'xl'
dopen/'e:\NC\'
fetch/txt,1,dirf,iferr,err2:
reset/1
# Z+ r2 y+ s* ~2 J) \8 O3 rn30:
2 B7 H7 @+ B6 r- t6 uread/1,ifend,n40:,iferr,err3:,b1
2 O. ~7 a; l! }7 g- v2 Qnote/nx,ny,b1
& W0 {' A. |- ^( sny=ny-texth
, |% R$ G$ i- W6 J8 B9 bjump/n30:
n40:
fterm/txt,1
. W8 J8 `" w/ Z, a: M( L1 {# S+ Jfdel/dirf
dclose
' h6 i# R2 Q- Q: I" m2 lJUMP/TRM:
PATERR:
# \/ j* i. l; c  i7 Z        MESSG/'The file nc.prt does not exists!'
        jump/nc:
, Z9 M+ c6 i( H: p3 S5 SERR1:
6 S$ i2 C# C$ t  ^  O" A8 }( {, b* |        MESSG/'Read file error!'
        halt
7 z2 V' ^) N9 ^! v/ ]5 \" Gerr:
* d# ^' F* s1 N4 i        messg/'The config file does not exists!'
        halt
err2:
2 `5 w7 i2 p9 C' F: H. G) l        messg/'The NC file does not exists!'
. x3 m) O/ k* e2 I2 R" N        halt
err3:
* U# N/ h; s& |) o2 `' j        messg/'Read NC file error!'
) s3 G& o6 q+ a1 j4 E6 F        halt
8 ]/ H' Q7 ?4 v; f! s6 v* @, tTRM:
        halt

cpp645

这么好的东西啊？

王杰

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

yang-830

好东西!!!!

axjl_yd

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

kclv

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

axjl_yd

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

-KASA-

这个简单，加一环境变量，轻松解决，
6 x! i! I! S* B1 B: ]) ^0 J) }$ R2 J变量名：UGII_PATDIR
变量值：你的图框路径
; K: `" W4 R  V$ F) D
更多问题，可加群咨询：94377814

axjl_yd

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

scxdh

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