NC程序单原代码

axjl_yd

我的NC程序单原代码，是调用后置出的.xl文件的，可时当时是好的，关闭文件再打开图框就不见了，那位好友知道指导一下，非常感谢！！
原代码如下：
entity/obj(40),PNT(10),obj4(6)
entity/obj1,obj2,obj3,pl(6)
number/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)
' H) E! [% D1 ^1 E, Fnumber/texts,texth,ncd(2),nx,ny,nct(2),ncf(2)
6 k9 [* _/ M: Istring/image(8),b1(60)
string/dir1(90),dir2(90),dir3(90),dirf(99)
" ^6 {& A6 [" o4 K, TDATA/image,'#@@@@.@@'
5 [; s0 R+ i) F/ u$$ 读入设置文件
dopen/'d:\tool'
8 m! `. L  M$ K; e: ?  `/ T7 @# Pfetch/txt,1,'d:\tool\config.txt',iferr,err:
reset/1
n10:
$ ]! s6 C' J) l! X' }9 eread/1,linno,10,using,image,ifend,n20:,iferr,err1:,texts
read/1,linno,20,using,image,ifend,n20:,iferr,err1:,ncd
- _. Y# S. q5 {0 Q! [0 a& l  Cread/1,linno,30,using,image,ifend,n20:,iferr,err1:,texth
% P" _# V% h% H4 }; Dread/1,linno,120,using,image,ifend,n20:,iferr,err1:,scl1
read/1,linno,130,using,image,ifend,n20:,iferr,err1:,nct
read/1,linno,140,using,image,ifend,n20:,iferr,err1:,ncf
n20:
3 k5 W7 K1 S* [fterm/txt,1
0 ]5 _# F$ ?3 Hdclose
$$导入图纸
! C7 Y3 u9 B5 s  m' I8 q" G  PATRET/'D:\tool\PATTEM\nc.prt',IFERR,PATERR:
4 R5 [( T2 K7 n3 f; q! q  &DSTATE=2
4 j! p% c3 A) d* dnc:
# |" I, _5 {6 ~' k  {' t# p$$NC程序标注
' D% a8 J, f+ N5 R) o: x&ENSITE=&TOPL
0 l! Z, k  ~+ y' {+ L1 F: ^&ASPECT=0.8
&CSIZE=texts
* X' _, g: U& k8 jnx=ncd(1)
ny=ncd(2)
$$ 打开程序文件
/ O# v$ Z# Q) k1 _dir1='e:\NC\'
$ c8 w' X7 N7 q7 H: D+ Sdir2=&pname
3 _1 D5 R5 H" v% s0 i; K8 ?' dpos=fndstr(dir2,'.',1)
8 N6 a* v! t* I& Xdir3=substr(dir2,1,pos)
dirf=dir1+dir3+'xl'
0 |. ?( n  K2 o9 M# Ndopen/'e:\NC\'
/ V* q9 q% }2 i9 E: [* Ufetch/txt,1,dirf,iferr,err2:
, T+ ]0 {2 g3 hreset/1
2 O1 ^2 @' ~7 U% rn30:
read/1,ifend,n40:,iferr,err3:,b1
9 }: a  q; T. w, w6 o& Z4 A* t' J2 `note/nx,ny,b1
9 d. L! ^, \3 F) S/ Xny=ny-texth
jump/n30:
n40:
fterm/txt,1
% e: r6 _  i8 C$ sfdel/dirf
/ A5 E4 z. r" v- c( j4 jdclose
JUMP/TRM:
0 W) G( Q+ \% P: G9 {. Y2 k  `PATERR:
5 }+ b- x2 ~  b2 x; o& m        MESSG/'The file nc.prt does not exists!'
        jump/nc:
5 m2 C( L; r( X: {, z* Y. T2 WERR1:
        MESSG/'Read file error!'
+ z" |: _) y' Q' a, z, t- F! N        halt
err:
        messg/'The config file does not exists!'
        halt
- B' I5 h( Q3 T' H/ serr2:
3 B8 n) H% h" l# _        messg/'The NC file does not exists!'
        halt
/ R/ ~8 v1 y4 e3 ]. P/ G/ serr3:
        messg/'Read NC file error!'
7 z( ?8 a1 o6 r, [- v        halt
TRM:
5 v# `0 z6 U% N7 |* H        halt

cpp645

这么好的东西啊？

王杰

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

yang-830

好东西!!!!

axjl_yd

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

kclv

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

axjl_yd

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

-KASA-

这个简单，加一环境变量，轻松解决，
变量名：UGII_PATDIR
- c: o% c. e" e( }% I1 z" U- M变量值：你的图框路径
; h" W9 I) C$ K" L1 K; ?
更多问题，可加群咨询：94377814

axjl_yd

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

scxdh

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