catia vba绘图工作表格式框架显示

Question

我有一个小的宏，可以在图纸中添加一张新图纸，用于创建激光切割钣金零件的.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命令取消该框，要么找一个命令来使用Sheet Style＆＃34; NoBorderTest＆＃34; （如截图所示）。
我无法找到办法，任何帮助都会受到赞赏。

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)