用WPF开发AUTOCAD.NET 程序的三种用法(学习笔记)

qjchen · 发表于 2010-12-28 22:05:47

本帖最后由 qjchen 于 2011-12-20 13:02 编辑

用WPF开发AutoCAD.NET 程序的三种用法(学习笔记)
资料主要来源，自于Autodesk官方论坛中mikko的一个范例
学习者:qjchen

本贴是本人学习WPF的入门级笔记，各位其实打开该范例文件自然就懂了，高手们见笑了~

在http://forums.autodesk.com/t5/NET/WPF-Controls-In-PaletteSet/m-p/2311530/highlight/true#M11201文中，mikko给出了一个非常有用的入门范例
http://forums.autodesk.com/autodesk/attachments/autodesk/152/11209/1/WPFacad.zip 。这个范例文件，非常好地给出了用VB.NET开发AUTOCAD WPF程序的三种方法
（1）采用PaletteSet面板工具内嵌wpf用户控件
（2）采用建立wpf控件转为wpf应用程序的方法
（3）利用.net语言直接生成wpf窗口
以下逐一进行学习讨论，并准备将其改造为c#代码方便后续的学习，并将期望将其拓展到SAP2000的开发中（经测试，SAP2000似乎还不支持WPF开发），毕竟这两种都是采用了类库开发模式，如何启动WPF窗口是一个值得学习的问题。
（1）采用PaletteSet面板工具内嵌wpf用户控件
说明:
对于这种wpf内嵌于ps面板中，Autocad官方有一个例子在此处
http://download.autodesk.com/media/adn/ACAD_Using_WPF_in_your_applications_02June2009.zip
压缩文件中的MyPaletteWebcast文件夹就是一个面板内嵌wpf窗口的例子
Kean也写过类似的例子
http://through-the-interface.typepad.com/through_the_interface/2009/08/hosting-wpf-content-inside-an-autocad-palette.html
还有一个例子是mjtd的翔麟曾经给过更加复杂的例子，用wpf Autocad查询一下google，你会发现第二个帖子就是了
http://bbs.mjtd.com/thread-80641-1-1.html
翔麟的.net CAD开发技术是很高的，特别是国内的Autocad和wpf的研究，现在能查到的网上资料，就大部分都是他的。
过程，首先，创建一个VB.NET的类库
接着，添加 acmgd.dll和acdbmgd.dll的引用，并在项目属性中，将这两个的复制本地设为false（C#则可以直接在解决方案资源管理器中修改）。
为了WPF的应用，添加另外几个.net的引用PresentationCore, PresentationFramework, System.Windows.Form, WindowsBase, WindowsFormsIntegration
接下来，创建一个wpf控件，过程可以如下在菜单-项目-添加用户控件中找到wpf控件添加之，visual studio2008和2010的位置有一点点不同，并将这个用户控件重命名为 XamlCtrl.xaml
在这个用户控件的xaml中，贴入如下代码

<UserControl x:Class="XamlCtrl"
xmlns="[url=http://schemas.microsoft.com/winfx/2006/xaml/presentation]http://schemas.microsoft.com/winfx/2006/xaml/presentation[/url]"
xmlns:x="[url=http://schemas.microsoft.com/winfx/2006/xaml]http://schemas.microsoft.com/winfx/2006/xaml[/url]" Width="300" Height="300">
<Grid>
<Grid.Background>
<LinearGradientBrush EndPoint="0.5,1" StartPoint="0.5,0">
<GradientStop Color="#FF27323E" Offset="0"/>
<GradientStop Color="#FFD8E8FA" Offset="1"/>
</LinearGradientBrush>
</Grid.Background>
<TextBlock Text="Just a few words to take up space." Foreground="White" HorizontalAlignment="Center" VerticalAlignment="Center" />
</Grid>
</UserControl>

复制代码

（可见此代码，可以直接用拖拉控件的方法得到，当然，加了一些线性渐变的颜色代码）
接下来，将默认生成的class1.vb中的代码，改为如下内容

