🔥 📳 🍄 「こんにちは、お正月！」またはVisual Basic .NETを使用してNanoCADをプログラミングします 🗼 👈🏻 ⚽️

先日 SDKに付属していたNanoCAD APIのドキュメントを参照しているときに、.NET APIとMultiCAD.NET APIのクラスメンバーの説明がC＃とVisual Basicの両方で提供されていることに突然気付きました。そして、私は考えました：「しかし、VBの説明があるのは素晴らしいことです！」

正直に言って、私はVBをまったく知りませんが、100年前に古き良きBASICでコードを見たとき、それは人々がプログラミングの基礎を学び始める言語の1つなので、プログラムの普及に少し貢献することにしました。

NanobrでのVBの使用に関するHabrに関する良い記事が既にあると言わなければなりません。NanoCADとExcelの組み合わせと、それが最終的に建築設計を容易にする方法について説明しています。

別の、よりシンプルで、よりお祝いのタスクを解決し、クリスマスツリーを描いて 、ユーザーに新年をお祈りします。この記事はVBに専念しているという事実にもかかわらず、 C＃のコードも同様になります。

また、「新年」は費用のかかる休日であるため、 NanoCAD 5.1の商用利用の無料版に焦点を当てます（ただし、理論的にはNC 8.Xでは問題なく動作するはずです）。

また、MonoとWineを使用したC＃コードをコンパイルして実行できるため、Linuxユーザーをバイパスしません。

正直に言うと、私自身が最近NanoCAD APIを習得し始めたので、今年の最後の休日の記事は、コードの複雑さの暖かいチューブグラフィックアーティスト「Kengurenok（ROO）」を思い出させます。

PSこれは「Habrahabr」という言葉の最初の文字です-これ以上は十分ではありませんでした=）

私の新しい趣味はすでに小さなシリーズになっているので、念のため、ネタバレの下に以前のすべての記事へのリンクを掲載します。

その他のサイクル記事

はじめに、いつものように、 私はプログラマーではないため、この記事の私の考えがすべて100％正しいわけではないこと、また、私がロシアCADを普及させるというイデオロギーの理由から、NanoCAD開発者とは何の関係もないことを思い出します。

年末には大量のテキストを作成したくないので、記事は短くなります。それを分析します。

内容：

パートI：はじめに

パートII：C＃コードの記述

パートIII：VBでのコードの記述

パートIV：来て！

パートII：C＃コードの記述

NC 8.5のVisual Studio 2015で新しいプロジェクトを作成する方法

今回は、好奇心のために、より軽量のIDE Xamarin Studio（ MonoDevelop ）でプロジェクトを作成しましょう。

プロセス全体をネタバレの下に隠します。

Xamarin Studio IDEでNanoCAD 5.1のC＃プロジェクトを作成する方法

まず、新しいプロジェクトを作成し、C＃クラスライブラリを選択します。

彼に名前をつけて

次に、RMBでプロジェクトをクリックし、「パラメーター」ボタンを選択して、プロジェクトを構成します。

.Net 3.5バージョンを選択

次に、デバッグの便宜上、「F5」キーを押してNanocadの起動を設定します

（コードを変更するたびに、Nanocadを完全に再起動する必要があります）

次に、図の右側に表示されているライブラリが必要なライブラリへのリンクをロードします

「ローカルにコピー」項目からmapimgdライブラリのチェックを外すことを忘れないでください

実は、F5を押してすべてが開始することを確認するコードを記述することは実際には残っています。

ライブラリをロードするには、NanoCADコンソールでNetloadコマンドを入力し、dllを選択します（通常はプロジェクトフォルダーにあります。たとえば、C：\ Users \ b \ Dev \ habr \ XMTree \ XMTree \ bin \ Debug）

毎回これをしないために

アドレスCに移動します：\ ProgramData \ Nanosoft \ nanoCAD 5.1 \ DataRW（変更される場合があります）および次の内容のload.configファイルを検索または作成します

<root> <list> <module path="C:\Users\...\bin\Debug\ .dll"/> </list> </root>

その後、プログラムの起動時にライブラリが自動的にロードされます。

Linuxでも同様の操作を実行できます。Linuxでは、NanoCAD 5.1を実行するにはWineを、プログラミングにはMonoDevelopが必要です。前回の記事で詳しく説明しました。

残念ながら、Wineで問題が発生し、NanoCADの色がどこかで壊れていたため、Linuxツリーは次のようになります。

Linuxでのクリスマスツリー

C＃コードを詳細に分解することはせず、実際には新しいことは何もしません。

つまり、ポリラインを描画してストロークを作成するチームを作成します。

スポイラーの下とGitHubのコード（VB用のバージョンもあります）。

