求助版主：通过tcl脚本打开dsn文件怎么写？

zolamini

我现在找到两种方法：
1：set lDesign [$lSession GetDesignAndSchematics $lDesignPath $lStatus]    这种智能获取到design，在capture中并没有窗口打开
2 E: l1 a! d6 u' x& D2：open $Designpath      不报错，但是没反应
是两个方法我都缺少一些参数限制吗？或者有其他方法？求版主指点

7 K, X; d1 N8 d# z- y

zolamini

哈哈哈，已经解决了，用socket就可以了，tcl还是很强大啊

长天落彩霞

历害，我有一个问题啊，如何获取当前打开设计的名字。

zolamini

长天落彩霞 发表于 2016-11-13 09:57
( w. i6 a$ y: \- b6 w6 t: P历害，我有一个问题啊，如何获取当前打开设计的名字。

$ C! t" ~3 j: E: U' _" S3 n8 H( e+ C* `) Xset lSession $:boSession_s_pDboSession
                if { [catch {set lDesign [GetActivePMDesign] }] } {
$ ^2 T9 K9 T# s- L' X/ V            puts "ERROR : $::errorInfo"
" ~: I3 K. g* I6 [        }
) d4 q2 }% v3 @$ v( \        catch{
/ n; w1 h& g8 y9 a& d5 {         set lDesignName [DboTclHelper_sMakeCString]
         $lDesign GetName $lDesignName
& c" D9 q- p# i         set lFilePath [DboTclHelper_sGetConstCharPtr $lDesignName]
& B5 M4 Z% @2 }- c( R3 H         return $lFilePath
         }
3 V! D+ Q# k% T


' C3 o( [% \5 z3 E& m' e/ q4 U) O: Y写在proc里面，引用package require DboTclWriteBasic 16.3.0

filepath就是全路径名字

# K7 U$ r5 Z$ [1 B0 ]7 f

长天落彩霞

弱弱的问一下，  $lDesign GetName $lDesignName  这个是什么意思？
  o  L( Y" e: ^1 H1 I
8 i# y; D  {, B9 b5 f

zolamini

长天落彩霞 发表于 2016-11-17 18:19
弱弱的问一下，  $lDesign GetName $lDesignName  这个是什么意思？

获取文件名吧，唉，我还在找save命令一直没找到。。。。。
$ H0 S( z3 s! d

王开鑫55

我想知道这是什么语言，和skill一样可以自己设计原理图的功能？

leilei4908

zolamini 发表于 2016-11-10 08:49
哈哈哈，已经解决了，用socket就可以了，tcl还是很强大啊

求解，是怎么用socket解决的