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

qjchen

用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中，贴入如下代码

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

复制代码

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

2. 
   
3. Imports Autodesk.AutoCAD.Runtime
   
4. Imports System.Windows.Forms
   
5. Imports System.Windows.Forms.Integration
   
6. Public Class Class1
   
7.     Public ps As Autodesk.AutoCAD.Windows.PaletteSet
   
8.     Private eh As ElementHost
   
9.     Private ctrlXaml As XamlCtrl
   
10.     <CommandMethod("xamlPS")> Public Sub xamlPS()
    
11.         If (ps = Nothing) Then
    
12.             ps = New Autodesk.AutoCAD.Windows.PaletteSet("Pallet Set Example", New Guid("48CFD470-D15A-434b-BC94-6ADAF073025E"))
    
13.             eh = New ElementHost()
    
14.             eh.Dock = DockStyle.Fill
    
15.             ps.Add("Pallet Set Example", eh)
    
16.             ctrlXaml = New XamlCtrl()
    
17.             ctrlXaml.InitializeComponent()
    
18.             eh.Child = ctrlXaml
    
19.         End If
    
20.         ps.Visible = True
    
21.     End Sub
    
22. End Class
    

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

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



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

qjchen

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

1. 
   
2. <Window x:Name="frmXaml" xmlns="[url=http://schemas.microsoft.com/winfx/2006/xaml/presentation]http://schemas.microsoft.com/winfx/2006/xaml/presentation[/url]"
   
3. xmlns:x="[url=http://schemas.microsoft.com/winfx/2006/xaml]http://schemas.microsoft.com/winfx/2006/xaml[/url]"
   
4. x:Class="ToDazeReality.frmXaml"
   
5. Title="Inherits Window" WindowStartupLocation="CenterScreen" WindowStyle="ThreeDBorderWindow" ResizeMode="CanResize"  Width="300" Height="400">
   
6.     <Window.Background>
   
7.         <LinearGradientBrush EndPoint="0.5,1" StartPoint="0.5,0">
   
8.             <GradientStop Color="#FF27323E" Offset="0"/>
   
9.             <GradientStop Color="#FFD8E8FA" Offset="1"/>
   
10.         </LinearGradientBrush>
    
11.     </Window.Background>
    
12.     <Window.Resources>
    
13.         <Style x:Key="ButtonBlue" BasedOn="{x:Null}" TargetType="{x:Type Button}">
    
14.             <Setter Property="Template">
    
15.                 <Setter.Value>
    
16.                     <ControlTemplate TargetType="{x:Type Button}">
    
17.                         <Grid>
    
18.                             <Rectangle Stroke="#FF000000" RadiusX="9.5" RadiusY="9.5" x:Name="rectangle">
    
19.                                 <Rectangle.Fill>
    
20.                                     <LinearGradientBrush EndPoint="0.5,1" StartPoint="0.5,0">
    
21.                                         <GradientStop Color="#FF091A2F" Offset="0"/>
    
22.                                         <GradientStop Color="#FF5D8DC6" Offset="1"/>
    
23.                                     </LinearGradientBrush>
    
24.                                 </Rectangle.Fill>
    
25.                             </Rectangle>
    
26.                             <Rectangle Stroke="{x:Null}" RadiusX="9.5" RadiusY="9.5" Margin="2,1,2,0">
    
27.                                 <Rectangle.Fill>
    
28.                                     <LinearGradientBrush EndPoint="0.498,0.469" StartPoint="0.5,0">
    
29.                                         <GradientStop Color="#59FFFFFF" Offset="0"/>
    
30.                                         <GradientStop Color="#00FFFFFF" Offset="1"/>
    
31.                                     </LinearGradientBrush>
    
32.                                 </Rectangle.Fill>
    
33.                             </Rectangle>
    
34.                             <ContentPresenter HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}" VerticalAlignment="{TemplateBinding VerticalContentAlignment}" SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}" RecognizesAccessKey="True"/>
    
35.                         </Grid>
    
36.                         <ControlTemplate.Resources>
    
37.                             <Storyboard x:Key="Storyboard1">
    
38.                                 <ColorAnimationUsingKeyFrames BeginTime="00:00:00" Storyboard.TargetName="rectangle" Storyboard.TargetProperty="(Shape.Fill).(GradientBrush.GradientStops)[1].(GradientStop.Color)">
    
39.                                     <SplineColorKeyFrame KeyTime="00:00:00" Value="#FF5D8DC6"/>
    
40.                                     <SplineColorKeyFrame KeyTime="00:00:00.1300000" Value="#FF5DC6A3"/>
    
