找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 15790|回复: 1
打印 上一主题 下一主题

如何将ugnx2开发的程序用到ugnx3

[复制链接]
跳转到指定楼层
1
发表于 2004-12-3 16:12:54 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
各位大哥:
     请教一个问题,我在nx2中开发的程序如何在nx3当中用呢?请个位高手指点迷津,谢谢了?
LICENSE.GRS.dem文件如下:
  
$$
$$ SUBROUTINE:  LICENSE.GRS
$$                           
$$ ABSTRACT:
$$   This program is used to check license for given id_number,
$$   and called by ***m.grs programs.
$$
$$ KEYWORDS:
$$   license_str   -- id_number read directly from  operation system  
$$   id_str           -- id_number specified  the users
$$
$$ RELEASE HISTORY
$$        95.10.28 INITIAL SUBMISSION
$$
  
PROC/
  STRING/str(70),license_str(70),id_str(10,70)
$$
$$   get ID_number imformation by UNIX command <LANSCAN> ,and write it to  
$$   a file named as 'sd_part_license_name'. Then read it to a string varible
$$   STR from the file, and extract ID_number from STR  into LICENSE_STR.
$$  
$$   XSPAWN/'/bin/ksh','-c','/etc/lanscan  > sd_part_license_name'
$$   next line is for SGI platform
$$XSPAWN/'/bin/ksh','-c','/etc/sysinfo > sd_part_license_name'
$$  FETCH/TXT,10,'sd_part_license_name'
$$  RESET/10
$$  RESEQ/10,START,1,INCR,1
$$  READ/10,LINNO,3,USING,'#@@@@@@@@@@@@@@@@@@@@@@@',str
$$ $ READ/10,LINNO,2,USING,$
$$  '#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@',str
$$  1234567890123456789012345678901234567890123456789012345678901234
$$  license_str=SUBSTR(str,10,14)
$$    license_str=str
$$
$$ ID_STR varible can be changed accordion to actual workstation ID_number
$$  which Standard Part Library is installed. ID_number must be  
$$  14 characters long.
$$
$$  id_str='0x0800090A9A7C'
$$   this line is for Shanghai demo machine
$$id_str(1)='69  08  a8  c5  00  00  00  00  00  00  00  00  00  00  00  00  '
$$         1234567890123456789012345678901234567890123456789012345678901234
$$ The following lines is for Hua Tong Switcher
$$id_str(2)='69  0a  02  b1  00  00  00  00  00  00  00  00  00  00  00  00  '
$$id_str(3)='69  0a  02  a2  00  00  00  00  00  00  00  00  00  00  00  00  '
$$id_str(4)='69  0a  37  19  00  00  00  00  00  00  00  00  00  00  00  00  '
$$id_str(5)='69  0a  36  90  00  00  00  00  00  00  00  00  00  00  00  00  '
$$   To Guangzhou Office:
$$   use #sysinfo to get your machine code, copy to the next line
$$   
$$id_str(6)='69  xx  xx  xx  00  00  00  00  00  00  00  00  00  00  00  00  '
$$id_str(7)=''
$$id_str(8)=''
$$id_str(9)=''
$$      begin compare
$$DO/L1:,I,1,6
$$  sta=CMPSTR(id_str(I),license_str)
$$  IFTHEN/sta==0
$$  JUMP/L2:
$$  ENDIF
$$L1:
$$MESSG/'Error Operation---Invalid License for Standard Part Library'
$$HALT
$$L2:
RETURN
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
发表于 2004-12-3 20:55:40 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-6 00:45 , Processed in 0.031351 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表