Imports Autodesk.AutoCAD.Runtime
Imports System.Windows.Forms
Imports System.Windows.Forms.Integration
Public Class Class1
Public ps As Autodesk.AutoCAD.Windows.PaletteSet
Private eh As ElementHost
Private ctrlXaml As XamlCtrl
<CommandMethod("xamlPS")> Public Sub xamlPS()
If (ps = Nothing) Then
ps = New Autodesk.AutoCAD.Windows.PaletteSet("Pallet Set Example", New Guid("48CFD470-D15A-434b-BC94-6ADAF073025E"))
eh = New ElementHost()
eh.Dock = DockStyle.Fill
ps.Add("Pallet Set Example", eh)
ctrlXaml = New XamlCtrl()
ctrlXaml.InitializeComponent()
eh.Child = ctrlXaml
End If
ps.Visible = True
End Sub
End Class

可见大部分内容还是可以接受的，就是ps这段有些复杂。不过基本也可懂，过程是创建一个面板，加入一个元素，并将XamlCtrl这个刚才创建的wpf用户自定义控件显示到此面板中。好了，可以进行一下测试。在项目属性的调试中,增加acad.exe的外部程序调试。我用2007和2011都可以调试通过。先按下F6，生成一下。
在visual studio中按F5，打开ACAD界面了，键入NETLOAD，找到你保存这个项目中的bin/debug目录，那个叫***.dll的文件就是了。加载之后，键入 xamlPS 这个我们定义的命令。看看，就是我们如下的界面了。

怎么样，挺高兴的吧。
接下来，你就可以添加各种你喜欢的元素了。
比如用windows expression studio 4.0直接创建各类漂亮的窗口了。

qjchen · 发表于 2010-12-28 22:06:37

本帖最后由 qjchen 于 2010-12-28 22:09 编辑

（2）采用建立wpf控件转为wpf应用程序的方法
在上述已有内容的基础上，增加如下内容
创建一个wpf控件（因为无法直接添加wpf窗口，只能建立控件），过程可以如下：在菜单-项目-添加用户控件中找到wpf控件添加之，visual studio2008和2010的位置有一点点不一样，并将这个用户控件重命名为 frmXaml.xaml
在这个用户控件的xaml中，贴入如下代码