CのNC 5.1の完全なコード＃

 //Use Microsoft .NET Framework 3.5 and old version of MultiCad.NET (for NC 5.1) //Class for demonstrating the capabilities of MultiCad.NET //Assembly for the Nanocad 5.1 //Link mapimgd from Nanocad SDK //Link System.Windows.Forms and System.Drawing //The commands: draws a christmas three. //This code in the part of non-infringing rights Nanosoft can be used and distributed in any accessible ways. //For the consequences of the code application, the developer is not responsible. //The code was not tested with NANOCAD 8.X. // However, it should work, if you update SDK libraries and include NC 8.X dll using System.Collections.Generic; using System.Linq; using Multicad.Runtime; using Multicad.DatabaseServices; using Multicad.Geometry; using Multicad.DatabaseServices.StandardObjects; using System.Drawing; using System.Windows.Forms; namespace XmasThree { class XmasThree { [CommandMethod("DXThree", CommandFlags.NoCheck | CommandFlags.NoPrefix)] public void DrawXThree() { Point3d _pntBase; Point3d _bufPnt; //prompts for installation point entry InputJig jig = new InputJig(); // Get the first box point from the jig InputResult res = jig.GetPoint("Select first point:"); //It works only if input was successful if (res.Result == InputResult.ResultCode.Normal) { // The base point is taken from the entry point (click with mouse) _pntBase = res.Point; //Draw the outline of the left half of the Christmas tree //Create base points for the polyline List<Point3d> leftPatrOfThreePoints = new List<Point3d>() { new Point3d(_pntBase.X, _pntBase.Y, 0), new Point3d(_pntBase.X-125, _pntBase.Y-154, 0), new Point3d(_pntBase.X-31, _pntBase.Y-137, 0), new Point3d(_pntBase.X-181, _pntBase.Y-287, 0), new Point3d(_pntBase.X-31, _pntBase.Y-253, 0), new Point3d(_pntBase.X-242, _pntBase.Y-400, 0), new Point3d(_pntBase.X-37, _pntBase.Y-400, 0), new Point3d(_pntBase.X-37, _pntBase.Y-454, 0), new Point3d(_pntBase.X, _pntBase.Y-454, 0) }; //Create a polyline (geometry) Polyline3d leftPatrOfThree = new Polyline3d(leftPatrOfThreePoints); //Create a polyline object and place it on the drawing DbPolyline XThreeLeft = new DbPolyline(); XThreeLeft.Polyline = new Polyline3d(leftPatrOfThree); XThreeLeft.Polyline.SetClosed(false); XThreeLeft.DbEntity.Color = Color.Green; XThreeLeft.DbEntity.AddToCurrentDocument(); //The right part of the tree is obtained by mirroring the left DbPolyline XThreeRight = new DbPolyline(); XThreeRight.DbEntity.Color = Color.Green; XThreeRight.Polyline = (Polyline3d)XThreeLeft.Polyline.Mirror(new Plane3d(_pntBase, new Vector3d(10, 0, 0))); XThreeRight.DbEntity.AddToCurrentDocument(); //From the right and left sides we make a single contour for hatching DbPolyline XThreeR = new DbPolyline(); XThreeR.DbEntity.Color = Color.Green; //XThreeR.Polyline = XThreeRight.Polyline.Clone() as Polyline3d; for NC 8.5 XThreeR.Polyline = XThreeRight.Polyline.GetCopy() as Polyline3d; //FOR NC 5.1 XThreeR.DbEntity.AddToCurrentDocument(); List<Point3d> hatchPoints = new List<Point3d>(); hatchPoints.AddRange(leftPatrOfThreePoints); hatchPoints.AddRange(XThreeR.Polyline.Points.Reverse().ToList()); Polyline3d hatchContur = new Polyline3d(hatchPoints); //We will create on the basis of a contour a hatch (geometry) with continuous filling Hatch hatch = new Hatch(hatchContur, 0, 10, true); hatch.PattType = PatternType.PreDefined; hatch.PatternName = "SOLID"; //Based on the geometry of the hatch, we create the document object, set its color properties - green DbGeometry dbhatch = new DbGeometry(); dbhatch.Geometry = new EntityGeometry(hatch); dbhatch.DbEntity.Color = Color.Green; dbhatch.DbEntity.AddToCurrentDocument(); // if you want you can try to draw balls with circles use // DrawThreeBalls(_pntBase); //Similarly, make a Christmas tree toy (octagon) //red _bufPnt = _pntBase.Subtract(new Vector3d(30, 95, 0)); DbPolyline dbOctoRed = DrawThreeOctogonPl(_bufPnt);//implicit dbOctoRed.DbEntity.AddToCurrentDocument(); Hatch hatchCirkRed = new Hatch(dbOctoRed.Polyline, 0, 1, false); hatchCirkRed.PattType = PatternType.PreDefined; hatchCirkRed.PatternName = "SOLID"; DbGeometry dbhatchCirkRed = new DbGeometry(); dbhatchCirkRed.Geometry = new EntityGeometry(hatchCirkRed); dbhatchCirkRed.DbEntity.Color = Color.Red; dbhatchCirkRed.DbEntity.AddToCurrentDocument(); //green _bufPnt = _pntBase.Subtract(new Vector3d(-40, 200, 0)); DbPolyline dbOctoGreen = DrawThreeOctogonPl(_bufPnt);//implicit dbOctoGreen.DbEntity.AddToCurrentDocument(); Hatch hatchCirkGreen = new Hatch(dbOctoGreen.Polyline, 0, 1, false); hatchCirkGreen.PattType = PatternType.PreDefined; hatchCirkGreen.PatternName = "SOLID"; DbGeometry dbhatchCirkGreen = new DbGeometry(); dbhatchCirkGreen.Geometry = new EntityGeometry(hatchCirkGreen); dbhatchCirkGreen.DbEntity.Color = Color.LightSeaGreen; dbhatchCirkGreen.DbEntity.AddToCurrentDocument(); //blue _bufPnt = _pntBase.Subtract(new Vector3d(-12, 350, 0)); DbPolyline dbOctoBlue = DrawThreeOctogonPl(_bufPnt);//implicit dbOctoBlue.DbEntity.AddToCurrentDocument(); Hatch hatchCirkBlue = new Hatch(dbOctoBlue.Polyline, 0, 1, false); hatchCirkBlue.PattType = PatternType.PreDefined; hatchCirkBlue.PatternName = "SOLID"; DbGeometry dbhatchCirkBlue = new DbGeometry(); dbhatchCirkBlue.Geometry = new EntityGeometry(hatchCirkBlue); dbhatchCirkBlue.DbEntity.Color = Color.Blue; dbhatchCirkBlue.DbEntity.AddToCurrentDocument(); //display the text with congratulations MessageBox.Show("I Wish You A Merry Christmas And Happy New Year!"); } } public Polyline3d DrawThreeOctogonPl(Point3d _pntB) { //Create points for an octagon List<Point3d> octoPoints = new List<Point3d>() { new Point3d(_pntB.X, _pntB.Y, 0), new Point3d(_pntB.X-15, _pntB.Y, 0), new Point3d(_pntB.X-25, _pntB.Y-11.3, 0), new Point3d(_pntB.X-25, _pntB.Y-26.3, 0), new Point3d(_pntB.X-15, _pntB.Y-37.6, 0), new Point3d(_pntB.X, _pntB.Y-37.6, 0), new Point3d(_pntB.X+9.7, _pntB.Y-26.3, 0), new Point3d(_pntB.X+9.7, _pntB.Y-11.3, 0), new Point3d(_pntB.X, _pntB.Y, 0) }; return new Polyline3d(octoPoints); } //Draws three balls instead of an octagon, can not earn in NanoCAD 8.X public void DrawThreeBalls(Point3d _pntB) { CircArc3d circarcRed = new CircArc3d(_pntB.Subtract(new Vector3d(30, 100, 0)), Vector3d.ZAxis, 15); DbCircArc dbCircarcRed = circarcRed;//implicit dbCircarcRed.DbEntity.AddToCurrentDocument(); Hatch hatchCirkRed = new Hatch(circarcRed, 0, 1, false); hatchCirkRed.PattType = PatternType.PreDefined; hatchCirkRed.PatternName = "SOLID"; DbGeometry dbhatchCirkRed = new DbGeometry(); dbhatchCirkRed.Geometry = new EntityGeometry(hatchCirkRed); dbhatchCirkRed.DbEntity.Color = Color.Red; dbhatchCirkRed.DbEntity.AddToCurrentDocument(); CircArc3d circarcGreen = new CircArc3d(_pntB.Subtract(new Vector3d(-40, 200, 0)), Vector3d.ZAxis, 15); DbCircArc dbCircarcGreen = circarcGreen;//implicit dbCircarcGreen.DbEntity.AddToCurrentDocument(); Hatch hatchCirkGreen = new Hatch(circarcGreen, 0, 1, false); hatchCirkGreen.PattType = PatternType.PreDefined; hatchCirkGreen.PatternName = "SOLID"; DbGeometry dbhatchCirkGreen = new DbGeometry(); dbhatchCirkGreen.Geometry = new EntityGeometry(hatchCirkGreen); dbhatchCirkGreen.DbEntity.Color = Color.LightSeaGreen; dbhatchCirkGreen.DbEntity.AddToCurrentDocument(); CircArc3d circarcBlue = new CircArc3d(_pntB.Subtract(new Vector3d(-12, 350, 0)), Vector3d.ZAxis, 15); DbCircArc dbCircarcBlue = circarcBlue;//implicit dbCircarcBlue.DbEntity.AddToCurrentDocument(); Hatch hatchCirkBlue = new Hatch(circarcBlue, 0, 1, false); hatchCirkBlue.PattType = PatternType.PreDefined; hatchCirkBlue.PatternName = "SOLID"; DbGeometry dbhatchCirkBlue = new DbGeometry(); dbhatchCirkBlue.Geometry = new EntityGeometry(hatchCirkBlue); dbhatchCirkBlue.DbEntity.Color = Color.Blue; dbhatchCirkBlue.DbEntity.AddToCurrentDocument(); } } }

