iCAx开思工具箱

标题: 如何用vb程序在CATIA二维图中生成新的视图 [打印本页]

作者: zqyjxxy126 时间: 2010-4-18 15:32
标题: 如何用vb程序在CATIA二维图中生成新的视图
我想在这个视图中加入一些文字（文字也是在程序中生成的），当我移动视图是其中的所有文字都一起跟着移动

作者: zqyjxxy126 时间: 2010-4-19 22:30
已经找到方法了，通过录制宏可以得到其生成代码，修改一下代码就可以得到了

作者: zqyjxxy126 时间: 2010-4-25 08:48
Set drwDocument = CATIA.ActiveDocument

Set DrwSheets = DrwDocument.Sheets

Set drwSheet = drwSheets.ActiveSheet

Set drwViews = drwSheet.Views

Set drwView = drwViews.Add("附注")

Set drwViewGenerativeBehavior = drwView.GenerativeBehavior

drwViewGenerativeBehavior.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000

drwView.x = 340.

drwView.y = 424.
text_100="注：1                               "

Dim double1
double1 = drwSheet.Scale

drwView.Scale = 1.000000

drwView.Activate

Set drwView = drwSheet.Views.ActiveView

Set Text = drwView.Texts.Add(text_100, 0., 0.)

  CATFormatTBText "TitleBlock_Text_Techer"    ,catBottomLeft  , 4
这是生成新视图的代码，并在视图中加入了“注”

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)