日々適当

エンジニアの「常識」、外から見ると？[/.]

ここに書かれていた、いろいろな職種間の軋轢というか、そんなんを扱ったサイト。

エンジニアに言われてむかついた一言[Tech総研]
デザイナーとの飽くなき闘争[IT]

そいえば、知りあいはまぁWebみたいなページを作る（プログラミング系）ために業務として先生をよんで勉強したんだけど、その際、ご同席いただきたいとデザイナーの方々に頼んだそうです。そしたら、契約しているデザイナーとしての仕事の範囲を超えるためにものすごーく嫌そうな顔をされたそうな。まぁ、気持ちは分かるけど(笑)、自分が作るものがどのように動作し、どのような制限が生じるのかを知ることは、最低限必要なことだよなぁ、とか思ってその話を聞いていたりしたのを思い出しました。

まぁ、僕もあまり人のことはいえないけどね（苦笑）

ちょっと違うけど、以下のページも紹介されていたのでついでに。
プログラマと付き合う[ソリッドウェブ]

よくわからんけど、こんなもんで…

Dim oRoot, oObj, oGeometory, oNull, i , duplicatedObjectName

'複製するオブジェクトの名前を登録（existObjectNameを書き換える）
duplicatedObjectName = "existObjectName"


i = 1
DeselectAll

set oRoot = Application.ActiveProject.ActiveScene.Root

'対象オブジェクトをピックする。
PickElement "Object","Select Objct","Select Objct", oObj, button

set oObjTarget = oRoot.addNull("targetTempNull___Temp")

set oGeometry = oObj.ActivePrimitive.Geometry

'ピックしたオブジェクトの頂点にヌルを配置
for each oPoint in oGeometry.Points
'Phosphatideを複製して名前を変える
Duplicate duplicatedObjectName, , 2, 1, 1, 0, 0, 1, 0, 1, , , , , , , , , , , 0
SetValue duplicatedObjectName &"1.Name", duplicatedObjectName &"_"& i
'対象オブジェクトの頂点の法線を取り出す
set oNormal = oPoint.Normal
'対象オブジェクトの法線方向にNullを移動
SetValue oObjTarget &".kine.local.posx" , oNormal.x * 5
SetValue oObjTarget &".kine.local.posy" , oNormal.y * 5
SetValue oObjTarget &".kine.local.posz" , oNormal.z * 5
'Nullの方向にPhosphatideを傾ける
ApplyCns "Direction", duplicatedObjectName &"_"& i, oObjTarget
SetValue "Phosphatide_"& i &",.kine.dircns.dirx", 0
SetValue "Phosphatide_"& i &",.kine.dircns.diry", 1

Refresh

DeleteObj "Phosphatide_"& i &",.kine.dircns"

'Phosphatideをターゲットのポイント上に移動
SetValue duplicatedObjectName &"_"& i &",.kine.local.posx" , oPoint.Position.x
SetValue duplicatedObjectName &"_"& i &",.kine.local.posy" , oPoint.Position.y
SetValue duplicatedObjectName &"_"& i &",.kine.local.posz" , oPoint.Position.z

i = i + 1
next

'抽出用のヌルを削除
DeleteObj oObjTarget