制作CATIA百格线的小程序

自行编制小程序 使用方便 在汽车行业实用性广

20100723

你是否为在Catia做2D图纸的时候,画百格线而伤脑筋呢?别担心,接下来我告诉你一个简单的方法

1.新建一个txt文本文档,比如Draw-Grid.txt

2.把以下内容复制到Draw-Grid.txt中

=========这里开始,不要复制我========

Option Explicit

'

***********************************************************************

' Purpose: This macro allows you to create Grid line in CATIA drawing

' Author: chenqa

' Languages: VBScript

' Locales: English

' Developing CATIA Level: V5R12

' View mush parallel to system aixes,view angle 0deg,90deg and -90deg '

***********************************************************************

Sub CATMain()

CATIA.RefreshDisplay = False

Dim sStatus As String

' Set the CATIA popup file alerts to False

' It prevents to stop the macro at each alert during its execution CATIA.DisplayFileAlerts = False

' Optional: allows to find the sample wherever it's installed

' Variables declaration

Dim oDrwDocument As DrawingDocument

Dim oDrwSheets As DrawingSheets

Dim oDrwSheet As DrawingSheet

Dim oDrwView As DrawingView

Dim oFactory2D AS Factory2D

' The Distance between the lines

Dim D As Integer

Dim nx As Integer

你可能喜欢

  • 表格的制作
  • 小程序PPT
  • 小程序制作
  • 小制作制作过程
  • COCO天线的设计制作
  • C#小程序
  • 工程HDMI线制作

制作CATIA百格线的小程序相关文档

最新文档

返回顶部