ACAD Video Programing

.NET - 異なる値で連続オフセットするプログラムを作ってみました（AutoCAD 2011）

2011-02-26T11:17:00.003+09:00

先日異なる値で連続オフセットする（AutoCAD 2011）で書きましたが、異なる値で連続オフセットするプログラムを作ってみました。

GetOffsetCurves メソッドでオフセットできるみたいだったので、結構簡単に作れるのかなと思って始めたんですた、なかなか難しかったです。

最初につまずいたのは、AutoCAD の OFFSET コマンドみたいにオフセットする側をクリックして指定できたら便利だと思ったんですが、どうやってやればいいのやら？？？

そのためのメソッドとかなにかあるのかなと思ったんですが、見つけられませんでした。
いろいろググッても見たんですが、それでも何も見つけられなくて…

ほとんど諦めかけてたんですが、ひょっとして「元のオブジェクトとクリックした点の最短距離」と「オフセットしたオブジェクトとリックした点の最短距離」を比較すればいのかなって思ってやってみたらできました。

もっといい方法があるのかどうかは分かりませんが、とりあえずできたのでよしとしましょう。

GetClosestPointTo メソッドで、クリックした点から一番近いオブジェクト上の点を求めて、DistanceTo メソッドで距離を求めました。

で、連続オフセットする最初の一回目だけ、「元のオブジェクトとクリックした点の最短距離」と「オフセットしたオブジェクトとリックした点の最短距離」を比較して、前者より後者の方が大きかったときはオフセットする方向を反対にしました。

それと、UCS を変更するとうまくいかないことがあるみたいだったので、UCS を WCS に変換するっていう手順も追加しました。

コードはこんな感じです。
' ---------------------------------------------
Imports System
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Imports AVDO_Offset.DemandLoading.RegistryUpdate

' This line is not mandatory, but improves loading performances
<Assembly: CommandClass(GetType(AVDO_Offset.MyCommands))>

Namespace AVDO_Offset

   Public Class MyCommands
   <CommandMethod("AVDO_Offset", "AVDO_Offset", CommandFlags.Modal + CommandFlags.UsePickSet)> _
   Public Sub AVDO_Offset()
   Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   Dim db As Database = doc.Database
   Dim ed As Editor = doc.Editor

   ' オフセットのために選択したオブジェクトのオブジェクトID
   Dim selEntID As ObjectId

   ' PickFirst 選択セットを取得
   Dim psr As PromptSelectionResult = ed.SelectImplied()

   If psr.Status = PromptStatus.OK Then
   If psr.Value.Count > 1 Then
   ' 複数のオブジェクトが PickFirst 選択セットに含まれているときは、ひとつのオブジェクトを選択しなおす
   selEntID = ed.GetEntity("オブジェクトを選択").ObjectId
   Else
   ' ひとつだけのオブジェクトが PickFirst 選択セットに含まれているときは、そのオブジェクトIDを使用
   selEntID = psr.Value.GetObjectIds(0)
   End If
   Else
   ' PickFirst 選択セットを取得できなかったときオブジェクトをオブジェクトを選択する
   selEntID = ed.GetEntity(vbCrLf & "オブジェクトを選択").ObjectId
   End If

   ' 何も選択されていなかったら、コマンドを終了する
   If selEntID.IsValid = False Then
   Return
   End If

   Using trans As Transaction = db.TransactionManager.StartTransaction
   Dim ent As Entity = trans.GetObject(selEntID, OpenMode.ForRead)

   ' 選択されたオブジェクトが、オフセットの対象でない場合はコマンドを終了する
   If (TypeOf ent Is Line) _
   Or (TypeOf ent Is Arc) _
   Or (TypeOf ent Is Circle) _
   Or (TypeOf ent Is Ellipse) _
   Or (TypeOf ent Is Polyline) _
   Or (TypeOf ent Is Polyline2d) _
   Or (TypeOf ent Is Spline) _
   Or (TypeOf ent Is Xline) Then
   Else
   ed.WriteMessage(vbCrLf & "このオブジェクトはオフセットできません。")
   Return
   End If
   End Using


   ' オフセットする方向を指定
   Dim ppo As PromptPointOptions = New PromptPointOptions(vbCrLf & "オフセットする側の点を指定")
   Dim ppr As PromptPointResult

   ppr = ed.GetPoint(ppo)

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

   ' オフセットする距離
   Dim dist As Double = 0

   ' オフセットする距離の追加分
   Dim distAdd As Double = 0

   ' オフセットしている回数
   Dim cnt As Integer = 0

   ' オフセットする側
   Dim ofstDirection As Boolean = True

   While True
   Using trans As Transaction = db.TransactionManager.StartTransaction
   Try
   Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
   Dim btRec As BlockTableRecord

   Dim cSpace As BlockTableRecord = trans.GetObject(db.CurrentSpaceId, OpenMode.ForRead)
   If cSpace.Name = "*Model_Space" Then
   btRec = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
   Else
   btRec = trans.GetObject(bt(BlockTableRecord.PaperSpace), OpenMode.ForWrite)
   End If

   ' 選択したオブジェクトに対して実行
   Dim ent As Entity = trans.GetObject(selEntID, OpenMode.ForRead)

   'オフセットされたオブジェクトコレクション
   Dim dbObjColl As DBObjectCollection = Nothing

   ' オフセットする距離を入力させる
   Dim pdo As PromptDistanceOptions
   If cnt = 0 Then
   pdo = New PromptDistanceOptions(vbCrLf & "距離を指定してください")
   Else
   pdo = New PromptDistanceOptions(vbCrLf & "距離を指定してください<" & distAdd & ">")
   End If
   pdo.AllowNone = True
   pdo.AllowNegative = False
   pdo.Keywords.Add("eXit", "eXit", "終了(X)")

   Dim pdr As PromptDoubleResult

   pdr = ed.GetDistance(pdo)

   If pdr.Status <> PromptStatus.None Then
   distAdd = pdr.Value
   End If

   ' [終了(X)] オプションが選択されたときは、コマンドを終了
   If pdr.StringResult = "eXit" Then
   Return
   End If

   If cnt = 0 Then
   If pdr.Status <> PromptStatus.OK Then
   Return
   End If
   Else
   If (pdr.Status <> PromptStatus.OK) And (pdr.Status <> PromptStatus.None) Then
   Return
   End If
   End If

   dist = dist + distAdd

   ' それぞれのオブジェクトに対するオブジェクトコレクションを作成
   Dim ofstent As Curve = ent

   ' GetOffsetCurves で使うオフセット値
   Dim ofstDist As Double
   If ofstDirection = True Then
   ofstDist = dist
   Else
   ofstDist = 0 - dist
   End If

   ' オフセットしたオブジェクトを作成
   Try
   dbObjColl = ofstent.GetOffsetCurves(ofstDist)
   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   ed.WriteMessage(vbCrLf & "このオブジェクトはオフセットできません。")
   Return
   End Try

   ' UCS を WCS に変換
   Dim vpTblRec As ViewportTableRecord = trans.GetObject(doc.Editor.ActiveViewportId, OpenMode.ForWrite)

   Dim newMatrix As Matrix3d = New Matrix3d()
   newMatrix = Matrix3d.AlignCoordinateSystem(Point3d.Origin, _
   Vector3d.XAxis, _
   Vector3d.YAxis, _
   Vector3d.ZAxis, _
   vpTblRec.Ucs.Origin, _
   vpTblRec.Ucs.Xaxis, _
   vpTblRec.Ucs.Yaxis, _
   vpTblRec.Ucs.Zaxis)

   Dim pprWCS As Point3d = ppr.Value.TransformBy(newMatrix)

   ' オフセットする側が正しいか確認し、間違っていれば反対にする
   Dim distOrg As Double = ofstent.GetClosestPointTo(pprWCS, True).DistanceTo(pprWCS) ' 元のオブジェクトと指定した点の距離
   Dim distOfst As Double = distPtoObjColl(pprWCS, dbObjColl) ' オフセットしたオブジェクトと指定した点の距離

   ' 最初のオフセットのときに、オフセットする側が正しいか確認
   If (cnt = 0) And (distOrg < distOfst) Then
   dbObjColl.Dispose()
   Try
   dbObjColl = ofstent.GetOffsetCurves(-dist)
   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   ed.WriteMessage(vbCrLf & "このオブジェクトはオフセットできません。")
   Return
   End Try
   ofstDirection = False
   End If

   cnt += 1

   ' オフセットされたオブジェクトを追加
   If dbObjColl <> Nothing Then
   For Each acEnt As Entity In dbObjColl
   btRec.AppendEntity(acEnt)
   trans.AddNewlyCreatedDBObject(acEnt, True)
   Next
   End If

   trans.Commit()

   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   MsgBox(ex.Message)

   End Try
   End Using
   End While
   End Sub

   ' ある点と、オブジェクトコレクションにあるオブジェクトの最短距離を求める関数
   Public Function distPtoObjColl(ByVal pt As Point3d, ByVal dbObjColl As DBObjectCollection) As Double
   Dim dist As Double = 10 ^ 100

   For Each acEnt As Curve In dbObjColl
   Dim pt2 As Point3d = acEnt.GetClosestPointTo(pt, True)
   Dim distTemp As Double = pt.DistanceTo(pt2)
   If distTemp < dist Then
   dist = distTemp
   End If
   Next

   Return dist
   End Function
   End Class
End Namespace
' ---------------------------------------------

.NET でプロファイルを変更する（AutoCAD 2011）

2011-02-03T18:40:00.001+09:00

プロファイルを変更するには［オプション］ダイアログの［プロファイル］タブで、変更したいプロファイルをダブルクリックするんですが、ちょっと面倒くさいなと思って .NET でコマンド作れないかいろいろググリながらやってみました。

私の場合は以下の 2D 用と 3D 用のプロファイルがあります。

ACAD Video 2D
ACAD Video 3D

それを入れ替えるコマンドを作ってみました。

2D 用のプロファイルにするコマンド　：　AVDO_2D
3D 用のプロファイルにするコマンド　：　AVDO_3D

コードはこんな感じです。
--------------------------------------------------
Imports System
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Interop

' This line is not mandatory, but improves loading performances
<Assembly: CommandClass(GetType(AVDO_ChWsProfile.MyCommands))>

Namespace AVDO_ChWsProfile

   Public Class MyCommands

   Const p2d As String = "ACAD Video 2D" ' 2D 用のプロファイルの名前
   Const p3d As String = "ACAD Video 3D" ' 3D 用のプロファイルの名前

   <CommandMethod("AVDO_ChWsProfile", "AVDO_2D", "AVDO_2D", CommandFlags.Modal)> _
   Public Sub AVDO_2D()
   Dim ap As AcadPreferences = Application.Preferences

   If ap.Profiles.ActiveProfile = p2d Then
   MsgBox("プロファイルは既に " & p2d & " になっています。")
   Return
   End If

   If ChProperty(p2d) Then
   ap.Profiles.ActiveProfile = p2d
   Else
   MsgBox(p2d & " というプロファイルがありません。")
   End If

   End Sub

   <CommandMethod("AVDO_ChWsProfile", "AVDO_3D", "AVDO_3D", CommandFlags.Modal)> _
   Public Sub AVDO_3D()
   Dim ap As AcadPreferences = Application.Preferences

   If ap.Profiles.ActiveProfile = p3d Then
   MsgBox("プロファイルは既に " & p3d & " になっています。")
   Return
   End If

   If ChProperty(p3d) Then
   ap.Profiles.ActiveProfile = p3d
   Else
   MsgBox(p3d & " というプロファイルがありません。")
   End If
   End Sub

   ' 指定したプロファイルが存在するかどうかを確認する関数
   Public Function ChProperty(ByVal pName As String)
   Dim ap As AcadPreferences = Application.Preferences

   ' 存在するプロパティの取得
   Dim Profiles As Object = Nothing
   ap.Profiles.GetAllProfileNames(Profiles)

   For Each pr In Profiles
   ' もし、指定したプロファイルが存在すれば、True を返す
   If pr.ToString = pName Then
   Return True
   End If
   Next

   Return False
   End Function
   End Class
End Namespace
-------------------------------------------------

CUIx ファイルを使わずにリボンにボタンを追加する（AutoCAD 2011）

2011-01-31T16:23:00.001+09:00

いろいろググッてみたりして、リボンにボタンを追加できないかやってみました。

通常の操作では、CUI[ユーザインタフェースをカスタマイズ] コマンドを実行して、CUIx ファイルをカスタマイズすると思うんですが、今回は CUIx ファイルを使わずに .NET でボタンの設定ができないかやってみました。

試してみたコードはこんな感じです。

' ------------------------------------------------------------
Imports System
Imports System.Windows
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.Windows
Imports Autodesk.AutoCAD.Ribbon.RibbonServices

' This line is not mandatory, but improves loading performances
<Assembly: CommandClass(GetType(AVDO_RibbonSample.MyCommands))>

Namespace AVDO_RibbonSample

   Public Class MyCommands

   <CommandMethod("AVDO_RibbonSample", "AVDO_RibbonSample", "AVDO_RibbonSample", CommandFlags.Modal)> _
   Public Sub AVDO_RibbonSample()
   Dim ribCtrl As RibbonControl = RibbonPaletteSet.RibbonControl

   ' リボンにタブを追加
   Dim ribTab As New RibbonTab
   ribTab.Title = "テスト"
   ribTab.Id = "ID_TEST" ' ID を設定しないと、AutoCAD を終了するときにエラーが発生してしまう。
   ribCtrl.Tabs.Add(ribTab)

   ' パネルを作成
   Dim ribSourcePanel As New Autodesk.Windows.RibbonPanelSource
   ribSourcePanel.Title = "テストパネル"
   Dim ribPanel As New RibbonPanel
   ribPanel.Source = ribSourcePanel
   ribTab.Panels.Add(ribPanel)

   ' ボタン1を作成
   Dim ribButton1 As New RibbonButton

   Dim bi1 As New BitmapImage()
   bi1.BeginInit()
   bi1.UriSource = New Uri("c:/temp/acadvideo16.jpg", UriKind.RelativeOrAbsolute)
   bi1.EndInit()
   ribButton1.Image = bi1

   ribButton1.Text = "テスト線分"
   ribButton1.ShowText = True
   ribButton1.Description = "テスト用のボタンのひとつ目です"
   ribButton1.CommandParameter = Chr(27) & Chr(27) & "_LINE "
   ribButton1.CommandHandler = New AdskCommandHandler

   ' ボタン2を作成
   Dim ribButton2 As New RibbonButton

   Dim bi2 As New BitmapImage()
   bi2.BeginInit()
   bi2.UriSource = New Uri("c:/temp/acadvideo32.jpg", UriKind.RelativeOrAbsolute)
   bi2.EndInit()
   ribButton2.LargeImage = bi2
   ribButton2.Size = RibbonItemSize.Large

   ribButton2.Text = "テスト円"
   ribButton2.ShowText = True
   ribButton2.Description = "テスト用のボタンのふたつ目です"
   ribButton2.CommandParameter = Chr(27) & Chr(27) & "_CIRCLE "
   ribButton2.CommandHandler = New AdskCommandHandler

   ' ボタンを追加
   ribSourcePanel.Items.Add(ribButton1)
   ribSourcePanel.Items.Add(New RibbonRowBreak())
   ribSourcePanel.Items.Add(ribButton2)

   End Sub

   Public Class AdskCommandHandler
   Implements System.Windows.Input.ICommand

   Public Function CanExecute(ByVal parameter As Object) As Boolean Implements System.Windows.Input.ICommand.CanExecute
   Return True
   End Function

   Public Event CanExecuteChanged(ByVal sender As Object, ByVal e As System.EventArgs) Implements System.Windows.Input.ICommand.CanExecuteChanged

   Public Sub Execute(ByVal parameter As Object) Implements System.Windows.Input.ICommand.Execute
   'is from a Ribbon Button?
   Dim ribBtn As RibbonButton = TryCast(parameter, RibbonButton)
   If ribBtn IsNot Nothing Then
   Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.SendStringToExecute(DirectCast(ribBtn.CommandParameter, [String]), True, False, True)
   End If

   'is from s Ribbon Textbox?
   Dim ribTxt As RibbonTextBox = TryCast(parameter, RibbonTextBox)
   If ribTxt IsNot Nothing Then
   MsgBox(ribTxt.TextValue)
   End If
   End Sub
   End Class

   End Class

End Namespace
' ------------------------------------------------------------

AVDO_RibbonSample コマンドを実行すると、リボンに［テスト］が追加されて、その中に［テストパネル］ができて、［テスト線分］と［テスト円］というボタンが追加されました。

※ c:/temp フォルダに、16X16 のイメージファイル acadvideo16.jpg と 32x32 のイメージファイル acadvideo32.jpg を置いています。

.NET - DLL ファイルを一度だけ手動でロードし、次回から自動的にロードされるようにする便利な方法（AutoCAD 2011）

2011-01-07T12:48:00.003+09:00

今までいくつかこのブログで .NET で作成したツール（.DLL ファイル）を掲載してました。

それを使う時って、毎回 NETLOAD コマンドでロードするか、acad.lsp を編集して自動的にロードするようにしなきゃいけないですよね。

