mel語初解之二-多邊型建模(3)

來源：作者：七月冰兒學習：4168人次

第三步，切割一個面。
我們可以先把切割的百分比設置一個固定的數值，設為0.2(20%)。我們可以通過edge2Vertex()來得到要切割的一條邊
的起點和終點，如果起點恰好是當初選擇的那條邊線的一個端點(兩條邊的公共點)，那么這條線的構造順序是正的，可以直接
使用20%；但如果構造順序是反的，那就要使用1-20%=80%了。

這個函數應該這么寫：

proc splitByPercent(string $edge1, string $edge2, string $inputEdge)
{
// 預設值，百分比為0.2
float $percent = 0.2;
float $percent1 = $percent; // 0.2
float $percent2 = $percent; // 0.2
 
// 分別獲得三條邊所包含的頂點
string $verts1[], $verts2[], $vInput[];
$vInput = edge2Vertex($inputEdge);
$verts1 = edge2Vertex($edge1);
$verts2 = edge2Vertex($edge2);
 
// 求$edge1與$inputEdge的公共點
string $startVert[] = intersectStringArray($verts1, $vInput);
// 如果公共點不是$edge1的起點
if ($startVert[0] != $verts1[0])
// 百分比變?yōu)?0%，即1-0.2
$percent1 = 1 - $percent;
 
// 求$edge2與$inputEdge的公共點
string $startVert[] = intersectStringArray($verts2, $vInput);
if ($startVert[0] != $verts2[0])
$percent2 = 1 - $percent;
 
// 獲得兩條邊的索引號
string $index1 = getIndex($edge1);
string $index2 = getIndex($edge2);
 
// 準備命令字符串
string $cmd = "polySplit -ch on -s 1 ";
$cmd += "-ep " + $index1 + " " + $percent1 + " ";
$cmd += "-ep " + $index2 + " " + $percent2 + " ";
$cmd += ";";
 
// 選擇整個多邊形物體
string $polyName = getBaseName($edge1);
select -r $polyName;
 
// 執(zhí)行命令
evalEcho($cmd);
}
[注] 使用evalEcho執(zhí)行命令可以把命令字符串在mel歷史窗中顯示出來。

第四步，切割邊線兩邊的面。

有了前面的準備工作，最后一步就顯得比較容易了。

global proc myEdgeChamfer()
{
// 獲取選擇的一條邊
string $edges[] = getSelEdges();
string $inputEdge = $edges[0];
 
// 獲取選擇的邊相鄰的兩個面
string $faces[] = getFaces();
 
// 等比切割第1個面
string $splitEdges[];
$splitEdges = adjacentEdgesInFace($faces[0], $inputEdge);
splitByPercent($splitEdges[0], $splitEdges[1], $inputEdge);
 
// 等比切割第2個面
$splitEdges = adjacentEdgesInFace($faces[1], $inputEdge);
splitByPercent($splitEdges[0], $splitEdges[1], $inputEdge);
}

附全部源代碼。

///////////////////////////////////////////////////////////
// myEdgeChamfer.mel
// myEdgeChamfer v1
 
// 獲取選擇的多邊形頂點
proc string[] getSelVerts()
{
return `filterExpand -ex true -sm 31`;
}
 
// 獲取選擇的多邊形邊
proc string[] getSelEdges()
{
return `filterExpand -ex true -sm 32`;
}
 
// 獲取選擇的多邊形面
proc string[] getSelFaces()
{
return `filterExpand -ex true -sm 34`;
}
 
// 根據點、邊、面、UV點的名稱得出多邊形的名稱
// 例如多邊形一條邊的名稱為"pSphere1.e[637]"，則這個多邊形的
// 名稱為"pSphere1"
proc string getBaseName(string $item)
{
    string $buffer[];
if ($item != "")
{
tokenize($item, ".", $buffer);
}
return $buffer[0];
}

// 根據點、邊、面、UV點的名稱得出它們的索引號
// 例如多邊形一條邊的名稱為"pSphere1.e[637]"，則這個多邊形的
// 索引號為637
proc int getIndex(string $indexString)
{
string $buffer[];
tokenize($indexString, "[]", $buffer);
int $index = (int)$buffer[1];
return $index;
}