理論上、このコードはNC 8.Xでも動作するはずです。対応するビット容量（x64またはx86）のインクルードフォルダーからプロジェクトにmapibasetypes.dllおよびmapimgd.dllを含めるために.NET Framework 4.0を選択し、1行（対応するコメントがある場合）また、DrawThreeBallsメソッドをコメント化または削除します

次のようになります。

CのNC 8.Xの完全なコード＃

 //Use Microsoft .NET Framework 4 and old version of MultiCad.NET (for NC 8.X) //Class for demonstrating the capabilities of MultiCad.NET //Assembly for the Nanocad 8.X //Link mapimgd and mapibasetypes from Nanocad SDK //Link System.Windows.Forms and System.Drawing //The commands: draws a christmas three. //This code in the part of non-infringing rights Nanosoft can be used and distributed in any accessible ways. //For the consequences of the code application, the developer is not responsible. using System.Collections.Generic; using System.Linq; using Multicad.Runtime; using Multicad.DatabaseServices; using Multicad.Geometry; using Multicad.DatabaseServices.StandardObjects; using System.Drawing; using System.Windows.Forms; namespace XmasThree { class XmasThree { [CommandMethod("DXThree", CommandFlags.NoCheck | CommandFlags.NoPrefix)] public void DrawXThree() { Point3d _pntBase; Point3d _bufPnt; //prompts for installation point entry InputJig jig = new InputJig(); // Get the first box point from the jig InputResult res = jig.GetPoint("Select first point:"); //It works only if input was successful if (res.Result == InputResult.ResultCode.Normal) { // The base point is taken from the entry point (click with mouse) _pntBase = res.Point; //Draw the outline of the left half of the Christmas tree //Create base points for the polyline List<Point3d> leftPatrOfThreePoints = new List<Point3d>() { new Point3d(_pntBase.X, _pntBase.Y, 0), new Point3d(_pntBase.X-125, _pntBase.Y-154, 0), new Point3d(_pntBase.X-31, _pntBase.Y-137, 0), new Point3d(_pntBase.X-181, _pntBase.Y-287, 0), new Point3d(_pntBase.X-31, _pntBase.Y-253, 0), new Point3d(_pntBase.X-242, _pntBase.Y-400, 0), new Point3d(_pntBase.X-37, _pntBase.Y-400, 0), new Point3d(_pntBase.X-37, _pntBase.Y-454, 0), new Point3d(_pntBase.X, _pntBase.Y-454, 0) }; //Create a polyline (geometry) Polyline3d leftPatrOfThree = new Polyline3d(leftPatrOfThreePoints); //Create a polyline object and place it on the drawing DbPolyline XThreeLeft = new DbPolyline(); XThreeLeft.Polyline = new Polyline3d(leftPatrOfThree); XThreeLeft.Polyline.SetClosed(false); XThreeLeft.DbEntity.Color = Color.Green; XThreeLeft.DbEntity.AddToCurrentDocument(); //The right part of the tree is obtained by mirroring the left DbPolyline XThreeRight = new DbPolyline(); XThreeRight.DbEntity.Color = Color.Green; XThreeRight.Polyline = (Polyline3d)XThreeLeft.Polyline.Mirror(new Plane3d(_pntBase, new Vector3d(10, 0, 0))); XThreeRight.DbEntity.AddToCurrentDocument(); //From the right and left sides we make a single contour for hatching DbPolyline XThreeR = new DbPolyline(); XThreeR.DbEntity.Color = Color.Green; XThreeR.Polyline = XThreeRight.Polyline.Clone() as Polyline3d; // for NC 8.5 //XThreeR.Polyline = XThreeRight.Polyline.GetCopy() as Polyline3d; //FOR NC 5.1 XThreeR.DbEntity.AddToCurrentDocument(); List<Point3d> hatchPoints = new List<Point3d>(); hatchPoints.AddRange(leftPatrOfThreePoints); hatchPoints.AddRange(XThreeR.Polyline.Points.Reverse().ToList()); Polyline3d hatchContur = new Polyline3d(hatchPoints); //We will create on the basis of a contour a hatch (geometry) with continuous filling Hatch hatch = new Hatch(hatchContur, 0, 10, true); hatch.PattType = PatternType.PreDefined; hatch.PatternName = "SOLID"; //Based on the geometry of the hatch, we create the document object, set its color properties - green DbGeometry dbhatch = new DbGeometry(); dbhatch.Geometry = new EntityGeometry(hatch); dbhatch.DbEntity.Color = Color.Green; dbhatch.DbEntity.AddToCurrentDocument(); // if you want you can try to draw balls with circles use // DrawThreeBalls(_pntBase); //Similarly, make a Christmas tree toy (octagon) //red _bufPnt = _pntBase.Subtract(new Vector3d(30, 95, 0)); DbPolyline dbOctoRed = DrawThreeOctogonPl(_bufPnt);//implicit dbOctoRed.DbEntity.AddToCurrentDocument(); Hatch hatchCirkRed = new Hatch(dbOctoRed.Polyline, 0, 1, false); hatchCirkRed.PattType = PatternType.PreDefined; hatchCirkRed.PatternName = "SOLID"; DbGeometry dbhatchCirkRed = new DbGeometry(); dbhatchCirkRed.Geometry = new EntityGeometry(hatchCirkRed); dbhatchCirkRed.DbEntity.Color = Color.Red; dbhatchCirkRed.DbEntity.AddToCurrentDocument(); //green _bufPnt = _pntBase.Subtract(new Vector3d(-40, 200, 0)); DbPolyline dbOctoGreen = DrawThreeOctogonPl(_bufPnt);//implicit dbOctoGreen.DbEntity.AddToCurrentDocument(); Hatch hatchCirkGreen = new Hatch(dbOctoGreen.Polyline, 0, 1, false); hatchCirkGreen.PattType = PatternType.PreDefined; hatchCirkGreen.PatternName = "SOLID"; DbGeometry dbhatchCirkGreen = new DbGeometry(); dbhatchCirkGreen.Geometry = new EntityGeometry(hatchCirkGreen); dbhatchCirkGreen.DbEntity.Color = Color.LightSeaGreen; dbhatchCirkGreen.DbEntity.AddToCurrentDocument(); //blue _bufPnt = _pntBase.Subtract(new Vector3d(-12, 350, 0)); DbPolyline dbOctoBlue = DrawThreeOctogonPl(_bufPnt);//implicit dbOctoBlue.DbEntity.AddToCurrentDocument(); Hatch hatchCirkBlue = new Hatch(dbOctoBlue.Polyline, 0, 1, false); hatchCirkBlue.PattType = PatternType.PreDefined; hatchCirkBlue.PatternName = "SOLID"; DbGeometry dbhatchCirkBlue = new DbGeometry(); dbhatchCirkBlue.Geometry = new EntityGeometry(hatchCirkBlue); dbhatchCirkBlue.DbEntity.Color = Color.Blue; dbhatchCirkBlue.DbEntity.AddToCurrentDocument(); //display the text with congratulations MessageBox.Show("I Wish You A Merry Christmas And Happy New Year!"); } } public Polyline3d DrawThreeOctogonPl(Point3d _pntB) { //Create points for an octagon List<Point3d> octoPoints = new List<Point3d>() { new Point3d(_pntB.X, _pntB.Y, 0), new Point3d(_pntB.X-15, _pntB.Y, 0), new Point3d(_pntB.X-25, _pntB.Y-11.3, 0), new Point3d(_pntB.X-25, _pntB.Y-26.3, 0), new Point3d(_pntB.X-15, _pntB.Y-37.6, 0), new Point3d(_pntB.X, _pntB.Y-37.6, 0), new Point3d(_pntB.X+9.7, _pntB.Y-26.3, 0), new Point3d(_pntB.X+9.7, _pntB.Y-11.3, 0), new Point3d(_pntB.X, _pntB.Y, 0) }; return new Polyline3d(octoPoints); } } }