<Window x:Name="frmXaml" xmlns="[url=http://schemas.microsoft.com/winfx/2006/xaml/presentation]http://schemas.microsoft.com/winfx/2006/xaml/presentation[/url]"
xmlns:x="[url=http://schemas.microsoft.com/winfx/2006/xaml]http://schemas.microsoft.com/winfx/2006/xaml[/url]"
x:Class="ToDazeReality.frmXaml"
Title="Inherits Window" WindowStartupLocation="CenterScreen" WindowStyle="ThreeDBorderWindow" ResizeMode="CanResize" Width="300" Height="400">
<Window.Background>
<LinearGradientBrush EndPoint="0.5,1" StartPoint="0.5,0">
<GradientStop Color="#FF27323E" Offset="0"/>
<GradientStop Color="#FFD8E8FA" Offset="1"/>
</LinearGradientBrush>
</Window.Background>
<Window.Resources>
<Style x:Key="ButtonBlue" BasedOn="{x:Null}" TargetType="{x:Type Button}">
<Setter Property="Template">
<Setter.Value>
<ControlTemplate TargetType="{x:Type Button}">
<Grid>
<Rectangle Stroke="#FF000000" RadiusX="9.5" RadiusY="9.5" x:Name="rectangle">
<Rectangle.Fill>
<LinearGradientBrush EndPoint="0.5,1" StartPoint="0.5,0">
<GradientStop Color="#FF091A2F" Offset="0"/>
<GradientStop Color="#FF5D8DC6" Offset="1"/>
</LinearGradientBrush>
</Rectangle.Fill>
</Rectangle>
<Rectangle Stroke="{x:Null}" RadiusX="9.5" RadiusY="9.5" Margin="2,1,2,0">
<Rectangle.Fill>
<LinearGradientBrush EndPoint="0.498,0.469" StartPoint="0.5,0">
<GradientStop Color="#59FFFFFF" Offset="0"/>
<GradientStop Color="#00FFFFFF" Offset="1"/>
</LinearGradientBrush>
</Rectangle.Fill>
</Rectangle>
<ContentPresenter HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}" VerticalAlignment="{TemplateBinding VerticalContentAlignment}" SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}" RecognizesAccessKey="True"/>
</Grid>
<ControlTemplate.Resources>
<Storyboard x:Key="Storyboard1">
<ColorAnimationUsingKeyFrames BeginTime="00:00:00" Storyboard.TargetName="rectangle" Storyboard.TargetProperty="(Shape.Fill).(GradientBrush.GradientStops)[1].(GradientStop.Color)">
<SplineColorKeyFrame KeyTime="00:00:00" Value="#FF5D8DC6"/>
<SplineColorKeyFrame KeyTime="00:00:00.1300000" Value="#FF5DC6A3"/>
</ColorAnimationUsingKeyFrames>
<ColorAnimationUsingKeyFrames BeginTime="00:00:00" Storyboard.TargetName="rectangle" Storyboard.TargetProperty="(Shape.Fill).(GradientBrush.GradientStops)[0].(GradientStop.Color)">
<SplineColorKeyFrame KeyTime="00:00:00" Value="#FF091A2F"/>
<SplineColorKeyFrame KeyTime="00:00:00.1300000" Value="#FF0C4F39"/>
</ColorAnimationUsingKeyFrames>
</Storyboard>
<Storyboard x:Key="OutOfHere"/>
<Storyboard x:Key="Storyboard2">
<ColorAnimationUsingKeyFrames BeginTime="00:00:00" Storyboard.TargetProperty="(Shape.Fill).(GradientBrush.GradientStops)[1].(GradientStop.Color)" Storyboard.TargetName="rectangle">
<SplineColorKeyFrame KeyTime="00:00:00" Value="#FF5DC6A3"/>
<SplineColorKeyFrame KeyTime="00:00:00.2560000" Value="#FF5D8DC6"/>
</ColorAnimationUsingKeyFrames>
<ColorAnimationUsingKeyFrames BeginTime="00:00:00" Storyboard.TargetProperty="(Shape.Fill).(GradientBrush.GradientStops)[0].(GradientStop.Color)" Storyboard.TargetName="rectangle">
<SplineColorKeyFrame KeyTime="00:00:00" Value="#FF0C4F39"/>
<SplineColorKeyFrame KeyTime="00:00:00.2560000" Value="#FF091A2F"/>
</ColorAnimationUsingKeyFrames>
</Storyboard>
</ControlTemplate.Resources>
<ControlTemplate.Triggers>
<Trigger Property="IsFocused" Value="True"/>
<Trigger Property="IsDefaulted" Value="True"/>
<Trigger Property="IsMouseOver" Value="True">
<Trigger.ExitActions>
<BeginStoryboard Storyboard="{StaticResource Storyboard2}" x:Name="OutOfHere_BeginStoryboard"/>
</Trigger.ExitActions>
<Trigger.EnterActions>
<BeginStoryboard Storyboard="{StaticResource Storyboard1}"/>
</Trigger.EnterActions>
</Trigger>
<Trigger Property="IsPressed" Value="True"/>
<Trigger Property="IsEnabled" Value="False"/>
</ControlTemplate.Triggers>
</ControlTemplate>
</Setter.Value>
</Setter>
</Style>
</Window.Resources>
<Grid>
<Button Style="{DynamicResource ButtonBlue}" Name="btnClose" Width="50" Height="26" Foreground="White">Close</Button>
</Grid>
</Window>

复制代码

（可以看出，这个代码其他地方也没有什么太特殊的，就是需要把user control的首尾改成Window而非原来的User control。同时，x:Class="ToDazeReality.frmXaml" 是一句很关键的话。）
接下来，修改原来的class1.vb，使内容有所增加如下

