|
「マクロの記録」を使って (直線の生成方法によって記述が異なりますが)
スケッチなどの2Dの場合 Set
point2D1 = factory2D1.CreatePoint(-80.000000,
40.000000)
point2D1.ReportName = 3
Set point2D2 =
factory2D1.CreatePoint(70.000000,
-50.000000)
point2D2.ReportName = 4
Set line2D3 =
factory2D1.CreateLine(-80.000000, 40.000000, 70.000000,
-50.000000)
line2D3.ReportName = 5
line2D3.StartPoint
= point2D1
line2D3.EndPoint =
point2D2
座標値入力で2点を結んだ場合 Set hybridShapePointCoord1 =
hybridShapeFactory1.AddNewPointCoord(10.000000, 20.000000,
30.000000) Set hybridShapePointCoord2 =
hybridShapeFactory1.AddNewPointCoord(100.000000, 200.000000,
300.000000)
------------------------------------ Set
reference1 =
part1.CreateReferenceFromObject(hybridShapePointCoord1)
Set
reference2 =
part1.CreateReferenceFromObject(hybridShapePointCoord2)
Set
hybridShapeLinePtPt1 =
hybridShapeFactory1.AddNewLinePtPt(reference1,
reference2)
hybridBody1.AppendHybridShape
hybridShapeLinePtPt1
part1.InWorkObject =
hybridShapeLinePtPt1
このあたりからヒントを掴めないでしょうか?
親記事 最上段 最下段
|