で、それって面倒ですよね。

以前の .NET - DLL ファイルを自動的にロードする（AutoCAD 2011）の中で、レジストリにデマンドロードの設定を追加すると、DLL ファイルを自動的にロードできるってことを紹介しました。

今日は、もっと便利な方法を Web で見つけたので、それを紹介したいと思います。

それは、一度だけ NETLOAD コマンドでロードすれば、レジストリに勝手に自動的にロードされる設定が追加さるっていう便利な方法です。

Creating demand-loading entries automatically for your AutoCAD application using .NET に書いてあったんですが、C# のコードだったので、以下のように VB のコードにしてみました。

'----------------------------------------------------------
Imports System
Imports System.Collections.Generic
Imports System.Reflection
Imports System.Resources
Imports Microsoft.Win32
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime

Namespace DemandLoading
   Public Class RegistryUpdate
   Public Shared Sub RegisterForDemandLoading()
   ' Get the assembly, its name and location

   Dim assem As Assembly = Assembly.GetExecutingAssembly()
   Dim name As String = assem.GetName().Name
   Dim path As String = assem.Location

   ' We'll collect information on the commands
   ' (we could have used a map or a more complex
   ' container for the global and localized names
   ' - the assumption is we will have an equal
   ' number of each with possibly fewer groups)

   Dim globCmds As New List(Of String)()
   Dim locCmds As New List(Of String)()
   Dim groups As New List(Of String)()

   ' Iterate through the modules in the assembly

   Dim mods As [Module]() = assem.GetModules(True)
   For Each [mod] As [Module] In mods
   ' Within each module, iterate through the types

   Dim types As Type() = [mod].GetTypes()
   For Each type As Type In types
   ' We may need to get a type's resources

   Dim rm As New ResourceManager(type.FullName, assem)
   rm.IgnoreCase = True

   ' Get each method on a type

   Dim meths As MethodInfo() = type.GetMethods()
   For Each meth As MethodInfo In meths
   ' Get the methods custom command attribute(s)

   Dim attbs As Object() = meth.GetCustomAttributes(GetType(CommandMethodAttribute), True)
   For Each attb As Object In attbs
   Dim cma As CommandMethodAttribute = TryCast(attb, CommandMethodAttribute)
   If cma IsNot Nothing Then
   ' And we can finally harvest the information
   ' about each command

   Dim globName As String = cma.GlobalName
   Dim locName As String = globName
   Dim lid As String = cma.LocalizedNameId

   ' If we have a localized command ID,
   ' let's look it up in our resources

   If lid IsNot Nothing Then
   ' Let's put a try-catch block around this
   ' Failure just means we use the global
   ' name twice (the default)

   Try
   locName = rm.GetString(lid)
   Catch
   End Try
   End If

   ' Add the information to our data structures

   globCmds.Add(globName)
   locCmds.Add(locName)

   If cma.GroupName IsNot Nothing AndAlso Not groups.Contains(cma.GroupName) Then
   groups.Add(cma.GroupName)
   End If
   End If
   Next
   Next
   Next
   Next

   ' Let's register the application to load on demand (12)
   ' if it contains commands, otherwise we will have it
   ' load on AutoCAD startup (2)

   Dim flags As Integer = (If(globCmds.Count > 0, 12, 2))

   ' By default let's create the commands in HKCU
   ' (pass false if we want to create in HKLM)

   CreateDemandLoadingEntries(name, path, globCmds, locCmds, groups, flags, True)
   End Sub

   Public Shared Sub UnregisterForDemandLoading()
   RemoveDemandLoadingEntries(True)
   End Sub

   ' Helper functions

   Private Shared Sub CreateDemandLoadingEntries(ByVal name As String, ByVal path As String, ByVal globCmds As List(Of String), ByVal locCmds As List(Of String), ByVal groups As List(Of String), ByVal flags As Integer, _
   ByVal currentUser As Boolean)
   ' Choose a Registry hive based on the function input

   Dim hive As RegistryKey = (If(currentUser, Registry.CurrentUser, Registry.LocalMachine))

   ' Open the main AutoCAD (or vertical) and "Applications" keys

   Dim ack As RegistryKey = hive.OpenSubKey(HostApplicationServices.Current.RegistryProductRootKey, True)
   Using ack
   Dim appk As RegistryKey = ack.CreateSubKey("Applications")
   Using appk
   ' Already registered? Just return

   Dim subKeys As String() = appk.GetSubKeyNames()
   For Each subKey As String In subKeys
   If subKey.Equals(name) Then
   Return
   End If
   Next

   ' Create the our application's root key and its values

   Dim rk As RegistryKey = appk.CreateSubKey(name)
   Using rk
   rk.SetValue("DESCRIPTION", name, RegistryValueKind.[String])
   rk.SetValue("LOADCTRLS", flags, RegistryValueKind.DWord)
   rk.SetValue("LOADER", path, RegistryValueKind.[String])
   rk.SetValue("MANAGED", 1, RegistryValueKind.DWord)

   ' Create a subkey if there are any commands...

   If (globCmds.Count = locCmds.Count) AndAlso globCmds.Count > 0 Then
   Dim ck As RegistryKey = rk.CreateSubKey("Commands")
   Using ck
   For i As Integer = 0 To globCmds.Count - 1
   ck.SetValue(globCmds(i), locCmds(i), RegistryValueKind.[String])
   Next
   End Using
   End If

   ' And the command groups, if there are any

   If groups.Count > 0 Then
   Dim gk As RegistryKey = rk.CreateSubKey("Groups")
   Using gk
   For Each grpName As String In groups
   gk.SetValue(grpName, grpName, RegistryValueKind.[String])
   Next
   End Using
   End If
   End Using
   End Using
   End Using
   End Sub

   Private Shared Sub RemoveDemandLoadingEntries(ByVal currentUser As Boolean)
   Try
   ' Choose a Registry hive based on the function input

   Dim hive As RegistryKey = (If(currentUser, Registry.CurrentUser, Registry.LocalMachine))

   ' Open the main AutoCAD (vertical) and "Applications" keys

   Dim ack As RegistryKey = hive.OpenSubKey(HostApplicationServices.Current.RegistryProductRootKey)
   Using ack
   Dim appk As RegistryKey = ack.OpenSubKey("Applications", True)
   Using appk
   ' Delete the key with the same name as this assembly

   appk.DeleteSubKeyTree(Assembly.GetExecutingAssembly().GetName().Name)
   End Using
   End Using
   Catch
   End Try
   End Sub
   End Class
End Namespace
'----------------------------------------------------------

RegisterForDemandLoading() を実行すると、レジストリに必要な記述が追加されます。
なので、myPlugin.vb の Initialize() 中で、RegisterForDemandLoading() を実行するようにしとけば OK です。

このとき、既定値では HKCU に追加されます。
HKLM に追加したいときは、以下の部分を変更すればできます。

CreateDemandLoadingEntries(name, path, globCmds, locCmds, groups, flags, True)
   ↓
CreateDemandLoadingEntries(name, path, globCmds, locCmds, groups, flags, False)

ただ、管理者権限で AutoCAD を起動していないと HKLM に追加できないので、既定値の HKCU に追加するのがいいんじゃないかと思います。

また、レジストリに追加された内容を削除したいときは、UnregisterForDemandLoading() を実行すると、削除されます。

.NET - 2 つの図面のシステム変数の違いを見つける（AutoCAD 2011）

2010-12-28T16:41:00.000+09:00

『なんでか他の図面では問題ないんだけど、この図面だけ動きがおかしいんだよね』なんてときには、図面に保存されているシステム変数の値が原因ってことがあります。

そんな時には、問題ない図面とシステム変数を比較してみるのがいいと思います。

ということで、簡単に比較できるようなツールを .NET の勉強も兼ねて作ってみました。

以前、２つの図面のシステム変数の比較（AutoCAD 2011）で、『.NET の ReadDwgFile メソッドを使用して、２つの図面のシステム変数の比較ができるかもと言ったのですが、チャレンジしてみたのですが、できませんでした。』って言ってたんですが、できました。

システム変数を取得するには Application.GetSystemVariable メソッドを使うしかないと思ってたんですが、Database Properties にシステム変数があるってことに気が付きました。

Database Properties にあるシステム変数をひとつずつ比較してみたので、結構時間がかかりましたが何とかできました。

ただ、システム変数 SKPOLY に関しては、ちゃんと判断できないみたいです。
というのは、SKPOLY には 0、1、2 のどれかの値が設定されるんですが、Database Properties では、True か False しか判断できないのです。
なので、0 は　False で判断できるんですが、1 と 2 は両方とも True になっちゃうので、どちかわからないです。

しょうがないので、今回のプログラムでは、True のときは、『1 or 2』って表示されるようにしました。

DLL ファイルはここにあります。

使い方とかは、動画を作ったので見てみてください。

.NET - 寸法図形の寸法スタイルを変更する（AutoCAD 2011）

2010-12-20T12:46:00.000+09:00

昨日は、現在の寸法スタイルを変更する方法でしたね。
今日は、既に描かれている寸法図形を他の寸法スタイルに変更する方法を試してみたので、それを紹介したいと思います。

例えば、選択した寸法図形の寸法スタイルを「ACAD Video」という寸法スタイルの変えたいときは、こんな感じでできました。

'--------------------------------------------------------
<CommandMethod("test", "test4", CommandFlags.Modal + CommandFlags.UsePickSet)> _
Public Sub test4()

   Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   Dim db As Database = doc.Database
   Dim ed As Editor = doc.Editor

   Using trans As Transaction = db.TransactionManager.StartTransaction
   Try
   ' PickFirst 選択セットを取得
   Dim psr As PromptSelectionResult = ed.SelectImplied()

   ' PickFirst 選択セットを取得できなかったときは、オブジェクトをオブジェクトを選択する
   If psr.Status <> PromptStatus.OK Then
   psr = ed.GetSelection()
   End If

   ' 何も選択されていなかったら、コマンドを終了する
   If psr.Status <> PromptStatus.OK Then
   Return
   End If

   ' ObjectIdCollection に選択したオブジェクトのオブジェクト ID を設定
   Dim objIdColl As New ObjectIdCollection(psr.Value.GetObjectIds())

   ' 選択したそれぞれのオブジェクトに対して実行
   For Each objId As ObjectId In objIdColl
   ' もし、寸法図形だったら、寸法スタイルを ACAD Vide に変更
   Dim ent As Entity = trans.GetObject(objId, OpenMode.ForRead)
   If TypeOf ent Is Dimension Then
   Dim d1 As Dimension = ent

   d1.UpgradeOpen()
   d1.DimensionStyleName = "ACAD Video"
   End If
   Next

   trans.Commit()

   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   Application.ShowAlertDialog(ex.Message)

   End Try
   End Using

End Sub
'--------------------------------------------------------

また、d1.DimensionStyleName = "ACAD Video" の代わりにこんな感じにしても OK でした。
'--------------------------------------------------------
Dim dimTbl As DimStyleTable = trans.GetObject(db.DimStyleTableId, OpenMode.ForRead)
Dim dimTblRec As DimStyleTableRecord = trans.GetObject(dimTbl("ACAD Video"), OpenMode.ForRead)

d1.DimensionStyle = dimTblRec.ObjectId
'--------------------------------------------------------

.NET - 現在の寸法スタイルを変更する／<優先スタイル> を破棄する（AutoCAD 2011）

2010-12-19T12:39:00.000+09:00

今日は、.NET での寸法スタイルの変更についてです。

先日、<優先スタイル> を破棄したいといった質問をいただきました。

<優先スタイル> って知ってます？

例えば上の絵のように、現在の一部の設定（上の例では「垂直方向の寸法値位置」（DIMTAD））が寸法スタイル（上の例では「ACAD Video」）と違っているときに出てきます。

これをなくしたいってことなんですが、以下のようにやってもなくならないといった内容です。

db.Dimstyle = dimTblRec.ObjectId

※ db は Database、dimTblRec は DimStyleTableRecord

確かに、これを実行しても <優先スタイル> はなくなりませんでした。
なんででしょう？？？

いろいろ調べてみたんですが、<優先スタイル> ってどこにも覚えられていなみたいなんですよね。
どこかに覚えられていればそれを消せばいいかと思ってたんですが、それがどこにもなさそうなので、諦めかけてたんですが、やっと見つけました。

SetDimstyleData っていうのがあって、これを使うようです。
具体的にはこんな感じです。
'-----------------------------------------------------------------
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database

Using trans As Transaction = db.TransactionManager.StartTransaction
   Try
   Dim dimTbl As DimStyleTable = trans.GetObject(db.DimStyleTableId, OpenMode.ForRead)
   Dim dimTblRec As DimStyleTableRecord = trans.GetObject(dimTbl("ACAD Video"), OpenMode.ForRead)

   db.Dimstyle = dimTblRec.ObjectId
   db.SetDimstyleData(dimTblRec)

   trans.Commit()

   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   Application.ShowAlertDialog(ex.Message)

   End Try
End Using
'-----------------------------------------------------------------

現在の寸法スタイルを変更するときもこれと同じで OK です。
（<優先スタイル> を破棄するときは、db.Dimstyle = dimTblRec.ObjectId がなくても OKです。）

なんで Dimstyle の設定だけではダメかというと、こういった理由になると思います。

DIM* といった寸法に関するシステム変数は、現在のデータベースに設定されています。
Dimstyle の設定を置き換えるように設定すると、現在の寸法スタイルは指定したものになりますが、他のシステム変数（例：DIMTAD など）は変わらずそのままです。
なので、<優先スタイル> も残ったままになります。

そのため、寸法スタイルの設定から、すべての DIM* というシステム変数を読み込む必要があります。
それをするのが SetDimstyleData ということです。

.NET - コマンドをキーボードから簡単に実行（AutoCAD 2011）

2010-12-13T10:10:00.004+09:00

コマンドを実行するとき、通常はリボンやツールボタンから実行すると思うのですが、キーボードからも実行できます。

例えば、L と入力すると LINE[線分] コマンドが実行されたり、C と入力すると CIRCLE[円] コマンドが実行されたりします。
よく使うコマンドをこのようにキーボードから簡単に実行できたら、ひょっとしたらリボンやツールボタンから実行するよりも早く実行することができるかもしれませんね。

この L とか C というのは、コマンドエイリアスといって acad.pgp っているファイルで設定されています。

この acad.pgp ファイルは、テキストファイルなので、メモ帳などで編集することもできます。（［管理］タブ－［エイリアス編集］をクリックすると、メモ帳で開かれます。）
また、［Express Tools］タブ－［Command Aliases］でも編集できます。

でもちょっと面倒なので、もう少し簡単に変更するプログラムを .NET で作ってみました。
（以前も http://blog.acadvideo.com/2010/09/net-autocad-2011.html で作ったのですが、あんまり使い勝手がよくなくて管理人自身も使わなくなってしまったので、改善してみました。）

使い方としては、こんな感じです。

AVDO_SetAlias2.dll をダウンロードします。
NETLOAD コマンドを実行して、AVDO_SetAlias2.dll をロードします。
（http://blog.acadvideo.com/2010/10/net-dll-autocad-2011.html の方法を使えば、AutoCAD 起動時に勝手にロードしてくれます。）
AVDO_SetAlias2_Add コマンドを実行します。
図面を開くたびに実行する必要があります。acaddoc.lsp に AVDO_SetAlias2_Add コマンドを実行するよう記述しておくと、図面を開いたときに勝手に実行してくれます。
コマンドエイリアスを設定したいコマンドを実行します。
コマンドを完了またはキャンセルします。
AVDO_SetAlias2 コマンドを実行します。

※ http://blog.acadvideo.com/2010/09/net-autocad-2011.html では対応していなかった Express Tools の AutoLISP で作られたコマンドに対しても対応しました。

動画を作ってみたので見てみてください。
今回は、今までのように文字を入れるのではなく、しゃべってみました。
今回はじめてだったので、結構時間かかりましたが、慣れてくればしゃべった方が文字入れるより簡単かも。

.NET - 図面が保存されることを認識する方法（AutoCAD 2011）

2010-11-22T18:25:00.000+09:00

以前いただいていた .NET の質問があったのですが、AUJ などがあってそのままにしていたのですが、AUJ も終わったので今日はそのことについて調べてみました。

内容としては、SAVE コマンドでの保存、上書き保存、図面 CLOSE 時の保存、VBA の SAVE メソッドでの保存など図面が保存されることを認識したいということでした。

Document.CloseWillStart Event でコマンド名が SAVE のときに処理するようにしてみたところ、図面 CLOSE 時の保存、VBA の SAVE メソッドでの保存では認識してくれないということでした。

試してみたところ、確かに CommandWillStart では図面 CLOSE 時の保存、VBA の SAVE メソッドでの保存は認識してくれませんでした。
どうやら、その時は何のコマンドも動いていないみたい（AutoCAD 内部の機能で保存されている？）で、そのために認識することが出来ていないようです。

ということで、何かないかなーと思って arxmgd.chm を眺めていたら、Database.BeginSave Event っていうのを見つけました。きっとこれだと思って試してみたところ、図面 CLOSE 時の保存、VBA の SAVE メソッドでの保存でもちゃんと認識してくれました。

