24 lines
650 B
Plaintext
Executable File
24 lines
650 B
Plaintext
Executable File
filein (RsConfigGetWildWestDir() + "script/3dsMax/_config_files/Wildwest_header.ms")
|
|
RsCollectToolUsageData (getThisScriptFilename())
|
|
|
|
|
|
fn RSN_g_filter o = superclassof o == Geometryclass
|
|
|
|
fn RSN_dropObjectsToSurface =
|
|
(
|
|
target_mesh = pickObject message:"Pick Target Surface:" filter:RSN_g_filter
|
|
if isValidNode target_mesh then
|
|
(
|
|
undo "MoveToSurface" on
|
|
(
|
|
for i in selection do
|
|
(
|
|
int_point = find_Z_intersection target_mesh i --find_Z_intersection() in FN_Common.ms
|
|
if int_point != undefined then i.pos = int_point.pos
|
|
|
|
)--end i loop
|
|
)--end undo
|
|
)--end if
|
|
)--end execute
|
|
|
|
RSN_dropObjectsToSurface() |