catia vba 绘图 sheet 格式框显示

Question

我有一个小宏，可以在绘图中添加一个新的 sheet，用于为 sheet 金属零件的激光切割创建 .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

我想对该宏进行补充，删除 sheet 格式的边框。
以下屏幕截图显示了执行此操作的手动方法：

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

Answer 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)

catia vba 绘图 sheet 格式框显示

catia vba Drafting sheet format frame display

vba

catia