// 獲得兩個數組的共同部分
proc string[] intersectStringArray(string $array1[], string $array2[])
{
global string $m_arrayIntersector;
if ($m_arrayIntersector == "")
$m_arrayIntersector = `stringArrayIntersector`;

stringArrayIntersector -edit -intersect $array1 $m_arrayIntersector;
stringArrayIntersector -edit -intersect $array2 $m_arrayIntersector;
string $result[] = `stringArrayIntersector -query $m_arrayIntersector`;
stringArrayIntersector -edit -reset $m_arrayIntersector;
return $result;
}

///////////////////////////////////////////////////////////
// 第一步，根據一條邊，得到這條邊的按構造順序排列的兩個端點。
proc string[] edge2Vertex(string $edge)
{
string $verts[], $buffer[];
string $edgeInfo[] = `polyInfo -ev $edge`;
int $nbVertex = tokenize($edgeInfo[0], $buffer);

string $polyName = getBaseName($edge);
$verts[0] = $polyName + ".vtx[" + $buffer[2] + "]";
$verts[1] = $polyName + ".vtx[" + $buffer[3] + "]";
return $verts;
}

// 已知一個面，這個面的一條邊，求與(這個面的)這條邊相鄰的兩條邊
proc string[] adjacentEdgesInFace(string $face, string $edge)
{
// 獲取所有相鄰的邊線
select -r $edge;
ConvertSelectionToVertices();
ConvertSelectionToEdges();
select -d $edge;
string $edges_vert[] = getSelEdges();

// 獲取已知面的所有邊線
select -r $face;
string $edges_face[] = getEdges();

// 求兩個數組的共同部分
string $edges[] = intersectStringArray($edges_vert, $edges_face);
return $edges;
}

// 第三步，等比切割一個面
proc splitByPercent(string $edge1, string $edge2, string $inputEdge)
{
// 預設值，百分比為0.2
float $percent = 0.2;
float $percent1 = $percent; // 0.2
float $percent2 = $percent; // 0.2

// 分別獲得三條邊所包含的頂點
string $verts1[], $verts2[], $vInput[];
$vInput = edge2Vertex($inputEdge);
$verts1 = edge2Vertex($edge1);
$verts2 = edge2Vertex($edge2);

// 求$edge1與$inputEdge的公共點
string $startVert[] = intersectStringArray($verts1, $vInput);
// 如果公共點不是$edge1的起點
if ($startVert[0] != $verts1[0])
// 百分比變?yōu)?0%，即1-0.2
$percent1 = 1 - $percent;

// 求$edge2與$inputEdge的公共點
string $startVert[] = intersectStringArray($verts2, $vInput);
if ($startVert[0] != $verts2[0])
$percent2 = 1 - $percent;

// 獲得兩條邊的索引號
string $index1 = getIndex($edge1);
string $index2 = getIndex($edge2);

// 準備命令字符串
string $cmd = "polySplit -ch on -s 1 ";
$cmd += "-ep " + $index1 + " " + $percent1 + " ";
$cmd += "-ep " + $index2 + " " + $percent2 + " ";
$cmd += ";";

// 選擇整個多邊形物體
string $polyName = getBaseName($edge1);
select -r $polyName;

// 執(zhí)行命令
evalEcho($cmd);
}

// 第四步，切割選擇的一條邊線兩邊的面。
global proc myEdgeChamfer()
{
// 獲取選擇的一條邊
string $edges[] = getSelEdges();
string $inputEdge = $edges[0];

// 獲取選擇的邊相鄰的兩個面
string $faces[] = getFaces();

// 等比切割第1個面
string $splitEdges[];
$splitEdges = adjacentEdgesInFace($faces[0], $inputEdge);
splitByPercent($splitEdges[0], $splitEdges[1], $inputEdge);

// 等比切割第2個面
$splitEdges = adjacentEdgesInFace($faces[1], $inputEdge);
splitByPercent($splitEdges[0], $splitEdges[1], $inputEdge);
}

