|
4#

楼主 |
发表于 2016-11-14 09:07
|
只看该作者
$ H. M- d9 T/ ]7 n# y8 U3 qset lSession $: boSession_s_pDboSession: B$ h1 h' F, U( U: y
if { [catch {set lDesign [GetActivePMDesign] }] } {
S4 K0 W/ M* ?8 c puts "ERROR : $::errorInfo"
0 t" e& H5 Z4 y* S& U }2 t# S3 M9 k2 Q2 d q6 t2 N" R4 ~
catch{
) x% @, W3 ]: l set lDesignName [DboTclHelper_sMakeCString]- b7 K+ B' m* Z5 q
$lDesign GetName $lDesignName8 J. z* [+ j( K
set lFilePath [DboTclHelper_sGetConstCharPtr $lDesignName]4 T+ E/ C: b# O! f
return $lFilePath1 J5 W# T+ ?* Q$ N
}
3 _% [ N" B. x0 r# X6 z; U2 S2 P- `' F+ d7 O5 O
8 r7 C# z- ^' b. A3 [5 ]3 I
1 E& g* i p) M写在proc里面,引用package require DboTclWriteBasic 16.3.0
: l# t3 t+ E/ Z, v: N3 u7 C Q' q- Z* X/ x3 n! f# p9 b
filepath就是全路径名字& W% E3 G$ ?& t/ s$ F
/ n4 R J T, U0 `: @ |
|