Imports Autodesk.AutoCAD.Runtime
Imports System.Windows.Forms
Imports System.Windows.Forms.Integration
Public Class Class1
Public ps As Autodesk.AutoCAD.Windows.PaletteSet
Private eh As ElementHost
Private ctrlXaml As XamlCtrl
<CommandMethod("xamlPS")> Public Sub xamlPS()
If (ps = Nothing) Then
ps = New Autodesk.AutoCAD.Windows.PaletteSet("Pallet Set Example", New Guid("48CFD470-D15A-434b-BC94-6ADAF073025E"))
eh = New ElementHost()
eh.Dock = DockStyle.Fill
ps.Add("Pallet Set Example", eh)
ctrlXaml = New XamlCtrl()
ctrlXaml.InitializeComponent()
eh.Child = ctrlXaml
End If
ps.Visible = True
End Sub
<CommandMethod("xamlForm")> Public Sub xamlForm()
Dim frmXaml As New ToDazeReality.frmXaml()
frmXaml.ShowDialog()
frmXaml = Nothing
End Sub
End Class

Imports Autodesk.AutoCAD.Runtime 
Imports System.Windows.Forms 
Imports System.Windows.Forms.Integration 
Public Class Class1 
    Public ps As Autodesk.AutoCAD.Windows.PaletteSet 
    Private eh As ElementHost 
    Private ctrlXaml As XamlCtrl 
    <CommandMethod("xamlPS")> Public Sub xamlPS() 
        If (ps = Nothing) Then 
            ps = New Autodesk.AutoCAD.Windows.PaletteSet("Pallet Set Example", New Guid("48CFD470-D15A-434b-BC94-6ADAF073025E")) 
            eh = New ElementHost() 
            eh.Dock = DockStyle.Fill 
            ps.Add("Pallet Set Example", eh) 
            ctrlXaml = New XamlCtrl() 
            ctrlXaml.InitializeComponent() 
            eh.Child = ctrlXaml 
        End If 
        ps.Visible = True 
    End Sub 
    <CommandMethod("xamlForm")> Public Sub xamlForm() 
        Dim frmXaml As New ToDazeReality.frmXaml() 
        frmXaml.ShowDialog() 
        frmXaml = Nothing 
    End Sub 
End Class

好了，可以进行一下测试。在项目属性的调试中,增加acad.exe的外部程序调试。我用2007和2011都可以调试通过。先按下F6，生成一下。
在visual studio中按F5，打开ACAD界面了，键入NETLOAD，找到你保存这个项目中的bin/debug目录，那个叫***.dll的文件就是了。加载之后，键入 WPFfrm 这个我们定义的命令。看看，就是我们如下的界面了。

qjchen · 发表于 2010-12-28 22:07:00

本帖最后由 qjchen 于 2010-12-28 22:13 编辑

（3）利用.net语言直接生成wpf窗口

这种方法我最早看到是在翔麟的这篇文章
http://bbs.mjtd.com/dispbbs.asp?boardid=33&Id=78758
里面采用c#直接建立wpf窗口，感觉这种方法挺好，甚至可以不用建立wpf控件了，但对使用者的要求要高些，使用者对wpf窗口界面的建立语句必须比较熟悉。
下面是一个建立过程
如上相同的步骤（刚才已做过的可以不用再做）
过程，首先，创建一个VB.NET的类库
接着，添加 acmgd.dll和acdbmgd.dll的引用，并在项目属性中，将这两个的复制本地设为false（C#则可以直接在解决方案资源管理器中修改）。
为了WPF的应用，添加另外几个.net的引用PresentationCore, PresentationFramework, System.Windows.Form, WindowsBase, WindowsFormsIntegration
接下来，添加一个类文件（具体，在项目-添加类），这个类的名字比如叫做 frmWPF.vb
那么，修改其代码如下

