レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。

Ryu-na BBS

114：oota：2004/12/09(木) 15:43:27: また、よろしくお願いします（長文ですみません）
CADソフトはSolid worksです。
エクセルにデータを入力し、マクロ機能を使って平歯車のCADを設計しようとしています。
仮に初期条件を歯数とモジュールを決めて、２D作成をしてみました。
（とりあえず、直線のみで星型を作ってみたいです。）
そのときの、構文なのですが

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject("sldworks.application")
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("正面" "PLANE" 0 0 0 False 0 Nothing)
Part.InsertSketch2 True
Part.CreateLine2(0 0.1 0 0 -0.1 0).ConstructionGeometry = True
Part.SketchMirror
Part.CreateLine2 Range("A2").Value / 1000 Range("B2").Value / 1000 0 0 Range("B12").Value / 1000 0
Part.SketchMirror
CreateCircularSketchStepAndRepeat ( arcRadius arcAngle patternNum patternSpacing patternRotate deleteInstances )
途中の"A2"等はエクセルのデータ取り込みの場所です。
最後から二番目までの、Part.SketchMirrorで、星型の一つの星を作れたのですが、
そこからのパターンコピーがうまくいきません。

CreateCircularSketchStepAndRepeatの中の
arcRadius、arcAngle、patternSpacing、patternRotateの数値の出しかたがわかっていないのだと思います。
APIのヘルプを見たところ、
arcRadius：円形スケッチパターンで使われる半径
arcAngle：パターンコピーされるスケッチエンティティに対する角度
patternSpacing：パターンコピーの要素間の間隔（ラジアン値で）
patternRotate：パターンコピーの回転

と記述されてるのですが・・・
どうやってここは計算されるのでしょうか？

掲示板管理者へ連絡無料レンタル掲示板