試してみたときのコードはこんな感じです。

'------------------------------------------------
' AddHandler を実行したことがあるかどうかの判断用の変数
Dim jHandler As Boolean = False

' イベントを登録するコマンド
<CommandMethod("AVDO_BeginSave", "AVDO_BeginSave", "AVDO_BeginSave", CommandFlags.Modal)> _
Public Sub AVDO_BeginSave()
   Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   Dim db As Database = doc.Database

   ' AddHandler を複数回実行すると正しく動作しないため、実行されているかどうかを判断する。
   If jHandler = False Then
   AddHandler db.BeginSave, New DatabaseIOEventHandler(AddressOf BeginSave)

   jHandler = True
   End If

End Sub

' Save が開始されたときに実行する関数
Public Sub BeginSave(ByVal sender As Object, ByVal e As DatabaseIOEventArgs)

   MsgBox("保存が始まったよ!!")

End Sub
'------------------------------------------------

AVDO_BeginSave コマンドを実行するとイベントが登録されます。
それぞれの図面で実行しておく必要があるようなので、acaddoc.lsp に AVDO_BeginSave コマンドを実行するように記述しておけばいいと思います。

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

2010-11-15T10:23:00.000+09:00

今日も .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)
'--------------------------------------

.NET - WMF ファイルに書き出す（AutoCAD 2011）

2010-11-12T12:18:00.000+09:00

先日いただいたアンケートで、SendStringToExecute 以外の方法で WMF ファイルに書き出したいというものをいただきました。

VBA では、（ThisDrawing.Export fName, ""WMF"", sset）とやってできてたそうです。（管理人は、VBA はやったことないので勉強になりました。）

ということで、ググッてみたところ、ひとつ方法を見つけました。
実際に試してみたところ、WMF ファイルに書き出すことができました。

WMF 以外にも EXPORT コマンドで書き出せるファイルはできるんじゃないかと思います。

ただ、GetObject を使っているので、AutoCAD が複数起動しているときは、必ず最初に起動した AutoCAD が認識されちゃいます。
そのため、あとから起動した AutoCAD 上で実行しても、最初に起動した AutoCAD で開いている図面が WMF に書き出されちゃうので注意が必要です。
何かいい方法はないのかなと思いつつも見つけ出せないでいます。もし、何かご存じの方がいて教えてくれたら嬉しいです。

試してみたコードは以下のような感じです。
（プロジェクトを作るときに、「AutoCAD Interop Common」と「AutoCAD Interop」にチェックを入れて、Imports Autodesk.AutoCAD.Interop と Imports Autodesk.AutoCAD.Interop.Common を追記しました。）

'----------------------------------------------------------------------------
Public Sub AVDO_ExportWMF()
   Dim acadApp As Autodesk.AutoCAD.Interop.AcadApplication
   Dim acadDoc As Autodesk.AutoCAD.Interop.AcadDocument
   Dim ssetObj As AcadSelectionSet = Nothing

   ' 起動している AutoCAD のインスタンスを読み込む（AutoCAD が複数起動しているときは、最初に起動した AutoCAD で実行されるので注意！！）
   acadApp = GetObject(, "AutoCAD.Application.18.1")
   acadDoc = acadApp.ActiveDocument

   Try
   ' セレクションセットの作成
   ssetObj = acadDoc.SelectionSets.Add("AVDO_SSET01")

   ' すべてのオブジェクトをセレクションセットに入れる
   ssetObj.Select(AcSelect.acSelectionSetAll) 'puts everything into the selection set object

   ' WMF ファイルに書き出し
   acadDoc.Export("C:\Temp\test", "wmf", ssetObj)

   Catch ex As System.Exception
   Application.ShowAlertDialog(ex.Message)

   Finally
   ' ssetObj を削除（これをやっておかないと、2回目からエラーになってしまう。）
   ssetObj.Delete()

   End Try
End Sub
'----------------------------------------------------------------------------

.NET（サンプルプログラム） - 「ハッチングの境界をまとめて選択」（AutoCAD 2011）

2010-11-06T21:29:00.000+09:00

先日いただいたアンケートの中に、『ハッチングの境界だけをまとめて選択したい』というものがありました。

普通のコマンドでは、そのようなことはできないと思うので、.NET でコマンドをひとつ作ってみました。

DLL ファイル（AVDO_SelectBoundaries.dll）はこちらです。

使い方は、こんな感じです。

NETLOAD コマンドを実行して、AVDO_SelectBoundaries.dll をロードします。
AVDO_SelectBoundaries コマンドを実行します。
ハッチングの境界を探す対象の図形を選択します。（すべての図形を対象とするときは、ALL と入力します。）
Enter キーを押して、選択を完了します。

すると、ハッチングの境界だけが選択された状態になります。

※ PICKFIRST にも対応しているので、図形を選択したあとに AVDO_SelectBoundaries コマンドを実行しても OK です。
※ 自動調整ハッチングの境界を探しているので、自動調整でないハッチングの境界は対象外です。

動画も作りましたので、見てみてください。

ハッチングの境界を見つける方法は比較的簡単に分かったんですが、コマンド終了後に境界が選択された状態にしておく方法がなかなか見つけられなくて苦労しました。

SetImpliedSelection っていうのでできるっていうのをググッて見つけたんですが、arxmgd.chm にはそれが載ってないんですよね。それなのに、みんななんで知ってるんでしょうね。

また、SetImpliedSelection がうまく動かなかったときに、Twitter で takamoda さんや u2suzuki さんに助言いただき助かりました。どうもありがとうございました。

ということで、コードはこんな感じです。

'-----------------------------------------------
' CommandFlags.Redraw の記述がないと、コマンド終了後に図形が選択された状態にならないので、必ず付けること！！
<CommandMethod("AVDO_SelectBoundaries", "AVDO_SelectBoundaries", CommandFlags.Modal + CommandFlags.Redraw)> _
Public Sub AVDO_SelectBoundaries()
   Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   Dim db As Database = doc.Database
   Dim ed As Editor = doc.Editor

   ' コマンド実行時に選択されている図形設定
   Dim result As PromptSelectionResult = ed.SelectImplied()

   ' コマンド実行時に、図形が選択されていないときは、図形を選択するよう要求
   If (result.Status <> PromptStatus.OK) Then
   result = ed.GetSelection()
   End If

   ' 図形が選択されているときは以下を実行する
   If (result.Status = PromptStatus.OK) Then
   Using trans As Transaction = db.TransactionManager.StartTransaction
   Try
   Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
   Dim btRec As BlockTableRecord

   Dim cSpace As BlockTableRecord = trans.GetObject(db.CurrentSpaceId, OpenMode.ForRead)
   If cSpace.Name = "*Model_Space" Then
   btRec = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
   Else
   btRec = trans.GetObject(bt(BlockTableRecord.PaperSpace), OpenMode.ForWrite)
   End If

   'ハッチング境界用のコレクション
   Dim bObjIdColl As New ObjectIdCollection

   For Each selObj As SelectedObject In result.Value
   Dim ent As Entity = trans.GetObject(selObj.ObjectId, OpenMode.ForRead)
   Dim objIdColl As ObjectIdCollection = ent.GetPersistentReactorIds
   For Each objId As ObjectId In objIdColl
   Dim dbObj As DBObject = trans.GetObject(objId, OpenMode.ForRead)

   'もし、リアクターのタイプが Hatch だったら、コレクションに追加
   If TypeOf dbObj Is Hatch Then
   bObjIdColl.Add(selObj.ObjectId)
   End If
   Next
   Next

   ' pickfirst set をクリア
   ed.SetImpliedSelection(New ObjectId(-1) {})

   ' コレクションを配列にダンプ
   Dim ids As ObjectId() = New ObjectId(bObjIdColl.Count - 1) {}
   bObjIdColl.CopyTo(ids, 0)

   ' pickfirst set を設定
   ed.SetImpliedSelection(ids)

   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   Application.ShowAlertDialog(ex.Message)

   End Try
   End Using
   End If
End Sub
'-----------------------------------------------

.NET - 文字列の長さを取得する（AutoCAD 2011）

2010-10-27T15:48:00.000+09:00

今日もアンケートでいただいた .NET の質問についてです。

いただいた質問は、文字列の長さを取得する方法は？というものです。
確かに、文字によって文字幅が異なってくるので、文字数を元に求められないですよね。
例えば、同じ 5 文字でも『iiiii』と『WWWWW』では文字幅違いますし、同じ文字でもフォントによって違いますよね。

ということで、探してみました。
最初は AutoLISP に textbox って関数があるので、それと同じようなものはないかなってことで arxmgd.chm で textbox を探してみたんですが、何も出てきません。
じゃあ、オブジェクトの境界を取得することとかできないかなと思って探してみたら、Entity Properties に GeometricExtents っていうのがありました。

早速それを使ってやってみたらオブジェクトの境界を取得できました。
境界が取得できれば、それから文字列の長さってわかりますよね。（普通は X 方向の値。90°回転しているときは Y 方向の値。それ以外の角度で回転しているときは計算しなきゃいけない。）

試してみた時のコードは、こんな感じです。

'--------------------------------------------------
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database

Using trans As Transaction = db.TransactionManager.StartTransaction
   Try
   Dim ed As Editor = doc.Editor
   Dim selEntID As ObjectId = ed.GetEntity("オブジェクトを選択").ObjectId
   Dim ent As Entity = trans.GetObject(selEntID, OpenMode.ForRead)

   Dim minX As Double = ent.GeometricExtents.MinPoint.X
   Dim minY As Double = ent.GeometricExtents.MinPoint.Y
   Dim maxX As Double = ent.GeometricExtents.MaxPoint.X
   Dim maxY As Double = ent.GeometricExtents.MaxPoint.Y

   MsgBox("選択したオブジェクトの境界は、X = " & (maxX - minX) & "、Y = " & (maxY - minY) & " です。")

   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   Application.ShowAlertDialog(ex.Message)
   End Try
End Using
'--------------------------------------------------

.NET - DLL ファイルを自動的にロードする（AutoCAD 2011）

2010-10-25T17:48:00.000+09:00

先日いただいたアンケートで、.NET を自動的にロードする方法の質問があったので、今日はそれについて書こうと思います。

手動では、NETLOAD コマンドを実行して .DLL ファイルをロードすると、.NET で作成したコマンドが使用できるようになります。

ただし、これだと AutoCAD を起動する度に実行しなきゃいけないので、面倒ですよね。

そこで、勝手にロードされる方法としては、以下のような方法があります。

【acad.lsp でロードする】
acad.lsp に以下の記述を追加しておくと、AutoCAD 起動時に自動的にロードされます。
（例として、AVDO_Point.dll をロードする内容にしています。）

;---------------------------------------------------
(defun-q MYSTARTUP ()
(command "NETLOAD" "AVDO_Point.dll")
(princ)
)

(setq S::STARTUP (append S::STARTUP MYSTARTUP))
;---------------------------------------------------

acad.lsp がどこにあるかは、コマンドラインに (findfile "acad.lsp") と入力すると確認できます。

そのとき nil が返ってきたら、acad.lsp がないということなので、メモ帳などで新たに作ってサポートファイルの検索パスにあるどこかのフォルダに置いてください。

【レジストリにデマンドロードの設定を追加する】
これは、.NET で作ったアプリケーションをインストーラでインストールするときに、設定しておくときに使えばいいんじゃないかと思います。

でも、reg ファイルを作って手動でレジストリに追加するってこともできます。

reg ファイルの例としては、以下のとおりです。

;---------------------------------------------------
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:411\Applications\AVDO_Point]
"DESCRIPTION"="ACAD Video"
"LOADER"="C:\\Program Files\\Autodesk\\AutoCAD 2011\\acadvideo\\AVDO_Point.dll"
"LOADCTRLS"=dword:00000002
"MANAGED"=dword:00000001

[HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:411\Applications\AVDO_Point\Commands]
"AVDO_DDPTYPE"="AVDO_DDPTYPE"
"AVDO_Point"="AVDO_Point"
"AVDO_POINT_EVENT"="AVDO_POINT_EVENT"
"AVDO_POINT_EVENT_REMOVE"="AVDO_POINT_EVENT_REMOVE"

[HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:411\Applications\AVDO_Point\Groups]
"AVDO_Point"="AVDO_Point"

;---------------------------------------------------

"LOADER"="C:\\Program Files\\Autodesk\\AutoCAD 2011\\acadvideo\\AVDO_Point.dll" のとことでロードする .DLL ファイルを指定しています。

"LOADCTRLS"=dword:00000004 のところで、どんなときにロードするかを指定しています。

dword:00000002 は、AutoCAD 起動時にロードするということです。

dword:00000004 は、コマンド実行時にロードするということです。ロードするものがいっぱいあって、AutoCAD の起動が遅い時とかはこれにしておく方がいいかも。

他の値もあるみたいですが、管理人はよく分かっていません。（ARX のときに使う値かも？？？）

[HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:411\Applications\AVDO_Point\Commands] の下にコマンド名を書いています。

[HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:411\Applications\AVDO_Point\Groups] の下に、コマンドグループ名を書いています。

.NET - ダイナミックブロックをコピーする（AutoCAD 2011）

2010-10-21T19:35:00.000+09:00

先日アンケートをいただいて、その中にダイナミックブロックのコピーがうまくいかないという質問をいただきました。

ということで、dblk.dwg という図面を作って試してみました。

dblk.dwg には、上から
   test という名前のダイナミックブロック
   test2 という名前のダイナミックブロック
   円
がありますが、clone メソッドでコピーしてみると、下の2つは問題ないのですが、test に関しては、ブロック名が test ではなくて *U4 になってしまいました。

きっとダイナミックブロックはコピーしなきゃいけない情報が他のオブジェクトよりもあるのでしょう。

そこで、いろいろググッてみました。
なかなかそれらしいのが見つからなかったのですが DeepCloneObjects っていうのでできそうってことをやっと見つけました。

何度か諦めようかと思ったのですが、やっぱりあると信じて辛抱強く探すことが大事だなと再認識です。

ということで、以下のような感じでやってみたら test という名前のダイナミックブロックもブロック名が変わることなくコピーできました。

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

Using trans As Transaction = db.TransactionManager.StartTransaction
   Try
   Dim selEntID As ObjectId = Application.DocumentManager.MdiActiveDocument.Editor.GetEntity("オブジェクトを選択").ObjectId
   Dim objIds As ObjectIdCollection = New ObjectIdCollection()
   objIds.Add(selEntID)
   Dim idMap As IdMapping = New IdMapping
   db.DeepCloneObjects(objIds, db.CurrentSpaceId, idMap, False)
   For Each idP As IdPair In idMap
   Dim cpObj As DBObject = trans.GetObject(idP.Value, OpenMode.ForWrite)
   If TypeOf cpObj Is Entity Then
   Dim cpEnt As Entity = cpObj
   cpEnt.ColorIndex = 1

   Dim pt1 As Point3d = New Point3d(0, 0, 0)
   Dim vec1 As Vector3d = pt1.GetVectorTo(New Point3d(110, 0, 0))
   cpEnt.TransformBy(Matrix3d.Displacement(vec1))
   End If
   Next

   trans.Commit()

   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   Application.ShowAlertDialog(ex.Message)

   End Try
End Using
'---------------------------------------------------------

それと、全然別件なのですが、このときたまたま CurrentSpaceId っていうのがあることに気が付きました。
今まで管理人は、現在モデル空間にるかペーパー空間にいるかの判断を以下のように CVPORT を見てやっていました。

'---------------------------------------------------------

If Application.GetSystemVariable("CVPORT") = 1 Then
   btRec = trans.GetObject(bt(BlockTableRecord.PaperSpace), OpenMode.ForWrite)
Else
   btRec = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
End If

'---------------------------------------------------------

でも、以下のように CurrentSpaceId を使った方が良さそうですね。

'---------------------------------------------------------

Dim cSpace As BlockTableRecord = trans.GetObject(db.CurrentSpaceId, OpenMode.ForRead)
If cSpace.Name = "*Model_Space" Then
   btRec = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
Else
   btRec = trans.GetObject(bt(BlockTableRecord.PaperSpace), OpenMode.ForWrite)
End If

'---------------------------------------------------------

ということで、これからは CurrentSpaceId を使おうかと思います。

.NET - ブロックに含まれる属性の値と位置を取得するサンプルコード（AutoCAD 2011）

2010-09-02T19:54:00.000+09:00

.NET でブロックに含まれる属性の値と位置を所得できるか試してみました。

属性値は AttributeReference.TextString Propertyで、位置は AttributeReference.Position Property で取得できました。

位置に関しては、ブロックが入れ子になっているときは、TransformBy Method で Matrix3d を使用してあげるとちゃんとした位置を取得できるようです。

サンプルコードでは、入れ子は 1 階層まで見るようになってます。また、ブロックに尺度が付いている場合は、X と Y が同じ尺度になっている場合にうまく行くようになっています。X と Y の尺度が違う時は、正しい場所を取得してくれないと思います。もし、X と Y の尺度が違う時も対応したいときは、別のマトリックスの指定をする必要があると思います。