Imports System
Imports System.Windows
Imports System.Windows.Controls
Namespace ToDazeReality
Public Class frmWPF
Inherits Window
Public Shared Sub Main()
Dim app As Application = New Application()
app.Run(New frmWPF())
End Sub
Private txtbox1 As TextBox
Public Sub New()
Title = "WPF acad sample"
Width = 400.0
Height = 80.0
Dim stack As StackPanel = New StackPanel()
Content = stack
Dim grid1 As Grid = New Grid()
grid1.Margin = New Thickness(3)
stack.Children.Add(grid1)
Dim rowdef As RowDefinition = New RowDefinition()
rowdef.Height = GridLength.Auto
grid1.RowDefinitions.Add(rowdef)
Dim lbl As Label = New Label()
lbl.Margin = New Thickness(5)
lbl.Content = "Enter something: "
lbl.VerticalContentAlignment = VerticalAlignment.Center
lbl.HorizontalAlignment = HorizontalAlignment.Left
lbl.Width = 150.0
grid1.Children.Add(lbl)
txtbox1 = New TextBox()
txtbox1.Margin = New Thickness(5)
txtbox1.Width = 150.0
txtbox1.VerticalContentAlignment = Windows.VerticalAlignment.Center
txtbox1.HorizontalAlignment = HorizontalAlignment.Center
txtbox1.Name = "TextBox1"
grid1.Children.Add(txtbox1)
Dim btn As Button = New Button()
btn.Margin = New Thickness(5)
btn.Content = "OK"
btn.HorizontalAlignment = HorizontalAlignment.Right
btn.Width = 75.0
btn.IsDefault = True
AddHandler btn.Click, New RoutedEventHandler(AddressOf OK_ButtonClick)
grid1.Children.Add(btn)
End Sub
Private Sub OK_ButtonClick(ByVal sender As Object, ByVal args As RoutedEventArgs)
MsgBox(txtbox1.Text)
Close()
End Sub
End Class
End Namespace

Imports System 
Imports System.Windows 
Imports System.Windows.Controls 
Namespace ToDazeReality 
    Public Class frmWPF 
        Inherits Window 
        Public Shared Sub Main() 
            Dim app As Application = New Application() 
            app.Run(New frmWPF()) 
        End Sub 
        Private txtbox1 As TextBox 
        Public Sub New() 
            Title = "WPF acad sample" 
            Width = 400.0 
            Height = 80.0 
            Dim stack As StackPanel = New StackPanel() 
            Content = stack 
            Dim grid1 As Grid = New Grid() 
            grid1.Margin = New Thickness(3) 
            stack.Children.Add(grid1) 
            Dim rowdef As RowDefinition = New RowDefinition() 
            rowdef.Height = GridLength.Auto 
            grid1.RowDefinitions.Add(rowdef) 
            Dim lbl As Label = New Label() 
            lbl.Margin = New Thickness(5) 
            lbl.Content = "Enter something: " 
            lbl.VerticalContentAlignment = VerticalAlignment.Center 
            lbl.HorizontalAlignment = HorizontalAlignment.Left 
            lbl.Width = 150.0 
            grid1.Children.Add(lbl) 
            txtbox1 = New TextBox() 
            txtbox1.Margin = New Thickness(5) 
            txtbox1.Width = 150.0 
            txtbox1.VerticalContentAlignment = Windows.VerticalAlignment.Center 
            txtbox1.HorizontalAlignment = HorizontalAlignment.Center 
            txtbox1.Name = "TextBox1" 
            grid1.Children.Add(txtbox1) 
            Dim btn As Button = New Button() 
            btn.Margin = New Thickness(5) 
            btn.Content = "OK" 
            btn.HorizontalAlignment = HorizontalAlignment.Right 
            btn.Width = 75.0 
            btn.IsDefault = True 
            AddHandler btn.Click, New RoutedEventHandler(AddressOf OK_ButtonClick) 
            grid1.Children.Add(btn) 
        End Sub 
        Private Sub OK_ButtonClick(ByVal sender As Object, ByVal args As RoutedEventArgs) 
            MsgBox(txtbox1.Text) 
            Close() 
        End Sub 
    End Class 
End Namespace

可以看出，在这个vb代码中，直接用Inherits Window的方法，用VB建立了一个WPF窗口。
此时，修改class1.vb的内容如下

