TIN サーフェスから等高線を抽出する

標高範囲を指定して、サーフェスから等高線を AutoCAD 図形として抽出できます。次の例では、90 から 95 の間の等高線を抽出し、各等高線の図形タイプを出力します。

注:

この例が正常に機能するには、抽出する等高線を図面に表示する必要があります。

...
Dim z As Double
Dim objSurf As AeccSurface
Set objSurf = g_oAeccDoc.Surfaces(0)
Dim varObjects As Variant
Dim objEnt As AcadEntity
Dim iCtr As Integer, iLow As Integer, iHigh As Integer
varObjects = objSurf.ExtractContour(aeccDisplayOrientationPlan, aeccSFMajorContours, 90, 95)
iLow = LBound(varObjects)
iHigh = UBound(varObjects)
For iCtr = iLow To iHigh
   Set objEnt = varObjects(iCtr)
   Debug.Print TypeName(objEnt)
Next iCtr