サンプルコードはこちらです。
DLL はこちらです。
試してみた図面はこちらです。

.NET（サンプルプログラム） - 「実行中のコマンドのエイリアスを設定」（AutoCAD 2011）

2010-09-01T20:13:00.000+09:00

例えば、LINE[線分] コマンドを実行するときに、コマンドラインに「L」と入力してコマンドを実行することができますよね。
慣れていると、リボンのタブを選んでボタンを選んでってするより早いと思います。

この設定は、acad.pgp ってファイルにされているんですが、それを変更する方法としては［管理］タブの［エイリアスを編集］を選択して、手動で acad.pgp を修正したり、Express Tools の ALIASEDIT［Command Alias］コマンドで変更することができます。

でも、ちょっと面倒くさくてなかなかやらないかなっと思ったので、今回は、もっと簡単に設定することができないかと思って、.NET でカスタマイズしてみました。

使い方はこんな感じです。

NETLOAD コマンドで AVDO_SetAlias.dll をロードする。
※ acad.lsp で自動的にロードするよう設定しておけば、AutoCAD を起動するたびにロードする必要がないので楽ちんです。
エイリアスを設定したいコマンドを実行。
割り込みコマンドで AVDO_SetAlias コマンドを実行。
「コマンドに対するエイリアスを入力:」に対して設定したいエイリアスを入力。

※ AVDO_SetAlias コマンド自体にエイリアスを設定しておけば、もっと簡単になると思います。
※ 実行中のコマンドに対して設定するので、ダイアログが表示されるコマンドや、REGEN コマンドのようにコマンドを実行するとすぐに終わっちゃって、コマンド実行中にコマンドラインに入力できないコマンドに対して設定することはできません。

その他細々としたことに関しても動画を作りましたので見てみてください。

DLL はこちら、ソースはこちらです。

※ 今回から、Google ドキュメントにファイルおいて、上の「こちら」にリンクしてます。んー、Google ドキュメントって便利だねー。

.NET - ブロックに含まれる属性の値を変更するサンプルコード（AutoCAD 2011）

2010-08-20T22:33:00.000+09:00

.NET でブロックに含まれる属性の値を変更できるか試してみました。

試してみたところ、手順としては以下のような感じでできました。

図面中のブロック参照を抽出
該当する名前のブロック参照に対して AttributeCollection を称して属性を抽出
属性の値（TextString）を変更

AVDO_UpdateAttribute.dll はこちら、ソースはこちら、試しに使用する test.dwg はこちらにあります。

試し方は以下のとおりです。

NETLOAD コマンドで AVDO_UpdateAttribute.dll をロードします。
test.dwg を開きます。（属性付きのブロック参照『表題欄』が表示されます。）
AVDO_UpdateAttribute コマンドを実行します。
表示された［属性編集］ダイアログで、新しい値を入力して［OK］ボタンをクリックします。

これで、ブロック参照『表題欄』に含まれる属性の値が変更されます。

.NET（サンプルプログラム） - 「AutoCAD LT のグループツールバーと同様の動作にする」（AutoCAD 2011）

2010-08-19T09:00:00.000+09:00

AutoCAD LT のグループコマンドは AutoCAD のとは違うということはなんとなく知ってはいたんですが、今回いろいろ触ってみました。確かに AutoCAD LT の方が簡単にグループを作ったり分解したりできるんですね。

AutoCAD LT には、PKFSTGROUP や PKUNGROUP っていう AutoCAD には無いコマンドがあります。
これらのコマンドは、PICKFIRST に対応してるので、簡単にグループを作ったり分解できます。（AutoCAD の GROUP コマンドは PICKFIRST に対応してないようです。）

また、ツイッターで『AutoCAD LTの「グループ」ツールバーをAutoCADでも使えるようにしたい』っていうリクエストもいただいたので、PKFSTGROUP や PKUNGROUP のようなコマンドを AutoCAD でも使えるように .NET で作ってみました。
（他にも何かリクエストがあれば、アンケートなどからお知らせいただければ、できる限りブログに情報をアップしたいと思ってます。）

AVDO_PKFSTGROUP.dll がこちらで、ソースがこちらです。

AutoCAD LT の PKFSTGROUP コマンドに対応するのが AVDO_PKFSTGROUP コマンドです。
AutoCAD LT の PKUNGROUP コマンドに対応するのが AVDO_PKUNGROUP コマンドです。

また、ツールバーの作成例も含んだ動画を作りましたので、見てみてください。

ツールバーのマクロは以下のとおりです。

【グループ】
^C^C_AVDO_PKFSTGROUP

【グループを解除】
^C^C_AVDO_PKUNGROUP

【グループ管理...】
^C^C_GROUP

【グループ選択オン/オフ】
'_setvar;pickstyle;$M=$(if,$(eq,$(getvar,pickstyle),0),1,$(if,$(eq,$(getvar,pickstyle),1),0,$(if,$(eq,$(getvar,pickstyle),2),3,2)))

.NET（サンプルプログラム） - 「点オブジェクトと似た動作をするブロックの作成」（AutoCAD 2011）

2010-08-13T11:35:00.000+09:00

久しぶりに .NET の勉強のため、サンプルプログラムを作ってみました。

しばらくやらないと、せっかく勉強したこともなかなか思い出せなくてダメですね。

DDPTYPE[点スタイル管理 D] コマンドで点オブジェクトの表示スタイルを変更できますが、表示スタイルは AutoCAD が用意したものしか使えないので、ブロックを点オブジェクトと似た動作をするようにしてみました。

ただし、ブロックなので、レイアウトで複数のビューポートがあるときは、点オブジェクトと違った動きになります。

プログラムの内容としては、今まで勉強してきた以下の機能を使ってみました。

ディクショナリの登録
ブロックに Xrecord を追加
イベント
などなど

作ったコマンドはこんな感じです。

AVDO_DDPTYPE（または AVD）コマンド　：　［点スタイル管理（AVDO_Point）] ダイアログを表示するコマンド
AVDO_POINT（または AVP）コマンド　：　ブロックを点として挿入するコマンド
AVDO_POINT_EVENT（または AVPE）コマンド　：　イベントを登録するコマンド
AVDO_POINT_EVENT_REMOVE（または AVPER）コマンド　：　イベントの登録を解除するコマンド

動作の詳細は、動画を見てみてください。

DLL はこちら、ソースはこちらにあります。

※ レイアウトでモデル空間をアクティブにしても、ペーパー空間にブロックが作成されてしまう間違いを修正してファイルを置き換えました。（2010/08/14）
※ ロックされた画層に点ブロックがあって再作図すると大きさが変わらない現象も見つけたので修正してファイルを置き換えました。（2010/08/14）

.NET - 「他の図面にバックグラウンドでアクセス」（AutoCAD 2011）

2010-07-11T20:10:00.000+09:00

今開いている図面以外の図面に対してバックグラウンドでアクセスできるか試してみました。

ReadDwgFile メソッドで今開いていない図面を読み込むことができるようです。

試しに作成したコードはこちらで、ビルドした DLL はこちらです。

AVDO_CheckLayer コマンドを実行して、図面ファイルを選択すると、選択した図面にあって今開いている図面にない画層があれば、それが表示されます。

動画も作ってみましたので、見てみてください。

これと同じ方法で、２つの図面のシステム変数の比較ができるかもしれません。
そうすれば、特定の図面でのみ発生する現象がシステム変数の影響かどうかを確認しやすくなりそうなので、後日チャレンジしてみたいと思います。

.NET - 「AutoCAD をバックグラウンドで実行する方法見つからず」（AutoCAD 2011）

2010-07-06T22:12:00.000+09:00

Twitter でもつぶやいていたんですが、Windows アプリから AutoCAD をバックグラウンドで起動して何か実行することをやろうと思ったのですが、残念ながら方法を見つけることができませんでした。

今回はギブアップだったのですが、一応履歴としてどんなことしたか書いとこうかと思います。

「AutoCAD .NET デベロッパガイド」を参考に、CreateObjec を使ってこんな感じで AutoCAD を起動することができました。

Dim acAppComObj As AcadApplication
acAppComObj = CreateObject("AutoCAD.Application.18.1")

で、起動したあとにこんな感じで NETLOAD コマンドを実行してロードしたあとコマンドを実行します。

acDocComObj.SendCommand("(command " & Chr(34) & "NETLOAD" & Chr(34) & " " & _
Chr(34) & "c:/myapps/mycommands.dll" & Chr(34) & ") ")

acDocComObj.SendCommand("MyCommand ")

実行するコマンドで、最後に図面を保存して AutoCAD を終了するようにしておけば、勝手に作業を初めて勝手に終了するという動作になります。

【できなかったこと】
CreateObject で AutoCAD を起動できたんですが、AutoCAD のウインドウを表示することなくバックグラウンドで動かすことができませんでした。

acAppComObj.Visible = False とすれば非表示になるんですが、一旦 AutoCAD が起動してくるのが見えて、その後非表示という動きになりました。また、その後 SendCommand を実行すると、また AutoCAD のウインドウが表示されてしまいました。

ということで、AutoCAD を起動する方法として探してみたら、こんな方法がありました。

Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:411")
Dim acadLoc As String = DirectCast(regKey.GetValue("Location"), String)

Dim acad As ProcessStartInfo = New ProcessStartInfo(acadLoc & "\acad.exe")
acad.Arguments = "/nologo"
'acad.WindowStyle = ProcessWindowStyle.Hidden

Dim pro As Process
pro = Process.Start(acad)

この後、こんな感じで AutoCAD　のインスタンスを取得することができます。

Dim acAppComObj() As AcadApplication
acAppComObj = GetObject(, "AutoCAD.Application.18.1")

でも、これだとプログラムが AutoCAD が起動してくるまで待ってくれないで先に進んでしまうので、ちゃんと動きません。

WaitForInputIdle っていうので待ってくれるかなと思ったんですが、待ってくれませんでした。

そこで、WaitForExit(20000) で 20 秒間待つようにしてみたところ、ちゃんと動くようになりました。
でも、もし AutoCAD が起動するまで 20 秒以上たったらちゃんと動かないし、安全のためもっと長くしても時間がかかってもったいないですよね。

また、もっと大きな問題で、AutoCAD が他に起動されていると、そっちに SendCommand で指定したコマンドが送られてしまうのでおかしなことになってしまいます。

複数 AutoCAD が起動しているときに識別する方法がないかググッてみたのですが、残念ながらその方法を見つけることができませんでした。（VB.NET では無理なのかも？？？）

ということで、今回はギブアップしてしまいました…残念。

.NET（サンプルプログラム） - 「図面で実行されたコマンドを集計」（AutoCAD 2011）

2010-07-02T09:00:00.000+09:00

ディクショナリの使い方を勉強してみました。

ディクショナリを作って、情報を保存して、その情報を取得してといった一通りを試してみました。

どんな動作にしようかと思ったのですが、とりあえず作ってみたコマンドと関数はこんな感じです。

AVDO_StartCountCommands　：　コマンドが開始されたときのイベントを登録し、ディクショナリを追加するコマンド
CommandStarted　：　コマンドが開始されたときに実行する関数
AVDO_EndCountCommands　：　コマンドが開始されたときのイベントの登録を解除するコマンド
AVDO_RemoveCountCommandsDictionary　：　追加したディクショナリを削除するコマンド
AVDO_ShowCommandsCount　：　各コマンドの実行回数を表示するコマンド

コードはこちらで、ビルドした DLL はこちらです。

【使い方の例】

NETLOAD コマンドで CountCommands.dll をロード
AVDO_StartCountCommands コマンドを実行
いくつかコマンドを実行した後、AVDO_ShowCommandsCount コマンドを実行すると、どのコマンドを何回実行したか表示されます。

※ AutoCAD が自動的に実行しているコマンドも表示されます。
※ REDRAW、REDRAWALL、QVDRAWING、QVLAYOUT コマンドに対してはうまく動かなかったので、除外しました。

使ってみた動画も作ってみました。

.NET - 「画層の追加と削除」（AutoCAD 2011）

2010-06-25T09:00:00.000+09:00

以前、画層の追加を試してみましたが、今回は画層の削除も試してみました。

Erase メソッドで画層は削除できるのですが、削除していい画層かどうかを確認しておかないと大変な事になってしまうので、注意が必要です。

例えば、「テスト」画層があって、その画層に線分などがあるのに、「テスト」画層を消しちゃったら図面がおかしくなっちゃいますよね。

削除していいかどうかは、Purge メソッドで確認することになります。（Purge メソッドを実行すると、削除できないオブジェクトはオブジェクトIDコレクションからなくなるので、それをもとに判断）

試しに作ってみたコードはこちらです。

.NET で気を付けること「ドキュメントのロックと解除」

2010-06-18T09:00:00.000+09:00

今日は、先週の .NET のトレーニングで教えてもらった、ドキュメントのロックと解除について書こうと思います。

モーダルダイアログのときはいいのですが、モードレスダイアログを使うときは、ドキュメントをロックしてから作業を行い、最後にロックを解除する必要があるそうです。

モードレスダイアログがアクティブになると、元のドキュメントが非アクティブになり、そういうときはドキュメントをロックする必要があるそうです。

なので、コンテキストメニューに自分のメニューを追加して実行する時もドキュメントをロックする必要があります。

それをしないと、複数の図面を操作している時とかにエラーになることがあるようです。（異常終了することも？？？）

以前、試しにダイアログを作ってみましたが、ロックのことは知りませんでした。
そのときは、コマンドを実行するたびモードレスダイアログが表示されてしまって、モードレスダイアログが表示されているかどうか確認する方法を知らなかったので、モーダルダイアログにしていたので気がつきませんでした。

ということで、モードレスダイアログやコンテキストメニューなどを使ってプログラムを作成するときは気を付けましょう。

こんな感じでロックして
Dim docLock As DocumentLock = Application.DocumentManager.MdiActiveDocument.LockDocument()

作業終了後にこんな感じで解除します。
docLoc.Dispose()

「.NET デベロッパガイド」にもこんな記述がありました。

------------------------------------------------------
ドキュメントのロックとロック解除

オブジェクトの変更要求や AutoCAD へのアクセスは、さまざまな状況で、いくつものアプリケーションから発生します。他の要求との競合を防ぐため、変更を加える前にドキュメントをロックする必要があります。特定の状況でドキュメントをロックできなかった場合、データベースの変更時にロック違反が発生します。次の場合に、ドキュメントのロックが必要になります。

アプリケーションでモードレスダイアログボックスから AutoCAD とやり取りする
アプリケーションでカレントドキュメント以外のロード済みドキュメントにアクセスする
アプリケーションが COM サーバとして使用されている
アプリケーションでコマンドを Session コマンドフラグに登録する

たとえば、現在のドキュメント以外のドキュメントにあるモデル空間またはペーパー空間に図形を追加する場合、ドキュメントをロックする必要があります。ロックするには、ロックする Database オブジェクトの LockDocument メソッドを使用します。LockDocument メソッドが呼び出されると、DocumentLock オブジェクトが返されます。

ロックしたデータベースの変更を終えたら、データベースをロック解除する必要があります。データベースをロック解除するには、DocumentLock オブジェクトの Dispose メソッドを呼び出します。DocumentLock オブジェクトで Using 文を使用することもできます。Using 文が終了するとデータベースがロック解除されます。

注: Session コマンドフラグを使用しないコマンドで作業する場合、変更前に現在のドキュメントのデータベースをロックする必要はありません。
------------------------------------------------------

.NET（サンプルプログラム） - 「寸法を特定の画層に作成する」（AutoCAD 2011）

2010-06-11T09:00:00.000+09:00

イベントっていうので、コマンド実行時やコマンド終了時などなどにある処理を実行するっていうことができるみたいです。
なので、早速試してみました。

試しに作ってみたプログラムの動作はこんな感じです。

-------------------------------------------------------------
・コマンド名は、ACVD_DrawDimOnDimLayer です。
  このコマンドを、図面ごとに一回だけ実行すると、以下のコマンドが実行されたときに自動的に動作します。
   DIMLINEAR
   DIMALIGNED
   DIMANGULAR
   DIMARC
   DIMRADIUS
   DIMDIAMETER
   DIMORDINATE
   DIMJOGGED

・「寸法」画層が存在しない場合は、「寸法」画層を作成する。

・コマンド終了後、現在層が元に戻る。

・ ACVD_DrawDimOnDimLayer_Remove コマンドを実行すると、その図面ではこの動作は行わなくなります。
-------------------------------------------------------------

コードはこちらです。
dll ファイルはこちらです。

.NET の勉強「表示、フリーズ、ロックの設定を反転する」（AutoCAD 2011）

2010-06-04T09:00:00.000+09:00

以前、悩み事：画層のフリーズ状態を反転する簡単な方法は？（AutoCAD LT 2011）で画層のフリーズ状態を反転する簡単な方法はないかなぁということを書きました。

折角 .NET の勉強を始めたので、そのコマンドを作ってみました。（.NET なので、LT では使えませんが…）

