日々適当

hibitekitou

（メモ）選択されたポイントの座標を返す

xsi |2005-01-07
タグ付けされたポイントの座標を返す。複数ポイント選択されている場合、それぞれの座標を返すのであまり実用的ではない。

set oRoot = application.activeproject.activescene.root

for each selected in selection
'logmessage selected.name
set oObj = oRoot.findChild(selected.name)
if ( selected.Type = "pntSubComponent" ) then
for each tagedPointNumber in selected.SubElements
set oGeometry = oObj.activeprimitive.geometry
set oPoint = oGeometry.Points(tagedPointNumber)
logmessage oObj.name & "_Point Number" & tagedPointNumber & "_:"& oPoint.Position. x &","& oPoint.Position.y &","& oPoint.Position.z
next
end if
next

コメント ( 0 )|Trackback ( )
  ・