获得UG窗口标题名

1113824550

0 [7 y+ l2 Z+ ?+ {. g. ?$$ 获得ug窗口标题名
$$ 制作者 梅雷
- l- F  i( X2 S; z* U- V+ E. T$$ 作用1）可用其它程序（如VB）激活UG窗口
$$ ...

STRING/UG_AZML(100),UG_BT(100),UG_BTM(100),UG_ANDJ(100)
- J! R3 m5 o$ T+ K, l  cSTRING/UG_CK_BTM(100)

' p% C5 ~" P& [: }# e; O2 w. sFETCH/TXT,1,'C:\MeiLei_UG_WG\UG_AZML.ini',IFERR,UG_A:
- e- S7 N. ^& y( J& sRESET/1                  
READ/1,UG_AZML
FTERM/TXT,1

' A: c6 P# x& E. i; z$ c
9 S" \7 o5 z- WFETCH/TXT,1,UG_AZML+'\UGII\menus\custom_dirs.dat',IFERR,UG_A:
  S2 S% w5 f* z! |RESET/1                  
READ/1,UG_ANDJ
" K* R  {/ }# R. _FTERM/TXT,1


; o! J( j& i" f/ O3 u4 UIF/LENF(UG_ANDJ)<1,JUMP/UG_A:
JUMP/UG_B:

UG_A:
UG_AZML=ENVVAR/'UGII_BASE_DIR',ASK
9 ~; F# Y$ _) ^3 W$ l* @UG_B:
UG_BT=UG_AZML+'\UGII\menus\ug_main.men'
iG=0
2 N; Z& j  w$ }: k4 _& y( h' a! vxhbti:
+ L, J+ |+ s' E' g" ^% M! YiG=iG+1
IF/iG>301,JUMP/END:
& u5 f/ g& s, b" p! ^FETCH/TXT,1,UG_BT,IFERR,END:
, V$ [9 A6 }; T; _1 ~& aRESET/1                  
  q# P5 v& Y; ^4 D% s4 ~+ GREAD/1,LINNO,iG*10,UG_BTM
( B& V3 L- H' c5 K0 MFTERM/TXT,1
; q/ K$ m4 |& A/ Y+ nIF/LENF(UG_BTM)<5,JUMP/xhbti:
IF/SUBSTR(UG_BTM,1,6)=='TITLE ',JUMP/UGBTL:
0 U- f% N+ E3 c0 F9 ?JUMP/xhbti:
UGBTL:
0 p8 i; E# B8 ?1 p: Y% KUG_CK_BTM=SUBSTR(UG_BTM,7,LENF(UG_BTM)) $$ 获得UG窗口标题名
$$ 显示UG窗口标题名
print/UG_CK_BTM + ' - Modeling - [' +  &PNAME + ']'
- V$ h1 a2 q0 I' b
$ O4 {4 L/ x" M0 M) V5 _END:
HALT

allthekiss

不明白楼主想表达什么

1113824550

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