書いたコードはこんな感じです。

   ' 画層のフリーズや ON/OFF の設定を逆にするコマンド
   <CommandMethod("ACVD_Blog", "_ACVD_ToggleLayer", "ACVD_ToggleLayer", CommandFlags.Modal)> _
   Public Sub ACVD_ToggleLayer()
   Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   Dim db As Database = doc.Database
   Dim ed As Editor = doc.Editor

   Dim trans As Transaction = db.TransactionManager.StartTransaction
   Dim laTbl As LayerTable = trans.GetObject(db.LayerTableId, OpenMode.ForRead)

   Try
   Dim prRes As PromptResult
   Dim pko As PromptKeywordOptions = New PromptKeywordOptions("")
   pko.Message = vbLf & "どの設定を反転しますか？"
   pko.Keywords.Add("On", "On", "表示(O)")
   pko.Keywords.Add("Freeze", "Freeze", "フリーズ(F)")
   pko.Keywords.Add("Lock", "Lock", "ロック(L)")
   pko.AllowNone = False

   prRes = ed.GetKeywords(pko)
   If prRes.Status <> PromptStatus.OK Then
   Return
   End If

   For Each objId As ObjectId In laTbl
   Dim laTblRec As LayerTableRecord = trans.GetObject(objId, OpenMode.ForWrite)

   ' オプションとして「表示(O)」が選択されたとき
   If prRes.StringResult.ToString = "On" Then
   If laTblRec.IsOff = True Then
   'MsgBox(laTblRec.Name & "画層はオフです")
   laTblRec.IsOff = False
   Else
   'MsgBox(laTblRec.Name & "画層はオンです")
   laTblRec.IsOff = True
   End If
   End If

   ' オプションとして「フリーズ(F)」が選択されたとき
   If prRes.StringResult.ToString = "Freeze" Then
   If laTblRec.IsFrozen = True Then
   laTblRec.IsFrozen = False

   ' 現在層はフリーズできないので、現在層の場合は処理を行わないように設定
   ElseIf laTblRec.ObjectId <> db.Clayer Then
   laTblRec.IsFrozen = True
   End If
   End If

   ' オプションとして「ロック(L)」が選択されたとき
   If prRes.StringResult.ToString = "Lock" Then
   If laTblRec.IsLocked = True Then
   laTblRec.IsLocked = False
   Else
   laTblRec.IsLocked = True
   End If
   End If
   Next

   trans.Commit()

   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   Application.ShowAlertDialog(ex.ToString)

   Finally
   trans.Dispose()

   End Try

   End Sub

ビルドした ACAD Video Blog.dll はここからダウンロードできます。
これを NETLOAD コマンドでロードして、ACVD_ToggleLayer コマンドを実行すると、「どの設定を反転しますか？ [表示(O)/フリーズ(F)/ロック(L)]:」というオプションが表示されるので、オプションを入力すると、その設定が反転されます。

.NET の勉強「ユーザ入力のプロンプト - GetString と GetPoint」（AutoCAD 2011）

2010-06-03T09:00:00.000+09:00

前回は GetKeywords メソッドを使ってみましたが、ユーザ入力のプロンプトとして GetString メソッドや GetPoint メソッドというのもあるようなので、それらも試してみたいと思います。

で、GetString メソッドですが、オンラインヘルプにあったサンプルはこんな感じです。

< CommandMethod("GetStringFromUser") > _
Public Sub GetStringFromUser()
  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

  Dim pStrOpts As PromptStringOptions = New PromptStringOptions(vbLf & _
   "Enter your name: ")
  pStrOpts.AllowSpaces = True
  Dim pStrRes As PromptResult = acDoc.Editor.GetString(pStrOpts)

  Application.ShowAlertDialog("The name entered was: " & _
   pStrRes.StringResult)
End Sub

これを実行すると、入力した文字がダイアログに表示されるのですが、それだけじゃおもしろくないので、入力した内容の MTEXT を作成するようにしてみました。
また、MTEXT の基点を GetPoint で取得するようにもしてみました。

   <CommandMethod("ACVD_Blog", "_ACVD_CreateMtext", "ACVD_CreateMtext", CommandFlags.Modal)> _
   Public Sub ACVD_CreateMtext()
   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   Dim db As Database = acDoc.Database
   Dim ed As Editor = acDoc.Editor
   Dim trans As Transaction = db.TransactionManager.StartTransaction

   Try
   Dim pStrOpts As PromptStringOptions = New PromptStringOptions(vbLf & "文字を入力: ")
   pStrOpts.AllowSpaces = True

   Dim pStrRes As PromptResult = ed.GetString(pStrOpts)
   If pStrRes.Status <> PromptStatus.OK Then
   Return
   End If

   Dim ppo As PromptPointOptions = New PromptPointOptions(vbLf & "基点を指定: ")
   ppo.AllowNone = False

   Dim pr As PromptPointResult = ed.GetPoint(ppo)
   If pr.Status <> PromptStatus.OK Then
   Return
   End If

   Dim blkTbl As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
   Dim br As BlockTableRecord = trans.GetObject(blkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)

   Dim mt As MText = New MText()
   mt.Location = pr.Value
   mt.TextHeight = 5.0
   mt.ColorIndex = 1
   mt.Contents = pStrRes.StringResult

   br.AppendEntity(mt)
   trans.AddNewlyCreatedDBObject(mt, True)
   trans.Commit()

   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   Application.ShowAlertDialog(ex.ToString)

   Finally
   trans.Dispose()
   End Try
   End Sub

.NET の勉強「画層状態を復元するサンプル」（AutoCAD 2011）

2010-05-28T09:00:00.000+09:00

なんか最近 .NET が続いてますが、覚え始めでおもしろくて、ちょっとはまってきたかも。
ということで、今日も .NET です。

acad_mdg.chm「AutoCAD .NET デベロッパガイド」のサンプルに画層状態を復元するものがあったので試してみました。

サンプルにあったコードはこんな内容です。

<CommandMethod("RestoreLayerState")> _
Public Sub RestoreLayerState()
  '' Get the current document
  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

  Dim acLyrStMan As LayerStateManager
  acLyrStMan = acDoc.Database.LayerStateManager

  Dim sLyrStName As String = "ColorLinetype"

  If acLyrStMan.HasLayerState(sLyrStName) = True Then
   acLyrStMan.RestoreLayerState(sLyrStName, _
   ObjectId.Null, _
   1, _
   LayerStateMasks.Color + _
   LayerStateMasks.LineType)
  End If
End Sub

で、昨日つくったやつでは、ACVD_LayerState っていう画層状態に保存するようにしたので、ACVD_LayerState があれば、その状態を復元するように変更してみました。

変更後のコードはこんな感じです。

   ' ACVD_LayerState という画層状態が存在すれば、それを復元するサンプル（acad_mdg.chm「AutoCAD .NET デベロッパガイド」のサンプルを元に作成）
   <CommandMethod("ACVD_Blog", "_ACVD_RestoreLayerState", "ACVD_RestoreLayerState", CommandFlags.Modal)> _
   Public Sub ACVD_RestoreLayerState()
   '' Get the current document
   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   Dim ed As Editor = acDoc.Editor

   Dim acLyrStMan As LayerStateManager
   acLyrStMan = acDoc.Database.LayerStateManager

   Dim sLyrStName As String = "ACVD_LayerState"

   Try
   If acLyrStMan.HasLayerState(sLyrStName) = True Then

   ' 本当に画層状態を復元するかどうかの確認を求める
   Dim pr As PromptResult
   Dim pko As PromptKeywordOptions = New PromptKeywordOptions("")
   pko.Message = vbLf & "画層状態を復元しますか？"
   pko.Keywords.Add("Yes", "Yes", "はい(Y)")
   pko.Keywords.Add("No", "No", "いいえ(N)")
   pko.AllowNone = False
   pr = ed.GetKeywords(pko)
   If pr.Status <> PromptStatus.OK Then
   Return
   End If

   ' 画層状態の復元
   If pr.StringResult.ToString = "Yes" Then
   acLyrStMan.RestoreLayerState(sLyrStName, _
   ObjectId.Null, _
   1, _
   LayerStateMasks.On + _
   LayerStateMasks.Frozen + _
   LayerStateMasks.Locked + _
   LayerStateMasks.Plot + _
   LayerStateMasks.Color + _
   LayerStateMasks.LineType + _
   LayerStateMasks.LineWeight + _
   LayerStateMasks.Transparency + _
   LayerStateMasks.PlotStyle + _
   LayerStateMasks.NewViewport)
   Else
   Return
   End If
   Else
   Application.ShowAlertDialog("ACVD_LayerState という画層状態が存在しないため、画層状態を復元できません。")
   End If
   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   MsgBox(ex.ToString)
   End Try
   End Sub

間違えてコマンドを実行してしまうとまずいので、「画層状態を復元しますか？」と表示してはい(Y) かいいえ(N) を選ぶように追加してみました。
GetKeywords っていうのをこんな感じかなと思って入れてみたのですが、とりあえずこれで試してみたら、一応ちゃんと動きました。
ビルドした DLL ファイルはこちらです。

NETLOAD コマンドで ACAD Video Blog.dll をロードして、ACVD_RestoreLayerState コマンドを実行すると、ACVD_LayerState という画層状態が存在すれば、それが復元されます。

.NET の勉強「画層状態を保存するサンプル」（AutoCAD 2011）

2010-05-27T09:00:00.000+09:00

acad_mdg.chm「AutoCAD .NET デベロッパガイド」のサンプルに画層状態を保存するものがあったので試してみました。

サンプルにあったコードはこんな内容です。

<CommandMethod("RestoreLayerState")> _
Public Sub RestoreLayerState()
'' Get the current document
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

Dim acLyrStMan As LayerStateManager
acLyrStMan = acDoc.Database.LayerStateManager

Dim sLyrStName As String = "ColorLinetype"

If acLyrStMan.HasLayerState(sLyrStName) = True Then
acLyrStMan.RestoreLayerState(sLyrStName, _
ObjectId.Null, _
1, _
LayerStateMasks.Color + _
LayerStateMasks.LineType)
End If
End Sub

保存するのは、色と線種だけみたいなので、その他の設定も保存するように変更してみました。

また、既に同じ名前の画層状態があったら、何もしてくれないので、既に同じ名前の画層状態があったら、削除して作りなおすようにしてみました。

それと、Try～Catch も入れてみました。こんな使い方でいいのかなぁ…

変更後のコードはこんな感じです。

   ' 画層状態の保存のサンプル（acad_mdg.chm「AutoCAD .NET デベロッパガイド」のサンプルを元に作成）
   <CommandMethod("ACVD_Blog", "_ACVD_CreateLayerState", "ACVD_CreateLayerState", CommandFlags.Modal)> _
   Public Sub ACVD_CreateLayerState()
   '' Get the current document
   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

   Dim acLyrStMan As LayerStateManager
   acLyrStMan = acDoc.Database.LayerStateManager

   Dim sLyrStName As String = "ACVD_LayerState"

   Try
   ' もし、既に同じ名前の画層状態があったら削除する
   If acLyrStMan.HasLayerState(sLyrStName) = True Then
   acLyrStMan.DeleteLayerState(sLyrStName)
   End If

   ' 画層状態を保存する
   acLyrStMan.SaveLayerState(sLyrStName, _
   LayerStateMasks.On + _
   LayerStateMasks.Frozen + _
   LayerStateMasks.Locked + _
   LayerStateMasks.Plot + _
   LayerStateMasks.Color + _
   LayerStateMasks.LineType + _
   LayerStateMasks.LineWeight + _
   LayerStateMasks.Transparency + _
   LayerStateMasks.PlotStyle + _
   LayerStateMasks.NewViewport, _
   ObjectId.Null)
   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   MsgBox(ex.ToString)
   End Try

   End Sub

これで試してみたら、一応ちゃんと動きました。
ビルドした DLL ファイルはこちらです。

NETLOAD コマンドで ACAD Video Blog.dll をロードして、ACVD_CreateLayerState コマンドを実行すると、現在の画層状態が ACVD_LayerState という名前で保存されます。

.NET の勉強「役立つ動画がオートデスクの Web サイトに…」（AutoCAD 2011）

2010-05-26T09:00:00.000+09:00

今まで、オンラインヘルプのサンプルとかを見ながら .NET の勉強をしていましたが、なんとオートデスクの Web サイトに動画で説明している資料がありました。知らなかった…

ここにある ~~AutoCAD 2010 .NET Wizard~~（誤） DevTV (DeveloperTV)（正）がそれです。（間違えてたので修正しました。2010/05/27 管理人）

ここでは、以下の内容が、実際にコードを書きながら説明されています。

簡単なアプリケーションの作成
図形を図面に追加
図形の編集
アプリケーションのデータ保存
イベント監視

動画を見ながら自分でもコードを書いて試せるので、とても便利です。

オンラインヘルプのサンプルでは、Using ～という記述になってるところがここでは、Try ～Catch という記述になってますね。

エラーの処理ができるので、きっとこっちの方がいいのでしょう。
ということで、今後はこっちで行こうかと思います。

AutoCAD 2011 .Net Wizards を使用して .NET プロジェクトを作成（AutoCAD 2011）

2010-05-21T09:00:00.000+09:00

今日は、AutoCAD Managed VB Application Wizard っていうのを使用して .NET プロジェクトを作成できるようなので、それを試してみた結果を書こうかと思います。

まずは、Developer Center にある「AutoCAD 2011 .Net Wizards.zip」をダウンロードして、それに含まれる AutoCAD 2011 dotNET Wizards.msi を実行してインストールです。

すると、こんなメッセージがでて、ちゃんとインストールできませんでした。

管理者権限で、Windows 7 にログインしてるんですけど。。。

ぶつぶつ言ってもしょうがないので、コマンドプロンプトを「管理者として実行」で起動して、そこから AutoCAD 2011 dotNET Wizards.msi を実行してみました。

すると、今度は問題なくインストールが完了しました。

ということで、早速 Visual Studio 2008 を起動です。

[ファイル] - [新しいプロジェクト] で [新しいプロジェクト] ダイアログを表示して、[Vusual Basic] を選択すると、[AutoCAD 2011 plug-in] というテンプレートがでてきたので、これを選んで OK です。

そうすると、[AutoCAD .NET Wizard Configurator] ダイアログが表示されるので、[Spacify the location of the ...] のことろに ObjectARX 2011 の inc フォルダを指定して Ok です。

これで、プロジェクトが開かれるのですが、ここでは既に参照設定に AcDbMgd と AcMgd　が追加されているので、参照設定は何もする必要がないみたいです。

で、MyCommands.vb っていうのがあったので、これを見てみると、こんな記述がありました。

<CommandMethod("MyGroup", "MyCommand", "MyCommandLocal", CommandFlags.Modal)> _
Public Sub MyCommand() ' This method can have any name
' Put your command code here
End Sub

ここに、自分で作ったコマンドを入れるってことですね。

ということで、まずはコマンドの定義のところを以下のように変更しました。

<CommandMethod("acadvideo", "test0521", "MyCommandLocal", CommandFlags.Modal)> _
Public Sub test0521() ' This method can have any name

また、ソリューションエクスプローラにある myCommands.res をダブルクリックして myCommands.res を表示して、MyCommand を test0521 に変更しました。

そして、「' Put your command code here」の下に以下を記述してみました。

'' Get the current document and database
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acDoc.Database

'' Start a transaction
Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

   '' Open the Block table for read
   Dim acBlkTbl As BlockTable
   acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)

   '' Open the Block table record Model space for write
   Dim acBlkTblRec As BlockTableRecord
   acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)

   '' Create a line that starts at 5,5 and ends at 12,3   Dim acLine As Line = New Line(New Point3d(5, 5, 0), New Point3d(12, 3, 0))   acLine.SetDatabaseDefaults()

   '' Add the new object to the block table record and the transaction
   acBlkTblRec.AppendEntity(acLine)
   acTrans.AddNewlyCreatedDBObject(acLine, True)

   '' Save the new object to the database
   acTrans.Commit()
End Using

AutoCAD にロードして test0521 コマンドを実行してみたところ、問題なく線分が作成されました。

このテンプレートを使えば、簡単に作れますよってことですね。

.NET の勉強「画層の作成」（AutoCAD 2011）

2010-05-14T09:00:00.000+09:00

金曜日恒例の .NET の勉強です。
今日は、画層を作成してみました。

ヘルプでサンプルを探して、サンプルの余分なところを削除して、こんなコードを書きました。

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices

Public Class Class1
   <CommandMethod("CreateLayer")> _
   Public Sub CreateLayer()
       Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
       Dim acCurDb As Database = acDoc.Database

       Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
           Dim acLyrTbl As LayerTable
           acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForRead)

           Dim sLayerName As String = "テスト"

           If acLyrTbl.Has(sLayerName) = False Then
               Dim acLyrTblRec As LayerTableRecord = New LayerTableRecord()

               acLyrTblRec.Name = sLayerName

               acLyrTbl.UpgradeOpen()

               acLyrTbl.Add(acLyrTblRec)
               acTrans.AddNewlyCreatedDBObject(acLyrTblRec, True)
           End If
           acTrans.Commit()
       End Using
   End Sub
End Class

で、実際に実行してみると、めでたく「テスト」という名前の画層が作成されました。

また、ついでに色と線種の設定も試してみました。
以下の内容を acLyrTblRec.Name = sLayerName の後に書いたら、うまく色と線種の設定もできました。