myEdgeChamfer_v1.rar (1.46k)

等距切割

要想知道一條邊的長度，如果是Maya5.0或更低版本，可以使用arclen命令，但是到了Maya6.0，arclen命令只支持Nurbs，退化了？

這樣我們不得不用到獲得兩點之間的距離的功能來計算邊的長度。現(xiàn)在要提到一點圖形學知識，當然是最最基礎的，就是"勾股定理"。相信大家都能記得一點"勾股定理"的內容，我就不詳細講了。如果需要詳細講的話，可以提出來，我可以在后面補充。

"勾股定理"的公式是： a2 + b2 = c2

根據這個公式推理出3D空間勾股定理公式：x2 + y2 + z2 = d2

如果求兩點之間的距離，公式如圖：dist為點P1(x1,y1,z1)和P2(x2,y2,z2)之間的距離

根據公式，我們來編一個工具函數求兩點之間的距離。你也許會感到奇怪，這么常用的功能，Maya中為什么沒有內置的命令呢？這一點我也感到奇怪，好在編寫這樣的功能非常簡單。

// 計算兩個頂點之間的距離
proc float distance2Verts(string $vert1, string $vert2)
{
// 獲取兩個頂點的坐標值
float $p1[] = `pointPosition $vert1`;
float $p2[] = `pointPosition $vert2`;

// 計算距離
float $distance;
float $v[3];
$v[0] = $p1[0] - $p2[0];
$v[1] = $p1[1] - $p2[1];
$v[2] = $p1[2] - $p2[2];
$distance = $v[0]*$v[0] + $v[1]*$v[1] + $v[2]*$v[2];
$distance = sqrt($distance);// 開方

return $distance;
}

[注] 獲取點的坐標值還有一種方法是：
float $p1[] = `xform -q -ws -t $ver1`;

現(xiàn)在只要把等比切割的函數改一改就差不多了，把splitByPercent()改為splitByDist()。我把沒有改動的部分用灰綠色表示，重點看看改動的部分。
[注] dist為distance的縮寫。

// 第三步，等距切割一個面
proc splitByDist(string $edge1, string $edge2, string $inputEdge)
{
// 預設值，距離為0.2個單元格
float $dist = 0.2;
float $percent1;
float $percent2;
 
// 分別獲得三條邊所包含的頂點
string $verts1[], $verts2[], $vInput[];
$vInput = edge2Vertex($inputEdge);
$verts1 = edge2Vertex($edge1);
$verts2 = edge2Vertex($edge2);
 
// 計算第一條邊的切割處
float $edgeLength; // 求第一條邊的長度
$edgeLength = distance2Verts($verts1[0], $verts1[1]);
if ($edgeLength < $dist) // 如果長度小于預設值0.2
$percent1 = 1; // 切割處在線的的末端
else
$percent1 = $dist / $edgeLength; // 計算出百分比
 
// 計算第二條邊的切割處
$edgeLength = distance2Verts($verts2[0], $verts2[1]);
if ($edgeLength < $dist)
$percent2 = 1;
else
$percent2 = $dist / $edgeLength;
 
// 求$edge1與$inputEdge的公共點
string $startVert[] = intersectStringArray($verts1, $vInput);
// 如果公共點不是$edge1的起點
if ($startVert[0] != $verts1[0])
// 百分比變?yōu)?-$percent1
$percent1 = 1 - $percent1;
 
// 求$edge2與$inputEdge的公共點
string $startVert[] = intersectStringArray($verts2, $vInput);
if ($startVert[0] != $verts2[0])
$percent2 = 1 - $percent2;
 
// 獲得兩條邊的索引號
string $index1 = getIndex($edge1);
string $index2 = getIndex($edge2);
 
// 準備命令字符串
string $cmd = "polySplit -ch on -s 1 ";
$cmd += "-ep " + $index1 + " " + $percent1 + " ";
$cmd += "-ep " + $index2 + " " + $percent2 + " ";
$cmd += ";";
 
// 選擇整個多邊形物體
string $polyName = getBaseName($edge1);
select -r $polyName;
 
// 執(zhí)行命令
evalEcho($cmd);
}