NC程序单原代码

axjl_yd

我的NC程序单原代码，是调用后置出的.xl文件的，可时当时是好的，关闭文件再打开图框就不见了，那位好友知道指导一下，非常感谢！！
原代码如下：
entity/obj(40),PNT(10),obj4(6)
' v0 U' |$ ?4 I, a! Wentity/obj1,obj2,obj3,pl(6)
number/num,num1,d(7),a(6),b(6),po(3),pd(3),pw(3),i,j
' w; d7 T6 @% ^6 t" N" bnumber/size1(20),i1,j1,th,pos,maxsize,scl1,i2,j2,M(12)
number/texts,texth,ncd(2),nx,ny,nct(2),ncf(2)
1 u* U) O5 J1 g! {+ {& Istring/image(8),b1(60)
string/dir1(90),dir2(90),dir3(90),dirf(99)
6 m9 a4 ?5 k# K, IDATA/image,'#@@@@.@@'
$ N  x9 _6 B- C3 a0 C$$ 读入设置文件
- R2 W3 n  G$ q% @  w5 }dopen/'d:\tool'
fetch/txt,1,'d:\tool\config.txt',iferr,err:
reset/1
3 W; P3 p! A: y3 A# @, v0 @n10:
read/1,linno,10,using,image,ifend,n20:,iferr,err1:,texts
! t' |" k6 H6 uread/1,linno,20,using,image,ifend,n20:,iferr,err1:,ncd
$ j, {& }  ]- [read/1,linno,30,using,image,ifend,n20:,iferr,err1:,texth
read/1,linno,120,using,image,ifend,n20:,iferr,err1:,scl1
read/1,linno,130,using,image,ifend,n20:,iferr,err1:,nct
% O. u# }/ v, d" dread/1,linno,140,using,image,ifend,n20:,iferr,err1:,ncf
n20:
- D) a, G1 |+ M6 o/ r8 ]$ B1 ^, Ufterm/txt,1
! U3 e+ y& @2 d  q( S) T0 S, C% qdclose
$$导入图纸
  PATRET/'D:\tool\PATTEM\nc.prt',IFERR,PATERR:
: T7 _$ H$ n3 Q% T  &DSTATE=2
4 J2 |1 m- R) Z( T1 ~nc:
$$NC程序标注
&ENSITE=&TOPL
&ASPECT=0.8
&CSIZE=texts
& O+ s0 x! W0 ]; bnx=ncd(1)
9 h8 C* i' m+ j" Y4 D  i. R+ mny=ncd(2)
$$ 打开程序文件
dir1='e:\NC\'
dir2=&pname
pos=fndstr(dir2,'.',1)
% |* w+ {, m' u: ]! m/ ~3 Hdir3=substr(dir2,1,pos)
$ S* P$ a* q" V. [% t; g3 bdirf=dir1+dir3+'xl'
& z0 R# E5 T# n1 Edopen/'e:\NC\'
* ?' L3 c: ~9 E' o/ x, ]) k- Ofetch/txt,1,dirf,iferr,err2:
reset/1
n30:
read/1,ifend,n40:,iferr,err3:,b1
note/nx,ny,b1
ny=ny-texth
/ u/ l6 U9 u# W8 f/ Yjump/n30:
n40:
; l! ^0 m2 z! Dfterm/txt,1
2 B; U2 E- E3 I& _fdel/dirf
1 y! M6 x9 |( S! Y3 _4 K. \dclose
JUMP/TRM:
6 w4 X2 \9 u/ G0 lPATERR:
& P5 C; V) @3 l9 M/ O/ z        MESSG/'The file nc.prt does not exists!'
) F: d) O7 `. E$ N        jump/nc:
% `: K! g7 {6 P) f2 M8 z+ `" ZERR1:
        MESSG/'Read file error!'
0 u6 {4 u5 D& R# w2 U        halt
err:
9 S) Z( u" _' A3 x        messg/'The config file does not exists!'
+ K& M4 O) ^0 a) L* e7 R        halt
err2:
3 {& I3 S2 E' \$ T        messg/'The NC file does not exists!'
7 M  `- N. x7 V5 y        halt
5 _* G& ~  |- \4 ?$ Zerr3:
        messg/'Read NC file error!'
        halt
TRM:
! T4 B* P4 U" J4 a4 V/ _7 `        halt

cpp645

这么好的东西啊？

王杰

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

yang-830

好东西!!!!

axjl_yd

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

kclv

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

axjl_yd

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

-KASA-

这个简单，加一环境变量，轻松解决，
变量名：UGII_PATDIR
变量值：你的图框路径
' V9 B3 a5 I5 c* y% H: N
更多问题，可加群咨询：94377814

axjl_yd

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

scxdh

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