acLyrTblRec.Color = Color.FromColorIndex(ColorMethod.ByAci, 1)
acLyrTblRec.LineWeight = LineWeight.LineWeight020

(Imports Autodesk.AutoCAD.Colors も追加しました。)

.NET の勉強「ダイアログを表示してコマンド実行」（AutoCAD 2011）

2010-05-07T09:00:00.000+09:00

金曜日恒例の .NET の勉強をしました。

今までいくつかサンプルを見ながら試してきましたが、そろそろダイアログを出してみたくなってきたので、試してみました。

arxmgd.chm の [Autodesk.AutoCAD.ApplicationServices Namespace] - [Application Class] に ShowModalDialog Method と ShowModelessDialog というのがあるので、きっとこれですね。

まずは、フォームの作成
まずは、Form1.vb （Windows フォーム）を作成して、ボタンをひとつ追加しました。
で、そのボタンをクリックすると、前回の試してみた円を作成して ZOOM を行う、以下の内容が実行されるように記述しました。

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime

Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

   acDoc.SendStringToExecute("._circle 2,2,0 4 ", True, False, False)
   acDoc.SendStringToExecute("._zoom _extents ", True, False, False)
   End Sub
End Class

ダイアログの表示
あとは、Form1 を表示するように ShowModalDialog Method または ShowModelessDialog を使えばいいみたいです。

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime

Public Class Class1

   <CommandMethod("test")> _
   Public Sub test()
       Dim f As New Form1()
       Application.ShowModelessDialog(f)
   End Sub
End Class

これで test コマンド実行してみると、ちゃんとダイアログが表示され、ボタンをクリックすると円が作成されて ZOOM が実行されました。

ただし、もう一回 test コマンドを実行すると、またダイアログが表示されました。
コマンドを実行するたびにダイアログが表示されてしまいます。

そこで、ダイアログを表示するところを以下のようにしてみたのですが、ダメでした。

If f.Visible = False Then
   Application.ShowModelessDialog(f)
End If

残念ながら現時点では、どうすればダイアログが既に表示されているかどうかを判断できるかは不明です？？？

モーダルダイアログにすれば、ダイアログを閉じないと AutoCAD に戻れないので複数ダイアログが表示されることはないので、とりあえず今回は以下のようにモーダルダイアログにしてみます。

Application.ShowModalDialog(f)

ただしこのとき、モーダルダイアログにしたのでダイアログを閉じるコードを Form1.vb の最後に記述しておかないと、ダイアログが自動的に閉じてくれません。
そのため、Form1.vb に以下を追加しました。

Me.Close()

.NET の勉強「AutoCAD コマンドラインへのアクセス」（AutoCAD 2011）

2010-04-30T09:00:00.000+09:00

金曜日なので、.NET の勉強をしました。

AutoLISP では、(command "._LINE" "0,0" "100,100" "") みたいに、COMMAND 関数を使って、コマンドラインに入力するのと同じ手順を書くことによってコマンドを実行することができますが、同じようなことを .NET でできないか調べてみました。

すると、サンプルにこんなのがありました。

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime

<CommandMethod("SendACommandToAutoCAD")> _

Public Sub SendACommandToAutoCAD()
  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
  '' Draws a circle and zooms to the extents or
  '' limits of the drawing
  acDoc.SendStringToExecute("._circle 2,2,0 4 ", True, False, False)
  acDoc.SendStringToExecute("._zoom _all ", True, False, False)
End Sub

さっそくこれをカット＆ペーストして確認してみたところ、CRCLE コマンドと ZOOM コマンドが無事実行されました。

SendStringToExecute ってやつで実行するんですね。

試しに、

acDoc.SendStringToExecute("._line 0,0 100,100 ", True, False, False)

を追記してみたら、問題なく線分を作成することができました。

.NET の勉強「arxmgd.chm を見ながらオブジェクトの作成」（AutoCAD 2011）

2010-04-23T09:00:00.000+09:00

金曜日なので、.NET の勉強です。

先週は、「今後も、どんどん進んでいこうと思います。」と言っていましたが、ちょっとヘルプの見方とか少しですが分かってきたような気がするので、もう一度復習でオブジェクトの作図についてやってみようと思います。

C:\ObjectARX 2011\docs フォルダにある arxmgd.chm を見ながら、オブジェクトを描くプログラムを作成したいと思います。

まず最初に、こんなコードを書いてみます。

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices

Public Class Class1
     <CommandMethod("DrawObjects")> _
   Public Sub DrawObjects()

   '' Get the current document and database
   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   Dim acCurDb As Database = acDoc.Database

   '' Start a transaction
   Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

   '' Open the Block table for read
   Dim acBlkTbl As BlockTable
   acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)

   '' Open the Block table record Model space for write
   Dim acBlkTblRec As BlockTableRecord
   acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
   OpenMode.ForWrite)

   ''線分を作成
   Dim acLine As New Line()

   acBlkTblRec.AppendEntity(acLine)
   acTrans.AddNewlyCreatedDBObject(acLine, True)

   '' Save the new object to the database
   acTrans.Commit()
   End Using
   End Sub
End Class

ここで、線分を作成しているのは、Dim acLine As New Line() になります。
arxmgd.chm の

Autodesk.AutoCAD.DatabaseServices Namespace > Line Class > Line Constructor

にある Line.Line() について以下の記述があります。

Default constructor. Initializes the normal vector to (0,0,1), the start and end points to (0,0,0), and the thickness to 0.0. All coordinates are WCS.

ということで、これを実行すると、始点も終点も 0,0 の線分が作成されます。

また、arxmgd.chm の

Autodesk.AutoCAD.DatabaseServices Namespace > Line Class > Line Properties

を見ると、以下のプロパティがあります。

Angle、Delta、EndPoint、Length、Normal、StartPoint、Thickness

でも、Angle、Delta、Length の Conditions は Read-only と書かれているので、線分を作成するときに EndPoint、Normal、StartPoint、Thickness のプロパティを使えるんだと思います。

そこで、以下のように 4 つのプロパティを指定するよう追記してみました。

Dim acLine As Line = NEW Line()
acLine.StartPoint = New Point3d(50, 50, 0)
acLine.EndPoint = New Point3d(100, 100, 0)
acLine.Normal = New Vector3d(1, 0, 0)
acLine.Thickness = 2

すると、始点が 50,50、終点が 100,100、UCS に依存する押し出し方向が 1,0,0、厚さが 2 の線分が作成されました。

※ Point3d や Vector3d は、Autodesk.AutoCAD.Geometry 名前空間になるので、「Imports Autodesk.AutoCAD.Geometry」という記述も追加しました。

プロパティには、線分以外のオブジェクトに共通のものがありますよね。例えば、色とか線種とか。
それは、きっと

Autodesk.AutoCAD.DatabaseServices Namespace > Entity Class > Entity Properties

にある内容になるんだと思います。

そこで、以下も追加してみました。

acLine.ColorIndex = 1
acLine.Linetype = "continuous"
acLine.LineWeight = &HD3

すると、赤色で、線種が continuous で、線の太さが 2.11 mm になりました。

では、今度は楕円にチャレンジです。
（Autodesk.AutoCAD.DatabaseServices Namespace > Ellipse Class を見ながらやりました。）

線分と同じような感じで、以下のようにやってみましたが、エラーとなって描けませんでした。

Dim acEllipse As Ellipse = New Ellipse()
acEllipse.StartParam = 0
acEllipse.EndParam = 1
acEllipse.Center = New Point3d(10, 10, 0)
acEllipse.RadiusRatio = 0.5
acEllipse.StartAngle = 0
acEllipse.EndAngle = PI

acBlkTblRec.AppendEntity(acEllipse)
acTrans.AddNewlyCreatedDBObject(acEllipse, True)

何ででしょうね？いろいろ試してみましたが、管理人には何故かわかりませんでした。

そこで、以下のように記述を変えて実行したところ、楕円も作成できました。

Dim acEllipse As Ellipse = New Ellipse(New Point3d(10, 10, 0), Vector3d.ZAxis, New Vector3d(1, 0, 0), 0.5, 0, PI)
acEllipse.StartParam = 0
acEllipse.EndParam = 1
acEllipse.Center = New Point3d(10, 10, 0)
acEllipse.RadiusRatio = 0.5
acEllipse.StartAngle = 0
acEllipse.EndAngle = PI

acBlkTblRec.AppendEntity(acEllipse)
acTrans.AddNewlyCreatedDBObject(acEllipse, True)

※ PI を認識するために、「Imports System.Math」も追記しました。

以前よりも理解しながらオブジェクトを作れたような気がします。
次回は、今度こそ、先に進んで新しいことにチャレンジしたいと思います。

.NET の勉強「オブジェクトの削除、コピー、移動」（AutoCAD 2011）

2010-04-16T09:00:00.000+09:00

先週から、金曜日は .NET の勉強をしようかということにしたので、今日はその続きです。

前回は、オブジェクトを作成するプログラムの勉強をしたので、今回は、オブジェクトの削除やコピーや移動などを行うサンプルを探してみました。

そこで、こんなサンプルを見つけて、とりあえず実行してみました。

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry

<CommandMethod("EraseObject")> _
Public Sub EraseObject()

   '' Get the current document and database
   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   Dim acCurDb As Database = acDoc.Database

   '' Start a transaction
   Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

   '' Open the Block table for read
   Dim acBlkTbl As BlockTable
   acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)

   '' Open the Block table record Model space for write
   Dim acBlkTblRec As BlockTableRecord
   acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
   OpenMode.ForWrite)

   '' Create a lightweight polyline
   Dim acPoly As Polyline = New Polyline()
   acPoly.SetDatabaseDefaults()
   acPoly.AddVertexAt(0, New Point2d(2, 4), 0, 0, 0)
   acPoly.AddVertexAt(1, New Point2d(4, 2), 0, 0, 0)
   acPoly.AddVertexAt(2, New Point2d(6, 4), 0, 0, 0)

   '' Add the new object to the block table record and the transaction
   acBlkTblRec.AppendEntity(acPoly)
   acTrans.AddNewlyCreatedDBObject(acPoly, True)

   '' Update the display and display an alert message
   acDoc.Editor.Regen(）
   Application.ShowAlertDialog("Erase the newly added polyline.")

   '' Erase the polyline from the drawing
   acPoly.Erase(True)

   '' Save the new object to the database
   acTrans.Commit()

   End Using
End Sub

このプログラムは、ポリラインをひとつ作成して、それを削除するようです。

ポリラインの作成に関しては、前回の線分、円、MTEXT の作成と同じように、オブジェクトを宣言したあと、それぞれのプロパティを指定しているようです。（「'' Create a lightweight polyline」以下の 5 行および「'' Add the new object to the block table record and the transaction」以下の 2 行。）

で、削除しているのは、acPoly.Erase(True) ですね。
意外と簡単ですね。

他のコピーを行うサンプルを見てみたところ、Clone っていうのでコピーするみたいです。
なので、acPoly.Erase(True) の代わりに以下を記述したところ、無事コピーされました。

Dim acPolyClone As Polyline = acPoly.Clone()

acBlkTblRec.AppendEntity(acPolyClone)
acTrans.AddNewlyCreatedDBObject(acPolyClone, True)

ただし、まったく同じ場所にコピーされるので、もとのポリラインと重なっています。
他の場所にコピーしたいときは、どうするんだろう？？？移動と組み合わせるのかな？？？

そこで、移動を行うサンプルを見てみたところ、移動する場所を示すマトリックスを作ってから移動するようです。
そこで、以下のように記述を変更して実行してみたところ、無事にコピー＋移動を行うことができました。（基点が 0,0 で、目的点が 2,0）

Dim acPolyClone As Polyline = acPoly.Clone()

Dim acPt3d As Point3d = New Point3d(0, 0, 0)
Dim acVec3d As Vector3d = acPt3d.GetVectorTo(New Point3d(2, 0, 0))
acPolyClone.TransformBy(Matrix3d.Displacement(acVec3d))

acBlkTblRec.AppendEntity(acPolyClone)
acTrans.AddNewlyCreatedDBObject(acPolyClone, True)

ここで、ちょっと疑問に思ったのが、この例ではプログラムで作成したオブジェクトを移動しましたが、元からあるオブジェクトを選択して、移動したいときはどうなるんでしょう？？？
AutoLISP だと、entsel とか使うやつです。

サンプルを探してみたところ、きっと GetSelection ってやつですね。
そこで、前述の代わりに、以下を記述してみたところ、オブジェクトの選択を求められて、それを移動することができました。

※ このとき、「Imports Autodesk.AutoCAD.EditorInput」も追加しました。

'' Request for objects to be selected in the drawing area
Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection()

'' If the prompt status is OK, objects were selected
If acSSPrompt.Status = PromptStatus.OK Then
   Dim acSSet As SelectionSet = acSSPrompt.Value

   '' Step through the objects in the selection set
   For Each acSSObj As SelectedObject In acSSet

   '' Check to make sure a valid SelectedObject object was returned
   If Not IsDBNull(acSSObj) Then
   '' Open the selected object for write
   Dim acEnt As Entity = acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite)
   If Not IsDBNull(acEnt) Then
   Dim acClone As Entity = acEnt.Clone()
   Dim acPt3d As Point3d = New Point3d(0, 0, 0)
   Dim acVec3d As Vector3d = acPt3d.GetVectorTo(New Point3d(2, 0, 0))

   acClone.TransformBy(Matrix3d.Displacement(acVec3d))
   acBlkTblRec.AppendEntity(acClone)
   acTrans.AddNewlyCreatedDBObject(acClone, True)
   End If
   End If
   Next
End If

まだちゃんと理解できたわけではありませんが、とりあえず、オブジェクトの作成、削除、コピー、移動を実行するプログラムは作れるようになりました。

今後も、どんどん進んでいこうと思います。
きっとそのうち、自然と理解できるるようになるだろうと期待してます。

.NET の勉強「線分、円、MTEXT の作成」（AutoCAD 2011）

2010-04-09T09:00:00.000+09:00

今日は、ながーらくサボっていた .NET の勉強を、やっと再開したので、そこのとについてです。

今回は、何か図形を描いてみたいと思って、サンプルファイルを探してみました。
まずは、基本からなので、線分を作成する以下のサンプル見つけて、それをやってみました。
（プロジェクトの作成は、以前書いた手順で行いました。）

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry

<CommandMethod("AddLine")> _
Public Sub AddLine()

   '' Get the current document and database
   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   Dim acCurDb As Database = acDoc.Database

   '' Start a transaction
   Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

   '' Open the Block table for read
   Dim acBlkTbl As BlockTable
   acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)

   '' Open the Block table record Model space for write
   Dim acBlkTblRec As BlockTableRecord
   acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
   OpenMode.ForWrite)

   '' Create a line that starts at 5,5 and ends at 12,3
   Dim acLine As Line = New Line(New Point3d(5, 5, 0), _
   New Point3d(12, 3, 0))
   acLine.SetDatabaseDefaults()

   '' Add the new object to the block table record and the transaction
   acBlkTblRec.AppendEntity(acLine)
   acTrans.AddNewlyCreatedDBObject(acLine, True)

   '' Save the new object to the database
   acTrans.Commit()
   End Using
End Sub

線分１本描くのにいろいろやらなきゃいけないんですね。
確かに 5,5 から 12,3 の線分が描けましたが、何やってるんでしょう？？？
管理人には難しすぎて、ほとんど理解不能です。。。

オンラインヘルプに、こんな絵が載ってました。

サンプルでは、Document、Database、Block table、Block table record の順番に開いているのは、この絵の順番なんだろうか？？？きっとそうだ。そう思おう。

ということで、あんまり難しいことを理解しようとすると、何も前に進まないので、「'' Create a line that starts at 5,5 and ends at 12,3」のところの作図部分だけをいろいろいじってみることにしました。

どういじったかというと、試しに、もうひとつの線分と円と MTEXT を描くために、こんな内容を追加してみました。

Dim L1 As Line = New Line()
L1.SetDatabaseDefaults()
L1.StartPoint = New Point3d(0, 0, 0)
L1.EndPoint = New Point3d(100, 100, 0)

acBlkTblRec.AppendEntity(L1)
acTrans.AddNewlyCreatedDBObject(L1, True)

Dim c1 As Circle = New Circle()
c1.SetDatabaseDefaults()
c1.Center = New Point3d(50, 50, 0)
c1.Radius = 20
c1.ColorIndex = 1
c1.Normal = Vector3d.ZAxis

acBlkTblRec.AppendEntity(c1)
acTrans.AddNewlyCreatedDBObject(c1, True)

Dim mt1 As MText = New MText()
mt1.SetDatabaseDefaults()
mt1.Location = New Point3d(50, 50, 0)
mt1.Width = 100.0
mt1.TextHeight = 10.0
mt1.Contents = "てすとです。"

acBlkTblRec.AppendEntity(mt1)
acTrans.AddNewlyCreatedDBObject(mt1, True)

これで、実行してみたところ、無事線分、円、MTEXT を作成することができました。

各オブジェクトを宣言したあと、それぞれのプロパティを指定してあげれば、オブジェクトを作成できるようです。