パートIII：VBでのコードの記述

Visual Studio 2015 for VB.NETでプロジェクトを作成するプロセスは、C＃のプロジェクトを作成するプロセスとほぼ完全に同じですが、必要なスキルを持っていない人でも記事を読むことができるので、この点をさらに詳しく分析します。

まず、新しいプロジェクトを作成し、VB.NETクラスライブラリを選択し、.NET Framework 3.5（NC 8.Xバージョン4.0用）を選択します

次に、右側の「リンク」ボタンを右クリックして、NanoCADのすべてのバージョンのSDKでインストールしたライブラリにリンクを追加します。

このプロジェクトでは、mapimgdだけで十分です（NC 8.5ではmapibasetypesも必要です）。

また、標準のSystem.Windows.FormsとSystem.Drawingをロードする必要があります

「ローカルにコピー」プロパティのチェックを外すことを忘れないでください

次に、RMBでプロジェクトをクリックし、「プロパティ」ボタンを選択して、プロジェクトを設定します

デバッグの便宜上、「F5」キーを押してNanocadの起動を設定します

（コードを変更するたびに、Nanocadを完全に再起動する必要があります）

ライブラリをロードするには、NanoCADコンソールでNetloadコマンドを入力し、コンパイル済みのdllを選択します（通常はプロジェクトフォルダーにあります。たとえば、C：\ Users \ b \ Dev \ habr \ XMTree \ XMTree \ bin \ Debug）。