41.                                 </ColorAnimationUsingKeyFrames>
    
42.                                 <ColorAnimationUsingKeyFrames BeginTime="00:00:00" Storyboard.TargetName="rectangle" Storyboard.TargetProperty="(Shape.Fill).(GradientBrush.GradientStops)[0].(GradientStop.Color)">
    
43.                                     <SplineColorKeyFrame KeyTime="00:00:00" Value="#FF091A2F"/>
    
44.                                     <SplineColorKeyFrame KeyTime="00:00:00.1300000" Value="#FF0C4F39"/>
    
45.                                 </ColorAnimationUsingKeyFrames>
    
46.                             </Storyboard>
    
47.                             <Storyboard x:Key="OutOfHere"/>
    
48.                             <Storyboard x:Key="Storyboard2">
    
49.                                 <ColorAnimationUsingKeyFrames BeginTime="00:00:00" Storyboard.TargetProperty="(Shape.Fill).(GradientBrush.GradientStops)[1].(GradientStop.Color)" Storyboard.TargetName="rectangle">
    
50.                                     <SplineColorKeyFrame KeyTime="00:00:00" Value="#FF5DC6A3"/>
    
51.                                     <SplineColorKeyFrame KeyTime="00:00:00.2560000" Value="#FF5D8DC6"/>
    
52.                                 </ColorAnimationUsingKeyFrames>
    
53.                                 <ColorAnimationUsingKeyFrames BeginTime="00:00:00" Storyboard.TargetProperty="(Shape.Fill).(GradientBrush.GradientStops)[0].(GradientStop.Color)" Storyboard.TargetName="rectangle">
    
54.                                     <SplineColorKeyFrame KeyTime="00:00:00" Value="#FF0C4F39"/>
    
55.                                     <SplineColorKeyFrame KeyTime="00:00:00.2560000" Value="#FF091A2F"/>
    
56.                                 </ColorAnimationUsingKeyFrames>
    
57.                             </Storyboard>
    
58.                         </ControlTemplate.Resources>
    
59.                         <ControlTemplate.Triggers>
    
60.                             <Trigger Property="IsFocused" Value="True"/>
    
61.                             <Trigger Property="IsDefaulted" Value="True"/>
    
62.                             <Trigger Property="IsMouseOver" Value="True">
    
63.                                 <Trigger.ExitActions>
    
64.                                     <BeginStoryboard Storyboard="{StaticResource Storyboard2}" x:Name="OutOfHere_BeginStoryboard"/>
    
65.                                 </Trigger.ExitActions>
    
66.                                 <Trigger.EnterActions>
    
67.                                     <BeginStoryboard Storyboard="{StaticResource Storyboard1}"/>
    
68.                                 </Trigger.EnterActions>
    
69.                             </Trigger>
    
70.                             <Trigger Property="IsPressed" Value="True"/>
    
71.                             <Trigger Property="IsEnabled" Value="False"/>
    
72.                         </ControlTemplate.Triggers>
    
73.                     </ControlTemplate>
    
74.                 </Setter.Value>
    
75.             </Setter>
    
76.         </Style>
    
77.     </Window.Resources>
    
78.     <Grid>
    
79.         <Button Style="{DynamicResource ButtonBlue}"  Name="btnClose" Width="50" Height="26" Foreground="White">Close</Button>
    
80.     </Grid>
    
81. </Window>
    

复制代码

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

2. 
   
3. Imports Autodesk.AutoCAD.Runtime
   
4. Imports System.Windows.Forms
   
5. Imports System.Windows.Forms.Integration
   
6. Public Class Class1
   
7.     Public ps As Autodesk.AutoCAD.Windows.PaletteSet
   
8.     Private eh As ElementHost
   
9.     Private ctrlXaml As XamlCtrl
   
10.     <CommandMethod("xamlPS")> Public Sub xamlPS()
    
11.         If (ps = Nothing) Then
    
12.             ps = New Autodesk.AutoCAD.Windows.PaletteSet("Pallet Set Example", New Guid("48CFD470-D15A-434b-BC94-6ADAF073025E"))
    
13.             eh = New ElementHost()
    
14.             eh.Dock = DockStyle.Fill
    
15.             ps.Add("Pallet Set Example", eh)
    
16.             ctrlXaml = New XamlCtrl()
    
17.             ctrlXaml.InitializeComponent()
    
18.             eh.Child = ctrlXaml
    
19.         End If
    
20.         ps.Visible = True
    
21.     End Sub
    
22.     <CommandMethod("xamlForm")> Public Sub xamlForm()
    
23.         Dim frmXaml As New ToDazeReality.frmXaml()
    
