|
4#

楼主 |
发表于 2016-11-14 09:07
|
只看该作者
* ~* X! j5 T6 W& e: q! eset lSession $: boSession_s_pDboSession
8 T6 R- q, o* R. L8 H if { [catch {set lDesign [GetActivePMDesign] }] } {
# Y8 |" z& w: T* j1 O' ^9 ~. j puts "ERROR : $::errorInfo"
" D3 B W C) _$ Q }
, F+ P) d: j W1 P% X, v1 P. c! G catch{* b( g8 \4 T' |8 \" e
set lDesignName [DboTclHelper_sMakeCString]. y! S8 \0 ]$ E% Y8 ?- X9 R
$lDesign GetName $lDesignName) c7 {7 c+ x- ^% Q3 A
set lFilePath [DboTclHelper_sGetConstCharPtr $lDesignName]
9 E, [% ?3 {4 w- `1 D( t- v2 ?2 k0 \ return $lFilePath
2 |$ e9 T1 n' z. K( U }
4 H% ]1 E) h8 j$ H+ f$ h" G2 ~3 \+ z8 P7 ~+ s1 U2 S/ ?
7 J! I8 l2 p. W, U0 s2 R* T
, i, s2 @6 ?1 \+ h* F) u) R7 v写在proc里面,引用package require DboTclWriteBasic 16.3.0
1 Y, \9 l8 G! N; n( ~0 d+ t$ }8 c( E- e+ {0 J
filepath就是全路径名字: B8 X1 k& W h9 \: R0 w6 W/ c0 B
: L/ g4 s$ y! O; f: c% Q. I |
|