毎回これを行わないために、アドレスC：\ ProgramData \ Nanosoft \ nanoCAD 5.1 \ DataRW（これは異なる場合があります）に移動し、次の内容のload.configファイルを検索または作成します。

 <root> <list> <module path="C:\Users\...\bin\Debug\ .dll"/> </list> </root>

その後、プログラムの起動時にライブラリが自動的にロードされます。

すでに言ったように、VB.NETについてはまったく知りませんが、C＃を少し知っていて、C＃からVBへのコードコンバーターにすべての大まかな作業（たとえば、これ）を実行させると、必要なのは、少し修正することだけです。

完全なコマンドコードをスポイラーの下に配置し、それを部分的に分析します。

VB.NET上のNC 5.1の完全なコード

 Imports System.Collections.Generic Imports Multicad.Runtime Imports Multicad.DatabaseServices Imports Multicad.Geometry Imports Multicad.DatabaseServices.StandardObjects Imports System.Drawing Imports System.Windows.Forms Namespace XmasThree Class XmasThree <CommandMethod("DXThree", CommandFlags.NoCheck Or CommandFlags.NoPrefix)> Public Sub DrawXThree() Dim _pntBase As Point3d Dim _bufPnt As Point3d Dim jig As New InputJig() 'prompts for installation point entry Dim res As InputResult = jig.GetPoint("Select first point:") If res.Result = InputResult.ResultCode.Normal Then 'The base point is taken from the entry point (click with mouse) _pntBase = res.Point 'Draw the outline of the left half of the Christmas tree 'Create base points for the polyline Dim leftPatrOfThreePoints As New List(Of Point3d)() From { New Point3d(_pntBase.X, _pntBase.Y, 0), New Point3d(_pntBase.X - 125, _pntBase.Y - 154, 0), New Point3d(_pntBase.X - 31, _pntBase.Y - 137, 0), New Point3d(_pntBase.X - 181, _pntBase.Y - 287, 0), New Point3d(_pntBase.X - 31, _pntBase.Y - 253, 0), New Point3d(_pntBase.X - 242, _pntBase.Y - 400, 0), New Point3d(_pntBase.X - 37, _pntBase.Y - 400, 0), New Point3d(_pntBase.X - 37, _pntBase.Y - 454, 0), New Point3d(_pntBase.X, _pntBase.Y - 454, 0) } 'Create a polyline (geometry) Dim leftPatrOfThree As New Polyline3d(leftPatrOfThreePoints) 'Create a polyline object and place it on the drawing Dim XThreeLeft As New DbPolyline() XThreeLeft.Polyline = New Polyline3d(leftPatrOfThree) XThreeLeft.Polyline.SetClosed(False) XThreeLeft.DbEntity.Color = Color.Green XThreeLeft.DbEntity.AddToCurrentDocument() Dim XThreeRight As New DbPolyline() XThreeRight.DbEntity.Color = Color.Green XThreeRight.Polyline = DirectCast(XThreeLeft.Polyline.Mirror(New Plane3d(_pntBase, New Vector3d(10, 0, 0))), Polyline3d) XThreeRight.DbEntity.AddToCurrentDocument() 'From the right and left sides we make a single contour for hatching Dim XThreeR As New DbPolyline() XThreeR.DbEntity.Color = Color.Green XThreeR.Polyline = TryCast(XThreeRight.Polyline.GetCopy(), Polyline3d) XThreeR.DbEntity.AddToCurrentDocument() Dim hatchPoints As New List(Of Point3d)() hatchPoints.AddRange(leftPatrOfThreePoints) hatchPoints.AddRange(XThreeR.Polyline.Points.Reverse().ToList()) Dim hatchContur As New Polyline3d(hatchPoints) 'We will create on the basis of a contour a hatch (geometry) with continuous filling Dim hatch As New Hatch(hatchContur, 0, 10, True) hatch.PattType = PatternType.PreDefined hatch.PatternName = "SOLID" 'Based on the geometry of the hatch, we create the document object, set its color properties - green Dim dbhatch As New DbGeometry() dbhatch.Geometry = New EntityGeometry(hatch) dbhatch.DbEntity.Color = Color.Green dbhatch.DbEntity.AddToCurrentDocument() 'Similarly, make a Christmas tree toy (octagon) 'red _bufPnt = _pntBase.Subtract(New Vector3d(30, 95, 0)) Dim dbOctoRed As DbPolyline = DrawThreeOctogonPl(_bufPnt) dbOctoRed.DbEntity.AddToCurrentDocument() Dim hatchCirkRed As New Hatch(dbOctoRed.Polyline, 0, 1, False) hatchCirkRed.PattType = PatternType.PreDefined hatchCirkRed.PatternName = "SOLID" Dim dbhatchCirkRed As New DbGeometry() dbhatchCirkRed.Geometry = New EntityGeometry(hatchCirkRed) dbhatchCirkRed.DbEntity.Color = Color.Red dbhatchCirkRed.DbEntity.AddToCurrentDocument() 'green _bufPnt = _pntBase.Subtract(New Vector3d(-40, 200, 0)) Dim dbOctoGreen As DbPolyline = DrawThreeOctogonPl(_bufPnt) dbOctoGreen.DbEntity.AddToCurrentDocument() Dim hatchCirkGreen As New Hatch(dbOctoGreen.Polyline, 0, 1, False) hatchCirkGreen.PattType = PatternType.PreDefined hatchCirkGreen.PatternName = "SOLID" Dim dbhatchCirkGreen As New DbGeometry() dbhatchCirkGreen.Geometry = New EntityGeometry(hatchCirkGreen) dbhatchCirkGreen.DbEntity.Color = Color.LightSeaGreen dbhatchCirkGreen.DbEntity.AddToCurrentDocument() 'blue _bufPnt = _pntBase.Subtract(New Vector3d(-12, 350, 0)) Dim dbOctoBlue As DbPolyline = DrawThreeOctogonPl(_bufPnt) dbOctoBlue.DbEntity.AddToCurrentDocument() Dim hatchCirkBlue As New Hatch(dbOctoBlue.Polyline, 0, 1, False) hatchCirkBlue.PattType = PatternType.PreDefined hatchCirkBlue.PatternName = "SOLID" Dim dbhatchCirkBlue As New DbGeometry() dbhatchCirkBlue.Geometry = New EntityGeometry(hatchCirkBlue) dbhatchCirkBlue.DbEntity.Color = Color.Blue dbhatchCirkBlue.DbEntity.AddToCurrentDocument() MessageBox.Show("I Wish You A Merry Christmas And Happy New Year!!!") End If End Sub Public Function DrawThreeOctogonPl(_pntB As Point3d) As Polyline3d 'Create points for an octagon Dim octoPoints As New List(Of Point3d)() From { New Point3d(_pntB.X, _pntB.Y, 0), New Point3d(_pntB.X - 15, _pntB.Y, 0), New Point3d(_pntB.X - 25, _pntB.Y - 11.3, 0), New Point3d(_pntB.X - 25, _pntB.Y - 26.3, 0), New Point3d(_pntB.X - 15, _pntB.Y - 37.6, 0), New Point3d(_pntB.X, _pntB.Y - 37.6, 0), New Point3d(_pntB.X + 9.7, _pntB.Y - 26.3, 0), New Point3d(_pntB.X + 9.7, _pntB.Y - 11.3, 0), New Point3d(_pntB.X, _pntB.Y, 0) } Return New Polyline3d(octoPoints) End Function End Class End Namespace