Imports Autodesk.AutoCAD.Runtime
Imports System.Windows.Forms
Imports System.Windows.Forms.Integration
Public Class Class1
Public ps As Autodesk.AutoCAD.Windows.PaletteSet
Private eh As ElementHost
Private ctrlXaml As XamlCtrl
<CommandMethod("xamlPS")> Public Sub xamlPS()
If (ps = Nothing) Then
ps = New Autodesk.AutoCAD.Windows.PaletteSet("Pallet Set Example", New Guid("48CFD470-D15A-434b-BC94-6ADAF073025E"))
eh = New ElementHost()
eh.Dock = DockStyle.Fill
ps.Add("Pallet Set Example", eh)
ctrlXaml = New XamlCtrl()
ctrlXaml.InitializeComponent()
eh.Child = ctrlXaml
End If
ps.Visible = True
End Sub
<CommandMethod("xamlForm")> Public Sub xamlForm()
Dim frmXaml As New ToDazeReality.frmXaml()
frmXaml.ShowDialog()
frmXaml = Nothing
End Sub
<CommandMethod("WPFfrm")> Public Shared Sub WPFfrm()
Dim wpffrm As New ToDazeReality.frmWPF
wpffrm.ShowDialog()
wpffrm = Nothing
End Sub
End Class

Imports Autodesk.AutoCAD.Runtime 
Imports System.Windows.Forms 
Imports System.Windows.Forms.Integration 
Public Class Class1 
    Public ps As Autodesk.AutoCAD.Windows.PaletteSet 
    Private eh As ElementHost 
    Private ctrlXaml As XamlCtrl 
    <CommandMethod("xamlPS")> Public Sub xamlPS() 
        If (ps = Nothing) Then 
            ps = New Autodesk.AutoCAD.Windows.PaletteSet("Pallet Set Example", New Guid("48CFD470-D15A-434b-BC94-6ADAF073025E")) 
            eh = New ElementHost() 
            eh.Dock = DockStyle.Fill 
            ps.Add("Pallet Set Example", eh) 
            ctrlXaml = New XamlCtrl() 
            ctrlXaml.InitializeComponent() 
            eh.Child = ctrlXaml 
        End If 
        ps.Visible = True 
    End Sub 
    <CommandMethod("xamlForm")> Public Sub xamlForm() 
        Dim frmXaml As New ToDazeReality.frmXaml() 
        frmXaml.ShowDialog() 
        frmXaml = Nothing 
    End Sub 
    <CommandMethod("WPFfrm")> Public Shared Sub WPFfrm() 
        Dim wpffrm As New ToDazeReality.frmWPF 
        wpffrm.ShowDialog() 
        wpffrm = Nothing 
    End Sub 
End Class

好了，可以进行一下测试。在项目属性的调试中,增加acad.exe的外部程序调试。我用2007和2011都可以调试通过。先按下F6，生成一下。
在visual studio中按F5，打开ACAD界面了，键入NETLOAD，找到你保存这个项目中的bin/debug目录，那个叫***.dll的文件就是了。加载之后，键入 WPFfrm 这个我们定义的命令。看看，就是我们如下的界面了。

此贴仅为学习mikko代码的学习记录过程，希望能对看本帖的您也有点用处~

wylong · 发表于 2010-12-29 10:59:26

楼主善于总结和分享精神值得大家学习，赞一个。

chpmould · 发表于 2010-12-29 12:30:09

谢谢分享...后续有时间也来看看...

azbd · 发表于 2011-1-3 11:18:07

wpf有啥过人之处？用通常的编程方法可以实现相同的功能吗？

lxf0802 · 发表于 2011-6-30 17:31:46

本帖最后由 lxf0802 于 2011-6-30 17:32 编辑

楼主的代码无法正常运行，直接在CAD里加载dll，出现以下错误

cdinten · 发表于 2011-6-30 21:15:44

看起来不错，不过exml是我永远的痛……

king20061335 · 发表于 2013-5-28 00:55:04

WPF只能通过CAD的面板来显示吗？

cheng5276 · 发表于 2014-10-10 17:31:01

lxf0802 发表于 2011-6-30 17:31
楼主的代码无法正常运行，直接在CAD里加载dll，出现以下错误

你用的CAD07吧？
低版本CAD对WPF的兼容性实在是差，需CAD2010以上

账号		自动登录	找回密码
密码			注册

[界面] 用WPF开发AUTOCAD.NET 程序的三种用法(学习笔记)

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分