24.         frmXaml.ShowDialog()
    
25.         frmXaml = Nothing
    
26.     End Sub
    
27. End Class
    

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

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

qjchen

（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
那么，修改其代码如下

2. 
   
3. Imports System
   
4. Imports System.Windows
   
5. Imports System.Windows.Controls
   
6. Namespace ToDazeReality
   
7.     Public Class frmWPF
   
8.         Inherits Window
   
9.         Public Shared Sub Main()
   
10.             Dim app As Application = New Application()
    
11.             app.Run(New frmWPF())
    
12.         End Sub
    
13.         Private txtbox1 As TextBox
    
14.         Public Sub New()
    
15.             Title = "WPF acad sample"
    
16.             Width = 400.0
    
17.             Height = 80.0
    
18.             Dim stack As StackPanel = New StackPanel()
    
19.             Content = stack
    
20.             Dim grid1 As Grid = New Grid()
    
21.             grid1.Margin = New Thickness(3)
    
22.             stack.Children.Add(grid1)
    
23.             Dim rowdef As RowDefinition = New RowDefinition()
    
24.             rowdef.Height = GridLength.Auto
    
25.             grid1.RowDefinitions.Add(rowdef)
    
26.             Dim lbl As Label = New Label()
    
27.             lbl.Margin = New Thickness(5)
    
28.             lbl.Content = "Enter something: "
    
29.             lbl.VerticalContentAlignment = VerticalAlignment.Center
    
30.             lbl.HorizontalAlignment = HorizontalAlignment.Left
    
31.             lbl.Width = 150.0
    
32.             grid1.Children.Add(lbl)
    
33.             txtbox1 = New TextBox()
    
34.             txtbox1.Margin = New Thickness(5)
    
35.             txtbox1.Width = 150.0
    
36.             txtbox1.VerticalContentAlignment = Windows.VerticalAlignment.Center
    
37.             txtbox1.HorizontalAlignment = HorizontalAlignment.Center
    
38.             txtbox1.Name = "TextBox1"
    
39.             grid1.Children.Add(txtbox1)
    
40.             Dim btn As Button = New Button()
    
41.             btn.Margin = New Thickness(5)
    
42.             btn.Content = "OK"
    
43.             btn.HorizontalAlignment = HorizontalAlignment.Right
    
44.             btn.Width = 75.0
    
45.             btn.IsDefault = True
    
46.             AddHandler btn.Click, New RoutedEventHandler(AddressOf OK_ButtonClick)
    
47.             grid1.Children.Add(btn)
    
48.         End Sub
    
49.         Private Sub OK_ButtonClick(ByVal sender As Object, ByVal args As RoutedEventArgs)
    
50.             MsgBox(txtbox1.Text)
    
51.             Close()
    
52.         End Sub
    
53.     End Class
    
54. End Namespace
    

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

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

2. 
   
3. Imports Autodesk.AutoCAD.Runtime
   
4. Imports System.Windows.Forms
   
5. Imports System.Windows.Forms.Integration
   
6. Public Class Class1
   
7.     Public ps As Autodesk.AutoCAD.Windows.PaletteSet
   
8.     Private eh As ElementHost
   
9.     Private ctrlXaml As XamlCtrl
   
10.     <CommandMethod("xamlPS")> Public Sub xamlPS()
    
11.         If (ps = Nothing) Then
    
12.             ps = New Autodesk.AutoCAD.Windows.PaletteSet("Pallet Set Example", New Guid("48CFD470-D15A-434b-BC94-6ADAF073025E"))
    
13.             eh = New ElementHost()
    
14.             eh.Dock = DockStyle.Fill
    
15.             ps.Add("Pallet Set Example", eh)
    
16.             ctrlXaml = New XamlCtrl()
    
17.             ctrlXaml.InitializeComponent()
    
18.             eh.Child = ctrlXaml
    
19.         End If
    
20.         ps.Visible = True
    
21.     End Sub
    
22.     <CommandMethod("xamlForm")> Public Sub xamlForm()
    
23.         Dim frmXaml As New ToDazeReality.frmXaml()
    
24.         frmXaml.ShowDialog()
    
25.         frmXaml = Nothing
    
26.     End Sub
    
27.     <CommandMethod("WPFfrm")> Public Shared Sub WPFfrm()
    
28.         Dim wpffrm As New ToDazeReality.frmWPF
    
29.         wpffrm.ShowDialog()
    
30.         wpffrm = Nothing
    
31.     End Sub
    
32. End Class
    

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

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


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

wylong

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

chpmould

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

azbd

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

lxf0802

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

cdinten

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

king20061335

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

cheng5276

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

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