コードは単純ですが、念のため、VBの場合はこれまで行ったことがないため、コードを詳細かつ部分的に分析します。

 Imports System.Collections.Generic Imports Multicad.Runtime Imports Multicad.DatabaseServices Imports Multicad.Geometry Imports Multicad.DatabaseServices.StandardObjects Imports System.Drawing Imports System.Windows.Forms

描画用のMultiCAD.NET APIライブラリの名前空間、およびウィンドウを表示してハッチングに色を割り当てるWindowsライブラリをインポートします。

 Namespace XmasThree Class XmasThree

名前空間とクラス名の定義

  <CommandMethod("DXThree", CommandFlags.NoCheck Or CommandFlags.NoPrefix)> Public Sub DrawXThreeLeft()

Nanocadのコマンドラインに入力するチームを作成し、実際にツリーを描画します。

<CommandMethod（ "DXThree"> -Nanocadから呼び出すコマンドの名前。任意の名前を指定できますが、簡単に言えば、残りのフラグの目的はわかりません。

Public Sub DrawXThreeLeft（） -コマンドの関数（メソッド）の名前は、CADユーザーには見えない内部ロジックです。

 Dim _pntBase As Point3d Dim _bufPnt As Point3d

クリスマスツリーの装飾用の挿入ポイントの座標と挿入バッファーポイントの座標を格納するために、クラスフィールド（変数）を作成します。

 Dim jig As New InputJig() Dim res As InputResult = jig.GetPoint("Select first point:")

