catia vba 绘图表格式框架显示答案

【问题标题】：catia vba Drafting sheet format frame displaycatia vba 绘图表格式框架显示
【发布时间】：2018-01-30 07:53:49
【问题描述】：

我有一个小宏，可以将新图纸添加到图纸中，用于为钣金零件的激光切割创建 .dxf 文件。

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Add("Laser")

drawingSheet1.PaperSize = catPaperA0

drawingSheet1.[Scale] = 1#

drawingSheet1.Orientation = catPaperLandscape

CATIA.StartCommand "Unfolded View"

End Sub

我想在此宏中添加一个删除工作表格式边框的内容。
手动方法如下图所示：

所以我要么需要找到一个 VBA 命令来取消选中该框，要么需要一个使用工作表样式“NoBorderTest”的命令（如屏幕截图所示）。
我也找不到办法，任何帮助将不胜感激。

【问题讨论】：

标签： vba catia

【解决方案1】：

我正在尝试完成与您完全相同的事情，我正在制作包含 1:1 比例视图的绘图，该视图可以导出为 DXF 用于 3 轴加工。格式很烦人，如果零件尺寸与纸张尺寸相似，则很难看到零件轮廓。绘图格式“阴影”隐藏了几何体。

我想出的解决方法是将纸张高度和纸张宽度设置为非常小的数字，0.0000001 似乎可以正常工作。纸张高度和纸张宽度属性是您可以使用的公开 API：

Dim DXFRoot As DrawingRoot = DXFRepRef.GetItem("CATDrawingAccess")
Dim DXFSheets As DrawingSheets = DXFRoot.Sheets
Dim DXFSheet As DrawingSheet = DXFSheets.ActiveSheet
DXFSheet.PaperSize = CatPaperSize.catPaperUser
DXFSheet.Scale = 1
DXFSheet.SetPaperHeight(0.0000001)
DXFSheet.SetPaperWidth(0.0000001)

【讨论】：