2D吹き出し作成マクロ |
- 日時： 2006/02/28 10:01
- 名前： emily
|
| 役に立つかどうか？drawingの現在の図(View)に中心をマウス左でクリックした所に雲のような吹き出しを作成するマクロサンプルです。単純ですから簡単にお好みの形にアレンジ可能でしょう。スケールは標準のコマンドがあるので、囲っておいて変更すればいいでしょう。
Sub CATMain() 'Dr_kumo.catvbs
Set Document = CATIA.ActiveDocument
Set DrawingSheet = Document.Sheets.ActiveSheet
Set DrawingView = DrawingSheet.Views.ActiveView
Set factory2D1 = DrawingView.Factory2D
Dim WindowLocation(1)
Status=Document.Indicate2D("中心点をクリックしてください",WindowLocation)
XC = WindowLocation(0)+34.0 : YC = WindowLocation(1)-20.0
'CreateCircle(X,Y,radius,sAng,eAng) Angはラジアンで反時計回り
Set circle2D1 = factory2D1.CreateCircle(-60.904932+XC, YC+18.035074, 5.769502, 1.579608, 4.924871)
Set circle2D2 = factory2D1.CreateCircle(-51.548042+XC, YC+25.588571, 9.140089, 0.713245, 3.482032)
Set circle2D3 = factory2D1.CreateCircle(-38.969645+XC, YC+28.523266, 8.390373, 0.892227, 2.588182)
Set circle2D4 = factory2D1.CreateCircle(-28.468627+XC, YC+32.091095, 6.182598, 0.681327, 2.916610)
Set circle2D5 = factory2D1.CreateCircle(-18.187480+XC, YC+30.297908, 7.587483, 0.201431, 2.536765)
Set circle2D6 = factory2D1.CreateCircle(-11.966361+XC, YC+25.909378, 6.690566, 5.374021, 7.698842)
Set circle2D7 = factory2D1.CreateCircle(-13.066533+XC, YC+17.760515, 8.992951, 4.835033, 6.926259)
DrawingSheet.Update
end sub |
 |
|