コンソールへの入力用に新しいオブジェクトを作成し、ユーザーに画面をクリックして挿入ポイントを決定するよう招待します。

 If res.Result = InputResult.ResultCode.Normal Then _pntBase = res.Point

入力が成功すると、クリスマスツリーがさらに描画され、失敗すると何も行われません。

  Dim leftPatrOfThreePoints As New List(Of Point3d)() From { New Point3d(_pntBase.X, _pntBase.Y, 0), New Point3d(_pntBase.X - 125, _pntBase.Y - 154, 0), New Point3d(_pntBase.X - 31, _pntBase.Y - 137, 0), New Point3d(_pntBase.X - 181, _pntBase.Y - 287, 0), New Point3d(_pntBase.X - 31, _pntBase.Y - 253, 0), New Point3d(_pntBase.X - 242, _pntBase.Y - 400, 0), New Point3d(_pntBase.X - 37, _pntBase.Y - 400, 0), New Point3d(_pntBase.X - 37, _pntBase.Y - 454, 0), New Point3d(_pntBase.X, _pntBase.Y - 454, 0) }

ポリラインの頂点を定義するポイントを持つリストを作成します（ツリーの左半分）

  'Create a polyline (geometry) Dim leftPatrOfThree As New Polyline3d(leftPatrOfThreePoints) 'Create a polyline object and place it on the drawing Dim XThreeLeft As New DbPolyline() XThreeLeft.Polyline = New Polyline3d(leftPatrOfThree) XThreeLeft.Polyline.SetClosed(False) XThreeLeft.DbEntity.Color = Color.Green XThreeLeft.DbEntity.AddToCurrentDocument()

最初に、ツリーの左半分のジオメトリ（画面に表示されない）を作成し、次にドキュメントオブジェクトを作成します。その結果、 XThreeLeft.DbEntity.AddToCurrentDocument（）コマンドを使用して、図面モデル空間に配置します。

  Dim XThreeRight As New DbPolyline() XThreeRight.DbEntity.Color = Color.Green XThreeRight.Polyline = DirectCast(XThreeLeft.Polyline.Mirror(New Plane3d(_pntBase, New Vector3d(10, 0, 0))), Polyline3d) XThreeRight.DbEntity.AddToCurrentDocument()

ツリーの右半分を作成するには、左をミラーリングするだけです（NanoCAD自体のミラーリングコマンドのアナログ）。これを行うには、ツリーの左半分のポリラインでMirrorメソッドを呼び出し、DirectCastコマンドを使用して、タイプをPolyline3dにキャストすることを忘れないでください。

  Dim XThreeRight As New DbPolyline() XThreeRight.DbEntity.Color = Color.Green XThreeRight.Polyline = DirectCast(XThreeLeft.Polyline.Mirror(New Plane3d(_pntBase, New Vector3d(10, 0, 0))), Polyline3d) XThreeRight.DbEntity.AddToCurrentDocument()