線分の場合は、L1 を宣言して、L1 の始点、終点を指定しました。
円の場合は、c1 を宣言して、c1 の中心点、半径、色、法線方向を指定しました。
MTEXT の場合は、mt1 を宣言して、文字の位置、幅、文字高さ、文字を指定しました。

なんとなく、コツがつかめたような感じがします。他のオブジェクトもこんな感じで描けると思います。
意味が分からないところがありますが、とりあえず図形は描けるようになりました。

まだ勉強を始めたばかりなので、分からないところばかりにこだわらずに、これからもどんどん次に進んでいこうかと思います。

※ これから、毎週金曜日は .NET の日にしようかなぁー、、、と思ってたりします。

AutoCAD Managed VB Application Wizard を使用しての .NET プロジェクトの作成（AutoCAD 2011）

2010-03-16T18:31:00.000+09:00

長らく .NET の勉強をサボっていたので、久しぶりに再開です。

AutoCAD Managed VB Application Wizard っていうのを使って、.NET プロジェクトを作成できるらしいのですが、それを試してみたいと思います。

AutoCAD Managed VB Application Wizard が何かまだ良くわかっていないのですが、とりあえずここからダウンロードです。

Microsoft Visual Studio 2008 Standard Edition を使用してのカスタマイズ（AutoCAD 2010）

2010-02-18T14:02:00.001+09:00

先日より、.NET の勉強を始めています。

初心者ということもあり、無償版の Microsoft Visual Studio 2008 Express Edition を使用していたのですが、AutoCAD 2010 のカスタマイズで使えるけどサポートされないということと、デバッグのやり方が分からなかったので、思い切って Microsoft Visual Studio 2008 Standard Edition を購入しました。

そこで早速、他のサンプルを試してみようと思います。

acad_mdg.chm を適当に探して、以下のサンプルをやってみることにしました。

------------------------------------------
この例では、Add メソッドを使用して、acad.dwt 図面テンプレートファイルに基づいて新しい図面を作成します。

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime

<CommandMethod("NewDrawing", CommandFlags.Session)> _
Public Sub NewDrawing()
  '' Specify the template to use, if the template is not found
  '' the default settings are used.
  Dim strTemplatePath As String = "acad.dwt"

  Dim acDocMgr As DocumentCollection = Application.DocumentManager
  Dim acDoc As Document = acDocMgr.Add(strTemplatePath)
  acDocMgr.MdiActiveDocument = acDoc
End Sub
------------------------------------------

まずは、Visual Studio 2008 を起動します。
[ファイル] - [新しいプロジェクト] を選択して、[新しいプロジェクト] ダイアログで [クラスライブラリ] を選択して [OK] ボタンをクリックです。（プロジェクト名は、NewDrawing にしました。）

例のごとく、サンプルプログラムを Class1.vb にカット＆ペーストして以下のようにします。

Imports Autodesk.AutoCAD.ApplicationServicesImports
Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime

Public Class Class1
   <CommandMethod("NewDrawing", CommandFlags.Session)> _
   Public Sub NewDrawing()
   '' Specify the template to use, if the template is not found
   '' the default settings are used.
   Dim strTemplatePath As String = "acad.dwt"

   Dim acDocMgr As DocumentCollection = Application.DocumentManager
   Dim acDoc As Document = acDocMgr.Add(strTemplatePath)
   acDocMgr.MdiActiveDocument = acDoc
   End Sub
End Class

最初は [ソリューションエクスプローラ] に「参照設定」が表示されていないので、[すべてのファイルを表示] ボタンをクリックして表示します。

そうすると、以下のように「参照設定」が表示されました。

[参照設定] を右クリックして、[参照の追加] をクリックです。例のごとく、[参照の追加] ダイアログで [参照] タブを選択して、C:\Program Files\AutoCAD 2010 フォルダにある AcDbMgd.dll を選択して [OK] です。

同じように、AcMgd.dll も追加します。（このサンプルでは、AcCui.dll は追加する必要はないようです。）

[ファイル] - [すべてを保存] を選択して NewDrawing というソリューション名で保存しました。

では、さっそくデバッグしてみましょう。

まずは、デバッグ時に AutoCAD を起動するための設定です。
[ソリューションエクスプローラ] で NewDrawing を右クリックして [プロパティ] を選択します。
デバッグを選択して、[外部プログラムの開始] に C:\Program Files\AutoCAD 2010\acad.exe を設定します。（設定したあと、[選択されたファイルを上書き保存] ボタンをクリックしておきました。）

ここで、いよいよ [デバッグ開始] ボタンをクリックです。
AutoCAD 2010 が起動してきましたが、「アプリケーションのコンポーネントで、ハンドルされていない例外が発生しました。．．．」というエラーが表示されました。
そのため、一旦デバッグ中止です。

どうやら、デバッグするためには参照設定した acdbmgr と acmgd の参照プロパティーで [ローカルコピー] を True から False に変更しなきゃいけないみたいです。
なので、そのとおり変更しました。

ここで、再度 [デバッグ開始] ボタンをクリックです。
AutoCAD 2010 が起動してきて、今度はエラーなしです。
NETLOAD コマンドを実行して、Debug フォルダにある NewDrawing.dll をロードします。

NewDrawing コマンドを実行すると、問題なく新規図面が開かれました。

試しにブレークポイントを「Dim strTemplatePath As String = "acad.dwt"」の行に設定して NewDrawing コマンドを実行したところ、ちゃんとその行で止まりました。

動画も作りました。

よく使う関数を使用してのサンプルファイル（AutoCAD 2010）

2010-02-10T12:00:00.000+09:00

以下内容を拡張子 lsp という名前で保存し、ロードして sample1 コマンドを実行すると、寸法が存在すれば「寸法」画層に移動されます。（「寸法」画層が存在しなければ、作成されます。）

