目录

显示长方体

提供帮助信息

执行文件

记录交互式命令

使用getsourcefile可以快速查找到Tcl命令对应的C++源文件

在Tcl中内置了一些变量，并赋予了一定的功能。内置变量列表如下：

退出

加载插件

在屏幕显示变量

返回绘图变量信息

视图

mu, md, 2dmu, 2dmd, zoom, 2dzoom

fit, 2dfit

u, d, l, r

平移

pu, pd, pl, pr, 2dpu, 2dpd, 2dpl, 2dpr

---

Draw Harness是一个Open CASCADE的Tcl(Tool Command Language)解释器。作为OCCT的一个组成部分，Draw Harness为OCCT算法评估、测试和自动化提供了一个开箱即用的工具，其中包括建模、数据交换和可视化等功能。

Tcl/Tk是一种用于易于使用的脚本语言，可以用来对程序进行扩展及完成一些自动化的工作，加上内置的一些命令，其功能要比Windows中的DOS的批处理命令功能更强大，使用更方便。Tcl脚本语言是开源免费的，可以方便获取且免费使用。

OpenCASCADE 中使用了Tcl/Tk来实现了一个自动化测试体系。使用在OpenCASCADE中使用自定义的Tcl命令，可以快速来检验算法的结果。通过编写脚本文 件，实现了测试的自动化。所以学习一下Tcl/Tk脚本语言，并在实际的工作中加以应用，可以将一些机械的劳动交给计算机自动完成。

Draw Harness中提供的命令基本包含了OCCT中所有的功能：

• 执行OCCT中的造型功能；

• 执行OCCT中的数据交换功能；

• 显示和三维交互功能；

• 学习、评估及原型算法验证；

• 为OCCT提供自动化测试功能；

• 也可以扩展Draw Harness，增加自定义命令；

• 因为Draw Harness是基于Tcl脚本语言开发的，所以可以运行在支持Tcl的平台上，如Windows，macOS, Linux，甚至是浏览器上。

显示长方体

box b 1 2 3

vdisplay b

提供帮助信息

help [command [helpstring group]]

执行文件

source filename

记录交互式命令

spy [filename]

使用getsourcefile可以快速查找到Tcl命令对应的C++源文件

getsourcefile box

在Tcl中内置了一些变量，并赋予了一定的功能。内置变量列表如下：

变量名称	功能描述
argc	指命令行参数的个数。
argv	指包含命令行参数的列表。
argv0	是指被解释的文件或由调用脚本的名称的文件名。
env	用于表示是环境变量数组元素。
errorCode	为最后的Tcl错误的错误代码。
errorInfo	为最后Tcl错误的堆栈跟踪信息。
tcl_interactive	分别将其设置为1和0交互和非交互模式之间切换。
tcl_library	用于设置的标准Tcl库的位置。
tcl_pkgPath	提供一般都安装包的目录列表。
tcl_patchLevel	指的是Tcl解释目前的补丁级别。
tcl_platform	用于表示使用对象，包括byteOrder, machine, osVersion平台和操作系统数组元素。
tcl_precision	指的是精度，即位数转换为浮点数时，字符串保留。默认值是12。
tcl_prompt1	指的是主提示符。
tcl_prompt2	指无效的命令二次提示。
tcl_rcFileName	为用户提供了具体的启动文件。
tcl_traceCompile	用于控制字节码编译的跟踪。用0表示无输出，1为概要和2为详细。
tcl_traceExec	用于控制执行的字节码的跟踪。用0表示无输出，1为概要和2为详细。
tcl_version	返回Tcl解释器的最新版本。

退出

exit

加载插件

pload -DrawPlugin OCAF

设置变量

set file documentation

在屏幕显示变量

puts $file

返回绘图变量信息

circle c 0 0 1 0 5

whatis c

c is a 2d curve

dump c

***** Dump of c *****

Circle

Center :0, 0

XAxis :1, 0

YAxis :-0, 1

Radius :5 

视图

axo, pers, top, bottom, left, right, front, back, mu4, v2d, av2d, smallview

•axo创建一个大窗口轴测视图；

•pers创建了一个大窗口透视图；

•上、下、左、右、前、后创建一个大的窗口轴视图；

•mu4创建四个小窗口视图：前视图、左视图、顶部视图和axo视图。

•v2d创建一个大窗口2d视图。

•av2d创建两个小窗口视图，一个是2d，另一个是axo

•smallview在给定类型的屏幕右下角创建一个视图。

mu, md, 2dmu, 2dmd, zoom, 2dzoom

•mμ（放大）将一个或多个视图的缩放比例提高10%。

•md（向下放大）按反因子减小缩放。2dmu和2dmd在一个或所有2d视图上执行相同的操作。

•缩放和2dzoom将缩放因子设置为您指定的值。当前缩放因子始终显示在窗口的标题栏中。Zoom 20表示大窗口中的全屏视图；缩放10，小屏幕中的全屏视图。

•wzoom（窗口缩放）允许您用鼠标选择要放大的区域。系统将提示您给出要放大的区域的两个角，这样定义的矩形将占据视图的窗口。

fit, 2dfit

fit计算视图内容的最佳缩放和平移。视图的内容将居中并适合整个窗口。拟合所有视图时，将为所有视图计算唯一的缩放。所有视图都在同一比例上。

u, d, l, r

u、 d，l，r将视图中的对象绕其轴分别向上、向下、向左或向右旋转五度。此命令仅限于轴测视图和透视视图。

平移

pu, pd, pl, pr, 2dpu, 2dpd, 2dpl, 2dpr

pu和pd分别上下摆动；pl和pr分别向左和向右平移。每次视图偏移40个像素时。如果未给定索引，则所有视图都将沿指定的方向平移。