お知らせ

--------------------------------------------------

プログラム作成/コンサルティングの申し込みはこちら

--------------------------------------------------

2010年11月15日月曜日

.NET - ラバーバンドを表示して 2 点目を指定する(AutoCAD 2011)

今日も .NET 質問いただいたことについて書こうと思います。

例えば、左下点と右上点をクリックして範囲を指定する(クリックした左下点と右上点の座標値を取得する)ときにラバーバンドを表示したいっといった内容です。

こんなとき、下の絵のようにラバーバンドが出てくれないと、この範囲を指定してますって感じに見えないですよね。

GetCorner メソッドを使えば、2 点目を指定するときにラバーバンドが出てきます。

管理人が確認したコードは、こんな感じです。

'--------------------------------------
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = doc.Editor

Dim ppo As New PromptPointOptions("1点目を指定")
ppo.AllowNone = False

Dim ppr As PromptPointResult = ed.GetPoint(ppo)

If ppr.Status <> PromptStatus.OK Then
    Return
End If

Dim pt1 As Point3d = ppr.Value

Dim pco As New PromptCornerOptions(vbLf & "2点目を指定", pt1)
ppr = ed.GetCorner(pco)

If ppr.Status <> PromptStatus.OK Then
    Return
End If

Dim pt2 As Point3d = ppr.Value

MsgBox("1点目:" & pt1.ToString & vbLf & "2点目:" & pt2.ToString)
'--------------------------------------

0 件のコメント:

コメントを投稿