.NET样例程序
静喧
这个作者很懒,什么都没留下…
展开
-
WPF TreeView 展开和闭合所选择的节点
从右键菜单中选择展开或闭合该节点的选项时,treeview.SelectedItem是所绑定的数据源的元素。所以需要使右键点击弹出菜单的同时该节点为选中状态,并获取该节点为全局变量selectedTreeViewItem,在点击右键菜单选项时,设置selectedTreeViewItem 的IsExpanded 属性即可展开或闭合该节点。 '右键点击时选中的节点 D原创 2015-01-06 09:15:38 · 2526 阅读 · 0 评论 -
判断点是否在多边形内
Private Function PointInFences(pnt1 As point, fencePnts As point()) As BooleanDim j As Integer = 0, cnt As Integer = 0For i As Integer = 0 To fencePnts.Length - 1j = If((i = fencePnts.Length - 1转载 2013-09-26 16:23:10 · 623 阅读 · 0 评论 -
如何获取正在运行的DLL文件的路径
通过System.Reflection.Assembly.GetExecutingAssembly().Location可以获取正在运行的DLL文件所在的位置和文件名。原创 2013-09-11 17:36:46 · 1745 阅读 · 0 评论 -
已知一个点和角度及长度可求出另一个点
Public Function PolarPoints(ByVal pPt As Point2d, ByVal dAng As Double, ByVal dDist As Double) Return New Point2d(pPt.X + dDist * Math.Cos(dAng), pPt.Y + dDist * Math.Sin(dAng)) End Func原创 2013-08-30 15:47:16 · 3914 阅读 · 1 评论 -
指定两点可算出最大点和最小点
如指定pt1和pt2两点,可得出最小点rectMin和最大点rectMax。Dim rectMin As New Point2d(Math.Min(pt1.X, pt2.X), Math.Min(pt1.Y, pt2.Y))Dim rectMax As New Point2d(Math.Max(pt1.X, pt2.X), Math.Max(pt1.Y, pt2.Y))原创 2013-05-29 09:31:51 · 604 阅读 · 0 评论 -
获取一点绕另一点旋转一定角度后的点坐标
点Org_minpoint(point3d)绕点acEntSS.Position(point3d)旋转角度RotationAng(double)后的点坐标为R_Org_minpoint 。Dim mt As Matrix3d = Matrix3d.Rotation(RotationAng, Vector3d.ZAxis, acEntSS.Position)Dim R_Org_m原创 2013-05-28 17:36:57 · 5567 阅读 · 0 评论 -
在WPF中自定义滚动条
STYLING A SCROLLVIEWER/SCROLLBAR IN WPFA while back I was looking at the Infragistics WPf showcase,Tangerine and I was quite jealous about the scrollbars that they managed to use. I mean styling转载 2013-07-04 14:49:50 · 1425 阅读 · 0 评论 -
将选择集中不不是当前空间中的对象去除
'*************将选择集中不不是当前空间中的对象去除******************** Public Sub FilterLayout(ByRef ss As ZcadSelectionSet, ByRef layoutName As String) Dim max As Integer Dim objArray() As ZcadE原创 2013-07-04 10:38:53 · 717 阅读 · 0 评论 -
如何让一个函数返回多个值
private function oper(byval a as int16,byref b as int16,byref c as int16) as int16b=a+1c=a+1end function......oper(34,b,c)---------------------转载 2013-10-15 09:39:22 · 994 阅读 · 0 评论 -
WPF控件NumericUpDown-自定义微调控件
XAML代码: UserControl xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:d="http://schemas.microsoft.com/expr转载 2013-10-15 14:15:47 · 6640 阅读 · 1 评论 -
acad中无法调试对话框后面的断点代码的解决方案
将系统变量设置为0然后重启acad即可。原创 2013-12-05 13:54:22 · 730 阅读 · 0 评论 -
通过API调用文件的属性对话框
Public Structure SHELLEXECUTEINFO Public cbSize As Integer Public fMask As Integer Public hwnd As IntPtr Public lpVerb As String Public lpFile As String Public lpParameters转载 2015-01-05 10:57:17 · 1009 阅读 · 0 评论 -
两种方法在.Net中调用AutoCAD中的命令
两种方法在.Net中调用AutoCAD中的命令1.using wrapper RunCommand:using System;using System.Linq.Expressions;using System.Reflection;using Autodesk.AutoCAD.ApplicationServices;using Autodesk.Aut转载 2014-07-14 17:26:34 · 5935 阅读 · 0 评论 -
XML读、查、删
上面我们学习了用XmlTextWriter对象创建一个XML文档,在本节里,将继续介绍如何在已有XML文档中查询和插入节点。下面示例在book.xml根节点下加入新的节点:XmlDocument xmlDoc = new XmlDocument();xmlDoc.Load("book.xml");//查找XmlNode root = xmlDoc.SelectSingleNode(转载 2014-08-05 14:38:37 · 441 阅读 · 0 评论 -
C#读,写,删除注册表
1.首先,必须导入空间"Microsoft.Win32"[csharp] view plaincopyusing Microsoft.Win32; 2.利用Registry类,确定注册表的分支(ClassesRoot,CurrentUser,Users,LocalMachine,CurrentConfig)转载 2014-08-05 11:59:16 · 1997 阅读 · 0 评论 -
按Esc键退出对话框
Private Sub UserForm1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles Me.KeyUp If e.Key = Key.Escape Then 'Me.Close() m_Ow原创 2014-02-17 17:18:54 · 2327 阅读 · 0 评论 -
VB.Net检查进程是否存在及关闭进程
Dim i As IntegerDim proc As Process() '判断excel进程是否存在If System.Diagnostics.Process.GetProcessesByName("excel").Length > 0 Then proc = Process.GetProcessesByName("excel") '得到名为excel进程个转载 2013-12-25 16:15:52 · 10722 阅读 · 0 评论 -
当文件名有重复时自动加一
Dim i As Integer = 0INCIDX: Dim ZwcadAppsName As String = "ZW_GE_DATA" & "_" & CStr(i) If regTable.Has(ZwcadAppsName) Then原创 2014-01-06 11:50:55 · 5205 阅读 · 1 评论 -
VB.NET屏幕截图方法2则
【搬运】VB.NET屏幕截图方法2则' 根据VB6代码改的,经过本人优化。请先导入Drawing类库。Declare Function SelectObject Lib "gdi32" (ByVal hdc As Integer, ByVal hObject As Integer) As IntegerDeclare Function BitBlt Lib转载 2013-12-18 16:54:47 · 5009 阅读 · 0 评论 -
.net截屏代码
Imports System.Runtime.InteropServicesImports System.DrawingImports System.Drawing.ImagingNamespace ScreenShotDemo ''' ''' Provides functions to capture the entire screen, or a partic转载 2013-12-30 16:31:26 · 1543 阅读 · 0 评论 -
用IsNumeric判断表达是的运算结果是否为数字。
用IsNumeric判断表达是的运算结果是否为数字。原创 2013-06-24 15:33:47 · 912 阅读 · 0 评论 -
WPF中使用文件浏览对话框
WPF本身并没有为我们提供文件浏览的控件, 也不能直接使用Forms中的控件,而文件浏览对话框又是我们最常用的控件之一. 下面是我实现的方式使用Forms中的OpenFileDialog控件WPF中是不能直接使用Forms中的控件的,否则会提示找不到Forms名字控件. 如果你仍然要用, 答案便是添加.net 引用reference之后就可以像下面一样正常使用F转载 2013-06-08 12:01:32 · 630 阅读 · 0 评论 -
在.net中如何检查输入的名称是否为有效字符串?
How to check if a given string is a valid name for an item in a symbol table?By Marat MirgaleevIssueI want to check if a string provided by the user is suitable for a block name or for a lay转载 2013-04-16 10:47:04 · 810 阅读 · 0 评论 -
.net调用com接口打开已存在的图纸并给图纸中的块添加属性。
Imports ZWCADPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myDoc As ZcadDocument D原创 2013-04-16 10:55:34 · 1274 阅读 · 0 评论 -
.net调用com接口启动zwcad并作对象后进行打印。
Imports ZWCADPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myDoc As ZWCAD.ZcadDocument D原创 2013-04-16 10:10:54 · 1579 阅读 · 0 评论 -
用vb.net获取wpf窗口中的resx文件的值
Dim rm As System.Resources.ResourceManager = New System.Resources.ResourceManager("your class name", Reflection.Assembly.GetExecutingAssembly())rm.GetString("resource value name")原创 2013-03-28 11:43:48 · 1116 阅读 · 0 评论 -
将ObjectIdCollection转换为Autodesk.AutoCAD.EditorInput.SelectionSet
... ... acObjIdColl.Remove(id_objectid)) Dim bset As List(Of ObjectId) = New List(Of ObjectId) For Each ids As ObjectId In acObjIdColl bset.Add(ids) Next ss = Selectio原创 2013-03-15 17:29:34 · 2234 阅读 · 0 评论 -
WPF绑定示例(C#)
WpfApplication1.xaml文件代码: xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Title="MainWindow" Hei转载 2013-03-04 11:12:40 · 426 阅读 · 0 评论 -
如何实现INotifyPropertyChanged接口(C#)
下面是实现INotifyPropertyChanged接口的样例程序: public class Student : INotifyPropertyChanged { public event PropertyChangedEventHandler PropertyChanged; private string name;原创 2013-03-04 10:56:50 · 2761 阅读 · 0 评论 -
PlotToDevice样例程序
Imports ZWCAD Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim objConfig As ZcadPlotConfiguration Dim原创 2013-04-16 11:38:29 · 2431 阅读 · 0 评论 -
求两点间的距离和角度
已知两点pt1和pt2.Dim pDist As Double = Math.Sqrt((pt1.X - pt2.X) * (pt1.X - pt2.X) + (pt1.Y - pt2.Y) * (pt1.Y - pt2.Y))Dim pAng as Double = Math.Asin((pt1.Y - pt2.Y) / dDist)原创 2013-04-25 15:58:11 · 951 阅读 · 0 评论 -
cad颜色索引号与System.Drawing.Color的对应关系
// standard autocad colours public static System.Drawing.Color[] MyAcadColorMs = { System.Drawing.Color.FromArgb(255, 255, 255, 255),//----- 0 - ByBlock - Whit转载 2013-04-25 16:13:46 · 6585 阅读 · 0 评论 -
从objectid(集合)或entity(集合)中删除对象
Imports AcDb = Autodesk.AutoCAD.DatabaseServicesFriend Sub EraseEntities(ByVal entitiy As AcDb.Entity)Using db As AcDb.Database =AcDb.HostApplicationServices.WorkingDatabase()Using tr As AcD转载 2013-06-04 10:37:04 · 933 阅读 · 0 评论 -
文件对话框获取文件的路径和文件名称
FileName是包含路径和文件名的字符串SafeFileName是只包含文件名的字符串Safe file name will work for framework 3.5 and 4.0, if you are using a framework below that try the following function public void GetfileNameOn转载 2013-06-08 14:18:54 · 1251 阅读 · 1 评论 -
将当前坐标系设置为世界坐标系WCS
Database db = HostApplicationServices.WorkingDatabase;Document doc = Application.DocumentManager.GetDocument(db);doc.Editor.CurrentUserCoordinateSystem = Matrix3d.Identity;转载 2013-05-28 15:53:26 · 4282 阅读 · 0 评论 -
UCS和WCS之间的坐标互换
''' 从UCS转换到WCS。 ''' 要转换的点. Public Shared Function UcsToWcs(ByVal Pt As Point3d) As Point3d Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor Dim mt As转载 2013-05-28 15:44:46 · 7497 阅读 · 1 评论 -
添加ucs(用户坐标系)并设为当前
using System ;using System.Runtime.InteropServices;using Autodesk.AutoCAD.Interop;//添加Autocad(即com)引用using Autodesk.AutoCAD.Interop.Common;//添加axdblib(即dbx)引用using Autodesk.AutoCAD.Runtime;u转载 2013-05-15 15:20:09 · 1901 阅读 · 0 评论 -
移动对象样例程序
Public Sub MoveEnt(Entity ent, Point3d basePt, Point3d targetPt)Dim vec As Vector3d = basePt.GetVectorTo(targetPt) Dim mt As Matrix3d = Matrix3d.Displacement(vec)ent.TransformBy(mt)Ent Sub原创 2013-04-26 16:57:30 · 511 阅读 · 0 评论 -
获取cad注册表路径
Dim regPath As String = HostApplicationServices.Current.RegistryProductRootKey原创 2013-04-25 16:20:01 · 3822 阅读 · 0 评论 -
如何实现INotifyCollectionChanged接口(C#)
public event NotifyCollectionChangedEventHandler CollectionChanged; protected virtual void OnCollectionChanged(NotifyCollectionChangedEventArgs e) { NotifyCollectionChan转载 2013-03-04 15:56:41 · 6938 阅读 · 0 评论