Catia V5 使用宏动态去除隐藏线

Question

我尝试使用catscript运行自定义视图-动态隐藏线去除。我尝试使用宏开始录制，但没有找到它。我该如何解决？

录音代码为；

Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Set specsAndGeomWindow1 =CATIA.ActiveWindow

Dim viewer3D1 As Viewer3D
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D1
Set viewpoint3D1 = viewer3D1 Viewpoint3D1

Answer 1

Sub CATMain()

Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Set specsAndGeomWindow1 = CATIA.ActiveViewer

Dim viewer3D1 As Viewer3D
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D

viewpoint3D1.RenderingMode = catRenderQuickHiddenLinesRemovalWithoutVertices

End Sub