(defun c:sample1 (/ ss ss_len)
; コマンド名を sample1 とし、他に影響がないように、変数 ss ss_len をローカル変数にします。

   (if (setq ss (ssget "X" '((0 . "DIMENSION"))))
   ; もし、寸法が存在すれば以下の progn で囲まれた部分を実行します。
   (progn
   (if (not (tblsearch "LAYER" "寸法"))
   ; もし、「寸法」という画層がなければ以下を実行します。（「寸法」画層を作成します。）
   (command "_.LAYER" "N" "寸法" "")
   )

   ; すべての寸法の画層を「寸法」に変更します。
   (command "_.CHANGE" ss "" "P" "LA" "寸法" "")

   ; 寸法の数を求めます。
   (setq ss_len (sslength ss))

   ; 移動した寸法の数を表示します。strcat 関数は、文字列同士をくっつける関数です。
   (alert (strcat (itoa ss_len) " 個の寸法を「寸法」画層に移動しました。"))
   )
   ; もし、寸法が存在しなければ以下の progn で囲まれた部分を実行します。
   (progn
   (alert "寸法がひとつもありませんでした。")
   )
   )
   (princ)
)

tblnext、tblsearch 関数（AutoCAD 2010）

2010-02-09T12:00:00.000+09:00

シンボルテーブル（VPORT、LINETYPE、LAYER、STYLE、DIMSTYLE、BLOCKS、APPID）の情報を取得するために使用する関数です。

図面中に「ある画層は存在する？」、「どんな寸法スタイル名がある？」などを確認したいときに使用します。

使用例

(tblname <シンボルテーブル> [rewind])

<シンボルテーブル> で指定したシンボルテーブルに設定されているものを順番に返します。

[rewind] の部分は省略可能です。T を入れると、このシンボルテーブルの最初の設定が返されます。

例えば、以下のような使い方になります。

(tblnext "LAYER" T) ; T を最後に入れていますので、図面中の最初の画層の情報が返されます。

(tblnext "LAYER") ; 図面中の 2 番目の画層の情報が返されます。

このあと、(tblnext "LAYER") を繰り返して実行すると、3 番目、4 番目、・・・と順番に情報が返されます。

もう画層がなくなったときは、nil が返されます。

(tblsearch <シンボルテーブル> <名前> [setnext])

<シンボルテーブル> で指定したシンボルテーブルに＜名前＞で指定した名前が存在すれば、その情報が返され、なければ nil が返されます。

例えば、以下を実行したとします。

(tblsearch "DIMSTYLE" "TEST")

図面中に、TEST という寸法スタイルが存在すれば、その情報が返され、なければ nil が返されます。

[setnext] の部分は省略可能です。T を入れると、このあとに tblnext 関数を実行すると、tblsearch 関数で返されたシンボルテーブルのつぎのシンボルテーブルの情報が返されるようになります。

defun 関数（AutoCAD 2010）

2010-02-07T12:00:00.001+09:00

自分で新たに作成する関数を定義する関数です。

使用例

(defun sym (<引数> / <ローカル変数>)

)

sym は自分で新たに作成する関数の名前です。

例えば、test にすると、AutoCAD 上あるいは AutoLISP のプログラム内で (test) と入力すると実行されます。

また、c:test にすると、コマンドとして定義されることになります。そのため、AutoCAD 上で test と入力すると実行されます。AutoLISP のプログラム内では (c:test) と入力すると実行されます。

<引数> は関数を実行する時の引数です。

<ローカル変数>

ローカル変数とは、この関数の実行中にのみ設定される変数で、この関数が完了したあとは設定がなくなる変数です。（ローカル変数の逆は、グローバル変数です。）

例えば、以下の 2 つの例で違いを見てみましょう。

<例 1>

(defun c:test1 (/ pt1 pt2)

(setq pt1 '(0.0 0.0 0.0))

(setq pt2 '(100.0 100.0 0.0))

(command "_.LINE" pt1 pt2 "")

(princ)

)

<例 2>

(defun c:test2 ()

(setq pt1 '(0.0 0.0 0.0))

(setq pt2 '(100.0 100.0 0.0))

(command "_.LINE" pt1 pt2 "")

(princ)

)

例 1 の test1 コマンドを実行したあとは、変数 pt1 と pt2 が nil に戻ります。

例 2 の test2 コマンドを実行したあとは、変数 pt1 には (0.0 0.0 0.0) が、変数 pt2 には (100.0 100.0 0.0) が設定されたままになります。

（AutoCAD のコマンドラインに !pt1 や !pt2 と入力することにより確認できます。）

ローカル変数であれば、他の関数実行時にその設定が影響することはありません。

グローバル変数は、他の関数で同じ変数名を使用していると、その設定が影響することがあります。

ssget、ssname、sslength 関数（AutoCAD 2010）

2010-02-06T12:00:00.002+09:00

ユーザにオブジェクトを複数選択させたり、ある条件にあったオブジェクトを複数選択してそれらの情報を取得したいことがあると思います。

例えば、ユーザが選択した複数のオブジェクトの画層、色、線種などの情報を取得したり、図面の中の寸法図形のみを抽出して、その画層などの上方を取得したいといったような時です。

使用例
(ssget)
コマンドラインに「オブジェクトを選択：」と表示されます。
ここで、オブジェクトを選択すると、選択したオブジェクトの選択セットが返されます。

(ssget "X" <条件>)
<条件> の部分に当てはまるすべてのオブジェクトを含んだ選択セットが返されます。
例えば、(ssget "X" '((0 . "DIMENSION"))) と実行すると、図面中に含まれるすべての寸法図形を含んだ選択セットが返されます。

(ssname ss index)
選択セット ss の index で指定した番号の要素の図形名が返されます。
index は、0 から始まります。

例えば、以下を実行したとします。

(setq ss (ssget "X" '((0 . "LINE"))))
(setq obj_1 (ssname ss 0))
(setq obj_2 (ssname ss 1))

そうすると、変数 ss に図面中のすべての線分を含んだ選択セットが設定され、変数 obj_1 にはその選択セットの最初の線分の図形名、変数 obj_2 にはその選択セットの 2 番目の図形名が設定されます。

(sslength ss)
選択セット ss に含まれるオブジェクトの数が返されます。

If、while、cond 関数（AutoCAD 2010）

2010-02-06T12:00:00.001+09:00

プログラムを作成するとき、「もし～なら***、そうでないなら***」とか「～の間は繰り返す」とか「A のときは***、B のときは***、C のときは***」といった条件文を作成する必要がでてくると思います。

使用例
(if <条件>
   <条件> が真の場合に実行する内容
   <条件> が偽の場合に実行する内容
)

例えば以下の内容を test.lsp というファイルとして保存し、ロードして test コマンドを実行したとします。

(defun C:TEST ()
   (setq a (getint "\n数値を入力："))
   (if (>= a 10)
       (alert "10 以上の数値が入力されました。")
       (alert "10 未満の数値が入力されました。")
   )
)

そうすると、「数値を入力：」に対して 10 以上の数値を入力すると、「10 以上の数値が入力されました。」と表示され、10 未満の数値を入力すると、「10 未満の数値が入力されました。」と表示されます。

＜注意！！＞
<条件> が真または偽の場合に実行する内容が複数の場合は、progn でまとめる必要があります。以下に例を示します。

(defun C:TEST ()
   (setq a (getint "\n数値を入力："))
   (if (>= a 10)
   (progn
       (alert "10 以上の数値が入力されました。")
       (alert "以上でコマンド終了です。")
   )
   (progn
       (alert "10 未満の数値が入力されました。")
       (alert "以上でコマンド終了です。")
   )
   )
)

(while <条件>
   <条件> に当てはまる場合に実行する内容
)

例えば以下の内容を test.lsp というファイルとして保存し、ロードして test コマンドを実行したとします。

(defun C:TEST ()
   (setq n 5)
   (while (> n 0)
       (alert "while 文実行中です。")
       (setq n (- n 1))
   )
)

そうすると、「while 文実行中です。」という表示が 5 回繰り返し表示されます。

(cond
   <条件1><条件1 の場合に実行する内容>
   <条件2><条件2 の場合に実行する内容>
   <条件3><条件3 の場合に実行する内容>
                   ・
                   ・
   T <どの条件にも当てはまらない場合に実行する内容>
)

例えば以下の内容を test.lsp というファイルとして保存し、ロードして test コマンドを実行したとします。

(defun C:TEST ()
   (setq a (getint "\n数値を入力："))
   (cond
       ((= a 1) (alert "1 が入力されました。"))
       ((= a 2) (alert "2 が入力されました。"))
       ((= a 3) (alert "3 が入力されました。"))
       (T (alert "1 でも 2 でも 3 でもない数値が入力されました。"))
   )
)

そうすると、「数値を入力：」に対して 1（または 2 や 3）を入力すると、「1 （または 2 や 3）が入力されました。」と表示され、1、2、3 以外の数値を入力すると、「1 でも 2 でも 3 でもない数値が入力されました。」と表示されます。

entsel、entlast、entget 関数（AutoCAD 2010）

2010-02-05T12:00:00.000+09:00

AutoCAD においてプログラムを作るとき、あるオブジェクトの情報を取得したくなることもあると思います。
例えば、あるオブジェクトの画層、色、線種、文字スタイル名、寸法スタイル名などがどのようになっているかを知りたいときなどです。

使用例
オブジェクトの情報を取得したいときは、まずはそのオブジェクトの「図形名」を取得して、それを元にオブジェクトの情報を取得することになります。

(entsel)
コマンドラインに「オブジェクトを選択：」と表示されます。
ここで、オブジェクトを選択すると、選択したオブジェクトの「図形名」とクリックした座標値が返されます。

(entlest)
最後に作成したオブジェクトの「図形名」が返されます。

(entget (car (entsel)))
選択したオブジェクトの情報が返されます。
car 関数は、リストの最初の要素を返します。(car (entsel)) は、(entsel) の返り値の最初の要素を返すということになりますので、選択したオブジェクトの「図形名」が返されます。

(entget (car (entsel)) '("*"))
「 '("*")」が追加されていますが、これは、オブジェクトに追加されている拡張データの情報も取得したいときに追加します。「*」となっているのは、すべてのアプリケーション名に対する拡張データも取得するということです。
例えば、acadvideo というアプリケーション名の拡張データだけを取得するときは　(entget (car (entsel)) '("acadvideo")) となります。

(entget (entlast))
(entget (entlast) '("*"))
最後に作成したオブジェクトの情報が返されます。
「 '("*")」を付けたときは、拡張データも返されます。

例えば、中心が 100,100 で、半径 50 の円を描き、(entget (entlast)) を実行すると、以下のような情報が返されます。

((-1 . <図形名: 7ffffb0b830>) (0 . "CIRCLE") (330 . <図形名: 7ffffb099f0>) (5 .
"1FB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbCircle") (10 100.0 100.0 0.0) (40 . 50.0) (210 0.0 0.0 1.0))

ちょっとだけ説明すると、

(0 . "CIRCLE") は、オブジェクトの種類が「円」
(8 . "0") は、画層が 0
(10 100.0 100.0 0.0) は、中心の座標値が 100.0,100.0,0.0
(40 . 50.0) は、半径が 50.0

ということを示してします。

.NET（基本）(2)（AutoCAD 2010）

2010-01-25T12:00:00.002+09:00

サンプルプログラムの解析
では、使用したサンプルプログラムは具体的に何を行っているのか内容を見ていきましょう。

ここであらためてサンプルプログラムは以下のとおりです。
--------------------------------------------------
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Geometry
Public Class Class1
_
Public Sub AngleFromXAxis()
Dim pt1 As Point2d = New Point2d(2, 5)
Dim pt2 As Point2d = New Point2d(5, 2)

Application.ShowAlertDialog("Angle from XAxis: " & _
pt1.GetVectorTo(pt2).Angle.ToString())
End Sub
End Class
--------------------------------------------------

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Geometry
まずは、これからですが、これは何なんでしょう？

そこで、Google で Imports について探してみたところ http://msdn.microsoft.com/ja-jp/library/7f38zh8x.aspx にこんな記述がありました。

現在のプロジェクトに定義された、または参照されているプロジェクトとアセンブリに定義された名前空間またはプログラミング要素をインポートします。

なので、AutoCAD の名前空間ってやつを読み込んでいみたいです。

続いて、Autodesk.AutoCAD.ApplicationServices などについて Google で探したところ、ちょっと古い（AutoCAD 2008 のころのもの？）ですが、http://images.autodesk.com/apac_japan_main/files/api_customizetechnic.pdf を見つけました。でも、基本的に AutoCAD 2010 も同じでしょうと勝手に都合のいいように考えることにしました。

この中の 30 ページに、こんな記述を見つけました。

AutoCAD マネージクラスライブラリの名前空間

Autodesk.AutoCAD.GraphicsInterface　：　ベクトル描画機構関連

Autodesk.AutoCAD.PlottingServices　：　印刷サービス関連

Autodesk.AutoCAD.Windows　：　ユーザインタフェース関連

Autodesk.AutoCAD.EditorInput　：　選択、入力等ユーザ対話関連

Autodesk.AutoCAD.Runtime　：　例外処理など基本機能関連

Autodesk.AutoCAD.Geometry　：　幾何演算関連

Autodesk.AutoCAD.DatabaseServices　：　グラフィカル、非グラフィカルオブジェクト等図面データベース関連

これからいくと、2 行目、3 行目で「例外処理など基本機能関連」と「幾何演算関連」の名前空間をインポートしてるってことですね。詳しいことはわかりませんが、このサンプルプログラムではこれらの名前空間を読み込んでおく必要があるみたいです。（プログラムに詳しい人からすれば、基本中の基本で、当たり前のことなんでしょうね、きっと。。。）

1 行目の Autodesk.AutoCAD.ApplicationServices についての記述はありませんが、名前から見てきっと必ずいるものなんでしょうね、と勝手に理解することにします。（これ以上考えてもわからないので。。。）
いろいろサンプルファイルを見てみても、Autodesk.AutoCAD.ApplicationServices と Autodesk.AutoCAD.Runtime は必ずインポートしてるみたいです。

_ AutoCAD .NET デベロッパガイド（acad_mdg.zip）の「AutoCAD .NET API の基礎 > コマンドと AutoLISP 関数の定義 > コマンドの定義」に記述がありました。

コマンドの定義を行っているようです。
AngleFromXAxis というコマンドを新たに作りますよってことです。

Dim pt1 As Point2d = New Point2d(2, 5)
Dim pt2 As Point2d = New Point2d(5, 2)
pt1 と pt2 に 2 次元の座標値を割り当ててるようです。

Application.ShowAlertDialog("Angle from XAxis: " & _
pt1.GetVectorTo(pt2).Angle.ToString())
http://www.autodesk.com/objectarx の「License & Download」から「ObjectARX for AutoCAD 2010 (32-bit and 64-bit)」(ObjectARX_2010_Win_64_and_32Bit.exe)を入手しました。

ObjectARX_2010_Win_64_and_32Bit.exe を実行すると C:\ObjectARX 2010\docs フォルダに arxmgd.chm(ObjectARX for AutoCAD 2010 : Managed Class Reference Guide) というファイルがあって、Application.ShowAlertDialog について以下の記述があったので、きっとこれでしょう。

Shows the alert dialog with the specified message.

※ ここで気がついたのですが、arxmgd.chmで、Autodesk.AutoCAD.ApplicationServices Namespace の下に Application.ShowAlertDialog Method に関する記述があるので、「Imports Autodesk.AutoCAD.ApplicationServices」の記述が必要だったんですね、きっと。

pt1.GetVectorTo(pt2).Angle.ToString() に関しては、きっと、p1 から p2 までのベクトルの角度を文字列にしているみたいです。（まだ理屈をちゃんと理解してませんが、そのうち分かる時が来ると勝手に思ってます。）

なので、pt1 から pt2 方向へのベクトルの角度を文字列にしているみたいです。

pt1 は 2,5、pt2 は 5,2 なので、角度は 315° です。

この AngleFromXAxis コマンドを実行すると、上記のように表示されていますが、この値はラジアンだと思います。（180 × 5.49778714378214 ÷ π ＝ 315 ですね。）

.NET（基本）（AutoCAD 2010）

2010-01-23T12:00:00.002+09:00

オートデスク社の Webサイト（Microsoft Visual Basic for Applications Module FAQ）に以下の記述があります。

What is the status of VBA support in the AutoCAD 2010 product line?
Autodesk has begun the transition of VB customization from VBA to .NET technology. This transition will occur over a few years. During this time, Autodesk will provide documentation and other assistance to help our customers and developers migrate from VBA to this new automation technology.

オートデスク社は VBA から .NET への移行を始めているということのようです。

管理人は、AutoLISP でカスタマイズを行ったことはありますが、その他の言語でのカスタマイズは行ったことがありません。
AutoLISP はずっと昔からある古い言語なので、新しいカスタマイズにチャレンジしようかと思っています。

そこで、VBA は .NET に移行されるということのようなので、.NET をいちからやってみようと思います。きっと、分からない事だらけで、なかなか進まないと思いますが、地道にコツコツやっていこうかと思います。

とりあえず管理人がやってみたことをそのまま書くだけですので、あくまでも参考ということで見てください。（初心者なので間違いや勘違いがあると思いますので。。。）

環境の準備
まずは、環境の準備から始めようと思いますが、いったい何が必要なのでしょうね？？？（なにぶん初心者なので。。。）

とりあえず、オートデスク社の Web サイトのここに「AutoCAD .NET デベロッパガイド(日本語) 」（acad_mdg.zip）があるので、これをダウンロードして解凍した acad_mdg.chm を C:\Program Files\AutoCAD 2010\Help フォルダに置いて、中を見てみました。

※ Help フォルダに置かないと、ちゃんと内容を表示できないので注意！！

まずは、acad_mdg.chm でこんな記述を見つけました。

Microsoft Visual Studio には複数のバージョンおよびエディションがあります。AutoCAD 2010 対応の .NET API を使用するには、次を使用する必要があります。

・ Microsoft Visual Studio 2008 Service Pack 1

・ Microsoft .NET Framework 3.5 Service Pack 1

管理人の OS は、Windows 7 なので .NET Framework 3.5.1 が元からはいっているので、Microsoft .NET Framework 3.5 Service Pack 1 は気にしなくていいでしょう。（他の OS の場合も、AutoCAD 2010 と一緒にインストールされますから気にしなくていいでしょう。）

Microsoft Visual Studio 2008 Service Pack 1 に関しては、無償版で Microsoft Visual Studio 2008 Express Edition というものがあるようなので、これにしましょう。（有償版の方がいいようですが、初心者としてはやっぱり無償版がいいです。）

そこで、http://www.microsoft.com/japan/msdn/vstudio/express/ から Microsoft Visual Studio 2008 Express Edition を入手してインストールを開始したところ、以下の画面になりました。

どれを選べばいいんでしょうね？？？
とりあえず、Visual Basic 2008 をインストールしてみました。

では、さっそく Visual Basic 2008 を起動してみました。

で、このあとどうすればいいんでしょう？？？

参照の追加（AcDbMgd.dll、AcMgd.dll、AcCui.dll）

何が何だかわからないので、とりあえず手探りで [ファイル]-[新しいプロジェクト] を選択したあと、クラスライブラリを選択して、test01 というプロジェクト名にして OK ボタンをクリックしました。

acad_mdg.chm にこんな記述を発見しました。

AutoCAD .NET API の DLL ファイルのうち、主に次の 3 つを頻繁に使用します。

・ AcDbMgd.dll: 図面ファイル内のオブジェクトの操作に使用します。

・ AcMgd.dll: AutoCAD アプリケーションの操作に使用します。

・ AcCui.dll: カスタマイズファイルの操作に使用します。

ということで、[プロジェクト]-[参照の追加] で、[参照] タブを選択して上記の 3 つの dll ファイルを選択して OK ボタンをクリックしました。

サンプルプログラムを元にして DLL ファイルを作成

で、まずはサンプルを探してやってみようと思い、acad_mdg.chm を探してこんなコードを見つけました。

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.Geometry

<CommandMethod("AngleFromXAxis")> _

Public Sub AngleFromXAxis()

Dim pt1 As Point2d = New Point2d(2, 5)

Dim pt2 As Point2d = New Point2d(5, 2)

Application.ShowAlertDialog("Angle from XAxis: " & _

pt1.GetVectorTo(pt2).Angle.ToString())

End Sub

ということで、さっそくカット＆ペーストです。

Class1.vb にまるごとカット＆ペーストしてみましたが、「<CommandMethod("AngleFromXAxis")> _」と「Public Sub AngleFromXAxis()」に波線が入って、「名前空間のステートメントが無効です。」というエラーになってしまいました。

Class1.vb には元々以下の内容があったので、消しちゃいけないんですね、きっと。

Public Class Class1

End Class

ということで、この記述は残して、こんな感じにしました。

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.Geometry

Public Class Class1
<CommandMethod("AngleFromXAxis")> _

Public Sub AngleFromXAxis()

Dim pt1 As Point2d = New Point2d(2, 5)

Dim pt2 As Point2d = New Point2d(5, 2)

Application.ShowAlertDialog("Angle from XAxis: " & _

pt1.GetVectorTo(pt2).Angle.ToString())

End Sub

End Class

今度は、エラーなしです。

で、[ファイル]-[すべて保存] を選択して、test01 という名前で保存です。

そうすると、C:\Users\acadvideo\Documents\Visual Studio 2008\Projects\test01\test01\bin\Debug フォルダに test01.dll というファイルが出来ました。

これをロードすればいいんですねきっと。

AutoCAD で実行

test01.dll ができたので、さっそく AutoCAD で実行です。

まずは、AutoCAD を起動して、NETLOAD[.NET アプリケーションロード] コマンドを実行です。

さっきできた test01.dll を選択して、[開く] ボタンをクリックしてロードです。

「<CommandMethod("AngleFromXAxis")> _」という記述があったので、AngleFromXAxis と入力すると、作成したコマンド（AngleFromXAxis）が実行されて、こんな AutoCAD メッセージが表示されました！！

なんとかコマンドを作れてよかったです！！

getpoint、getint、getreal、getstring 関数（AutoCAD 2010）

2010-01-22T12:00:00.001+09:00

プログラムを作成するときに、ユーザに座標値、整数値、実数値、文字列を入力させたいことがあると思います。そんな時に、これらの関数を使用します。

使用例
(getpoint "\n場所を指定：")
コマンドラインに「場所を指定：」と表示され、その後クリックした（あるいは入力した）座標値が返されます。

そのため、例えば、(setq pt1 (getpoint "\n場所を指定：")) と入力すると、ユーザがクリックした座標値が、変数 pt1 に割り当てられます。

「\n」は改行を行うことを意味していて、「場所を指定：」の前にあるのは、「場所を指定：」の前に不要な文字が入らないようにするためです。
この一行のみを実行するときは、「\n」があってもなくてもいいのですが、実際に lsp ファイルを作成して自分で作成したコマンドを実行するようになってくると、「\n」がないと前の行の返り値が「場所を指定：」の前に表示されてくるというようなことが起きてくると思います。

(getint "\n数値を入力：")
コマンドラインに「数値を入力：」と表示され、入力された整数が返されます。

(getreal "\n数値を入力：")
コマンドラインに「数値を入力：」と表示され、入力された値が実数として返されます。

(getstring "\n文字列を入力：")
コマンドラインに「文字列を入力：」と表示され、入力した内容が文字列として返されます。

setq 関数（AutoCAD 2010）

2010-01-21T12:00:00.001+09:00

変数に値を設定する関数です。

使用例

(setq a 100)
変数 a に整数 100 が割り当てられます。

(setq a 100.0)
変数 a に実数 100.0 が割り当てられます。

(setq a "100")
変数 a に文字列 100 が割り当てられます。

(setq a 100 b 100.0 c "100")
変数 a に整数 100、変数 b に実数 100.0、変数 c に文字列 100 が割り当てられます。

command 関数（AutoCAD 2010）

2010-01-21T12:00:00.000+09:00

AutoCAD のコマンドを実行する関数です。

使用例
(command "_.LINE" "0,0" "100,100" "")
LINE[線分] コマンドが実行され、0,0 から 100,100 に線分が描かれます。

このように、コマンドを実行するときに入力する内容を、"" で囲って順番に入れていけばコマンドを実効できます。
コマンド実行中に Enter を押すような場合は、"" と入力します。

コマンド名の前に「_.」を入れていますが、通常これを入れるもののようです。

「_」は英語でのコマンド入力を示しているようです。
例えば、フランス語版の AutoCAD では、STRETCH コマンドは ETIRER コマンドを実行するようになっているようです。つまり、同じコマンドでも、異なる言語版の AutoCAD では、コマンド名が異なることがあるようです。
日本語版は、コマンド名は英語版とすべて同じなので「_」をつけます。
普通みなさんは日本語版の AutoCAD で使用すると思うので、「_」をつけなくても問題なく動作しますが、フランス語などの AutoCAD で「_」をつけないと動かないことがあるのではないかと思います。（フランス語版の環境がないので、確認したことはありませんが。。。）

「.」は、AutoCAD のオリジナルのコマンドであることを示しています。
AutoCAD では、カスタマイズで元からあるコマンドに新しいコマンドを割り当てることができます。
例えば、UNDEFINE[コマンド定義解除] コマンドで、LINE コマンドを無効にすることができます。その後、自分で新たに LINE コマンドを作成して、独自の LINE コマンドを実行することができるようになります。
そのようなカスタマイズが実行された環境であっても、「.」をコマンドの前につけることで、カスタマイズされたコマンドではなく、AutoCAD が元から持っているコマンドを実行することができます。

AutoLISP（基本）（AutoCAD 2010）

2009-12-25T12:00:00.001+09:00

AutoLISPを使用してプログラムを作成することにより、新しいコマンドを作成したり、システム変数などの設定を変更したりなどいろいろなカズタマイズを行うことができます。

AutoLISP 関数
AutoLISP は、AutoLISP 関数を実行して、いろいろな動作を実行します。

多くの AutoLISP 関数で、どのようなことを実行できるかを知っておくことは、AutoLISP でプログラムを作成する際に非常に重要となります。

オンラインヘルプの「AutoLISP リファレンス」の「AutoLISP 関数」において、各 AutoLISP 関数においてどのようなことができるかなどの詳細を確認することができます。

「AutoLISP リファレンス」は以下の手順で確認することができます。

コマンドラインでの実行
AutoCAD のコマンドラインに AutoLISP 関数を入力して実行することができます。
例えば、(alert "テスト") とコマンドラインに入力すると、以下のダイアログが表示されます。

LISP ソースファイル(.lsp ファイル)の作成
コマンドラインに AutoLISP 関数を入力して実行することは分かりましたが、何回も繰り返し実行したり、複数行ある AutoLISP を毎回コマンドラインに入力して実行することは現実的ではありません。
そのため、通常は LISP ソース（.lsp ファイル）を作成します。
LISP ソースファイルは、テキストファイルですので、メモ帳など任意のエディタを使用して作成することができます。
LISP ソースファイルに記述する内容は、コマンドラインのときと同様に AutoLISP 関数を記述します。

LISP ソースファイルの実行方法
では、LISP ソースファイルはどのように実行するのでしょう？？？
実行方法はいくつかありますが、以下で手順を確認することができます。

コマンドとして実行する方法
LISP ソースファイルの実行方法は分かりましたが、前述の方法で実行するのはちょっと面倒です。
そこで、コマンドとして作成したプログラムを実行することができますので、その方法を紹介します。
その方法とは、defun 関数を使用する方法です。
例えば、以下の内容を記述した LISP ソースファイルを作成しロードすると、TEST という新しいコマンドを使用できるようになります。

(defun C:TEST ()
(alert "テスト")
)

以下の手順で、test02.lsp をロードして TEST コマンドが実行できるようになります。

すべての図面において defun 関数で定義したコマンドを実行する方法
前述のように test02.lsp をロードすると、test02.lsp で defun 関数を使用して定義している TEST コマンドが使用できるようになります。
しかし、これは test02.lsp をロードした図面上のみでのことです。
そのため、他の図面において TEST コマンドを実行するときは、再度その図面でロードを行う必要があります。
それって面倒ですよね。
そのために、APPLOAD[アプリケーションロード] コマンドにおいて「スタートアップ登録」という機能があります。
「スタートアップ登録」の設定方法は、以下の通りです。