奇妙なことに、NC 5.1用SDKのMultiCAD.NET APIのヘルプでは、通常の.NET APIのドキュメントにはありますが、ハッチはMultiCAD.NET APIに実装されているようですが、ハッチ参照は見つかりませんでした。そのため、少なくとも以下のコードはうまく機能します。

  Dim XThreeR As New DbPolyline() XThreeR.DbEntity.Color = Color.Green XThreeR.Polyline = TryCast(XThreeRight.Polyline.GetCopy(), Polyline3d) XThreeR.DbEntity.AddToCurrentDocument() Dim hatchPoints As New List(Of Point3d)() hatchPoints.AddRange(leftPatrOfThreePoints) hatchPoints.AddRange(XThreeR.Polyline.Points.Reverse().ToList()) Dim hatchContur As New Polyline3d(hatchPoints)

最初に、ツリーの左半分と右半分の点を組み合わせて、線が正しい順序で閉じるようにします。右半分の頂点の配列は、頂点が逆順になるように「裏返す」必要があります。

次に、通常の方法で、ポイントのリストを使用して、ポリラインのジオメトリを作成します。

ここでは、コードは少し冗長です。自分でより正確に書き直すことができます

  'We will create on the basis of a contour a hatch (geometry) with continuous filling Dim hatch As New Hatch(hatchContur, 0, 10, True) hatch.PattType = PatternType.PreDefined hatch.PatternName = "SOLID"

フルスプルースアウトラインを使用して、ハッチングのジオメトリを作成します。ハッチングのタイプとして、塗りつぶしを選択します（ハッチングの名前は、「ハッチング」コマンドを選択することでNanocad自体に表示されます）。

  Dim dbhatch As New DbGeometry() dbhatch.Geometry = New EntityGeometry(hatch) dbhatch.DbEntity.Color = Color.Green dbhatch.DbEntity.AddToCurrentDocument()

次に、緑に設定した後、モデル空間に配置する描画オブジェクトを作成します。

クリスマスツリーの飾りを掛けてください。最初はボールに陰影を付けることを想定していましたが、開発者フォーラムから円をハッチングするアドバイスは、C＃バージョンのコードとNC 5.1でのみ有効であるため、8角形にハッチングします。

  'Similarly, make a Christmas tree toy (octagon) 'red _bufPnt = _pntBase.Subtract(New Vector3d(30, 95, 0)) Dim dbOctoRed As DbPolyline = DrawThreeOctogonPl(_bufPnt) dbOctoRed.DbEntity.AddToCurrentDocument() Dim hatchCirkRed As New Hatch(dbOctoRed.Polyline, 0, 1, False) hatchCirkRed.PattType = PatternType.PreDefined hatchCirkRed.PatternName = "SOLID" Dim dbhatchCirkRed As New DbGeometry() dbhatchCirkRed.Geometry = New EntityGeometry(hatchCirkRed) dbhatchCirkRed.DbEntity.Color = Color.Red dbhatchCirkRed.DbEntity.AddToCurrentDocument()

プロセス全体は以前に行ったものと同じです。唯一の違いは、コードの量を減らすために、個別のメソッドDrawThreeOctogonPlで八角形のポリラインを少し作成したことです。

このような「ボール」は3つ（赤、緑、青）ありますが、それらを別々に分けるのは意味がないと思います。

最後に残っているのは、お祝いのウィンドウを表示することです。

  MessageBox.Show("I Wish You a Merry Christmas and Happy New Year!!!") End If End Sub

その結果、次の図が得られます。

NC 5.1の場合

NC 8.1の場合

パートIV：来て！

おそらく、誰かが私たちが今では役に立たない、そして役に立たない「でたらめ」をしたと言うでしょう...

また、これは初心者向けの別の記事であり、Habréには掲載されていません。

しかし、学校で彼らがプログラミングについてすべて教えようとしたとき、カンガルーの助けを借りて何かを描くという最も簡単なタスクから始め、その後ベーシックの基礎を与えました（当時はすでに古き良きパスカルが好きでしたが）。はい。基本テーマのバリエーションを隠すことは、少なくとも同じSmallBasic をプログラムする方法を人々に教えることができる方法の1つです。

したがって、NC 5.1はあらゆる目的で完全に無料であるため、NanoCADの教育版のライセンスを取得できます機関は、その後、私は高校と中等職業教育の教育機関は非常によくNanokadと簡単な例を見てどのようにプログラムCADに子供たちに説明することができると思い。

公正ではNCが学校で使いやすいです唯一のCADソフトウェアではないことに留意すべきであるとそれがAPIを開いている、あなたは確かに同じに向けることができますが、「コンパス」

いずれにせよ、私はあなたにすべての幸せと成功を祈って来て2018年！

そして2018年に、開発者が新しいAPIと新しいNET Frameworkを備えたNanoCADの無料版の通常のアップデートを提供してくれることを願っています。

PS重要！別の記事を囲わないように、念のために、私と同じようにNanocad 8.XのAPIを選んでいる人々に警告します。

個人的には、最新のWindows 10更新プログラムを64ビットバージョンのNanoCADにインストールした後、ポリラインが失敗し始めました（高さが正しく設定されていません）。そして、以前に記述されたすべてのC＃コマンドは、「下に向かって」行きます。

32ビットバージョンでは、すべてが正常に機能します。この問題の解決策はまだ見つかっていないので、Windows 10を更新する前に、それが重要な場合は注意してください。

「こんにちは、お正月！」またはVisual Basic .NETを使用してNanoCADをプログラミングします

パートII：C＃コードの記述

パートIII：VBでのコードの記述

パートIV：来て！

More articles: