获得UG窗口标题名

1113824550

$$ 获得ug窗口标题名
  v7 H& t9 b- e, D% R+ T$$ 制作者 梅雷
1 o3 B. j5 X) t+ u* l" u$$ 作用1）可用其它程序（如VB）激活UG窗口
$$ ...
! S; Q; j' I- Y, j9 [
STRING/UG_AZML(100),UG_BT(100),UG_BTM(100),UG_ANDJ(100)
7 R4 g  J6 m: g! C; C: kSTRING/UG_CK_BTM(100)

* \) u+ P! J' a* C6 i! |7 _: vFETCH/TXT,1,'C:\MeiLei_UG_WG\UG_AZML.ini',IFERR,UG_A:
RESET/1                  
READ/1,UG_AZML
FTERM/TXT,1

% R5 Z$ F( U- _( X6 b
; d% U3 o8 ~/ P( ^! u; ~7 d0 {5 U: s; SFETCH/TXT,1,UG_AZML+'\UGII\menus\custom_dirs.dat',IFERR,UG_A:
RESET/1                  
READ/1,UG_ANDJ
) c+ Z( K* ~% N  `2 WFTERM/TXT,1


IF/LENF(UG_ANDJ)<1,JUMP/UG_A:
- z+ d( O" _7 e8 `JUMP/UG_B:

, k6 M0 j5 m  G  e- Z& kUG_A:
8 Z' ~# `' r3 f% V) |# }! KUG_AZML=ENVVAR/'UGII_BASE_DIR',ASK
UG_B:
2 \( W) B& X( @; c2 XUG_BT=UG_AZML+'\UGII\menus\ug_main.men'
iG=0
xhbti:
iG=iG+1
IF/iG>301,JUMP/END:
# g% O9 v' O5 NFETCH/TXT,1,UG_BT,IFERR,END:
1 ]0 \- I; m  x3 {: ?4 \) E7 RRESET/1                  
! F& w; ]- U' M6 c  }1 UREAD/1,LINNO,iG*10,UG_BTM
FTERM/TXT,1
IF/LENF(UG_BTM)<5,JUMP/xhbti:
IF/SUBSTR(UG_BTM,1,6)=='TITLE ',JUMP/UGBTL:
JUMP/xhbti:
  v3 |" A' E) j& E, @UGBTL:
UG_CK_BTM=SUBSTR(UG_BTM,7,LENF(UG_BTM)) $$ 获得UG窗口标题名
; \5 V  L/ _' F; R$$ 显示UG窗口标题名
6 _2 Y+ L9 a# D" z& Aprint/UG_CK_BTM + ' - Modeling - [' +  &PNAME + ']'
: N* N3 O. E1 g
% W, J/ V. ~7 P2 e% e+ w) u' EEND:
HALT

allthekiss

不明白楼主想表达什么

1113824550

很多UG二次开发的人会用 API 或 C++ 或 VB 做 界面的把？
这时的界面 毕竟不是 UG内部界面 如果你开这多个窗口
可能会出现 运行玩这个命令 就会 激活 别的窗口
API 和 C++我是不知道啦 不过对用VB的朋友 一定有用