静喧-优快云博客

原创 SQL截取非固定长度（有关键字符）的字符串

比如 ERPCustomInfo 表中某条记录的QuYu字段中有如下字符：广东省珠海市高栏港区 Select Substring(QuYu,0,CHARINDEX('省',QuYu)+1) as 省名 FROM ERPCustomInfo --获取到广东省 Select Substring(QuYu,CHARINDEX('省',QuYu)+1,CHAR

2016-09-27 14:24:34 3635

原创孔表

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.GeometryPublic Class FilterT

2015-07-15 16:06:22 964

原创通过非托管的acedCmd方法向平台发送命令

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.DatabaseServicesImports System.Runtime.InteropServicesImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.GeometryNamespace test

2015-06-18 11:28:11 1818

原创通过过滤器选择对象

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.GeometryImports ZWCADImports ZwSoft.ZwCAD.EditorInputP

2015-06-11 11:53:02 940

原创合并表格（Table）单元格

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputPublic Class Class1 _ Public Sub MergeCe

2015-06-09 15:09:40 883

原创加载lisp文件到每一个打开的图纸中

ZWCAD：把加载的语句写到 C:\Program Files (x86)\ZWCAD+ 2015\Support\en-US 下面的 ZWCAD2015doc.lsp 里就可以在每个文档自动加载了ACAD：ACADLSPASDOC控制是将 acad.lsp 文件加载到每个图形中，还是仅加载到任务中打开的第一个图形中。0仅

2015-05-28 09:57:07 3008

原创 .net调用平台命令

using System;using System.Collections;using System.Collections.Generic;using System.Data;using System.Diagnostics;using ZWCAD;using ZwSoft.ZwCAD.EditorInput;using ZwSoft.ZwCAD.Runtime;

2015-04-15 11:23:27 965

原创在dll文件中调用VBA的命令

可以自动加载vba代码文件，然后执行该文件中的宏后卸载该文件。Imports ZWCADImports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesPublic Class ZwApps _ Public Sub callVBA() Dim f

2015-04-02 14:47:17 2889

原创获取默认打印机名称

(setq def_printer_name (vla-get-defaultoutputdevice (vla-get-output (vla-Get-Preferences (vlax-get-acad-object)))))

2015-04-02 09:11:57 3533

转载 WPF ContextMenus 将两个contextmenus的内容拼接成一个

Merge ContextMenusIf you want to fill a menu with items coming from multiple sources, you can use the CompositeCollection to merge multiple collection into one. xmlns="http://schemas.microsof

2015-01-08 16:03:35 952

原创 WPF TreeView 展开和闭合所选择的节点

从右键菜单中选择展开或闭合该节点的选项时，treeview.SelectedItem是所绑定的数据源的元素。所以需要使右键点击弹出菜单的同时该节点为选中状态，并获取该节点为全局变量selectedTreeViewItem，在点击右键菜单选项时，设置selectedTreeViewItem 的IsExpanded 属性即可展开或闭合该节点。 '右键点击时选中的节点 D

2015-01-06 09:15:38 2574

转载通过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 1034

原创 WPF TreeView 展开和闭合所有节点

tvProperties为TreeView的名称。 Private Sub ExpandAll_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) For Each item As Object In tvProperties.Items

2014-12-26 12:34:24 5170

原创写块克隆--WblockCloneObjects

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.GeometryImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.ApplicationServicesPublic Class Command

2014-08-20 15:50:45 3888

转载 XML读、查、删

上面我们学习了用XmlTextWriter对象创建一个XML文档，在本节里，将继续介绍如何在已有XML文档中查询和插入节点。下面示例在book.xml根节点下加入新的节点：XmlDocument xmlDoc = new XmlDocument();xmlDoc.Load("book.xml");//查找XmlNode root = xmlDoc.SelectSingleNode(

2014-08-05 14:38:37 459

转载 C#读，写，删除注册表

1.首先,必须导入空间"Microsoft.Win32"[csharp] view plaincopyusing Microsoft.Win32; 2.利用Registry类,确定注册表的分支(ClassesRoot,CurrentUser,Users,LocalMachine,CurrentConfig)

2014-08-05 11:59:16 2044

原创读写注册表项和注册表值

Imports Microsoft.Win32Imports ZwSoft.ZwCAD.RuntimePublic Class Commands _ Public Shared Sub test() Dim key As RegistryKey = Registry.CurrentUser Dim software As R

2014-08-05 11:10:07 1129

转载两种方法在.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 6020

原创将屏幕缩放到所选择的对象

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.GeometryImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.ApplicationServicesPublic Class Command

2014-07-14 15:27:26 632

原创获取当前的空间（模型空间or布局空间）

blockTableRecord = (BlockTableRecord)transaction.GetObject( HostApplicationServices.WorkingDatabase.CurrentSpaceId, OpenMode.ForWrite);

2014-07-07 14:50:42 1132

原创判断图纸是否已经保存过

DBMOD=0时表示图纸已没保存，没有更新。否则biaoshi

2014-07-02 11:59:41 841

原创将一个块添加到另一个块中

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputPublic Class ZwcadApp _ Public Sub test(

2014-06-17 17:09:10 828

原创获取当前图纸的路径

HostApplicationServices hs = HostApplicationServices.Current;string path = hs.FindFile(srcDoc.Name, srcDB, FindFileHint.Default);

2014-04-16 09:32:41 916

原创历遍polyline2d的每个端点并获取凸度

Polyline2d plineEnt = ent as Polyline2d; IEnumerator vertices = plineEnt.GetEnumerator(); //List bulges = new List(); while (vertices.MoveNext())

2014-04-15 09:31:14 4477

原创判断一条直线到另一条直线所构成的角度是逆时针还是顺时针方向。

double tempFAng = new Line(intersectPt, fNewPts).Angle ; double tempSAng = new Line(intersectPt, sNewPts).Angle; if (tempFAng Math.PI) { bu

2014-04-14 10:27:34 2777

原创创建弧形多段线（polyline）

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.GeometryImports ZwSoft.ZwCAD.EditorInputPublic Class ZwApps

2014-03-28 10:12:12 3961

原创获取（搜索）图纸名称的路径

Database sourceDb = new Database(false, true); string fileName = "sss1.dwg"; HostApplicationServices hs = HostApplicationServices.Current; try {

2014-03-18 14:57:50 916

原创插入一张图纸作为块参照

Private Function DefineDWGBlock(ByVal BlockPath As String, ByVal BlockName As String) Dim ZwDoc As Document = ZwApp.Application.DocumentManager.MdiActiveDocument Dim ZwDb As Database

2014-03-18 14:51:43 780

原创获取当前图纸的名称（获取图纸名）和路径（path）

方法一：Application.DocumentManager.MdiActiveDocument.Name方法二：ZwApp.Application.GetSystemVariable("DWGNAME")获取到的是含有扩展名的图纸名。可以使用System.IO.Path.GetFileNameWithoutExtension(）进行去除扩展名。

2014-03-18 10:46:10 1958

原创设置光栅图（raster image）的比例（scale）及手动设置高宽。

' Define the width and height of the image Dim width As Vector3d Dim height As Vector3d ' Check to see if the measurement is set to English (Impe

2014-03-04 10:34:28 2062

原创判断一个外部参照是overlay还是attachment。

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputPublic Class ZwcadApp _ Public Sub block

2014-02-19 15:27:22 1726

原创获取当前图纸的名称

System.IO.Path.GetFileNameWithoutExtension(ZwSOFT.ZwCAD.ApplicationServices.Application.GetSystemVariable("DWGNAME"))

2014-02-18 16:22:31 935

原创按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 2349

原创遍历所有布局中的所有对象

Imports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesPublic Class test Public Sub FindEntInEachLayout() Dim ZwDoc As Document = Application.Docume

2014-02-14 15:13:17 1228

原创选中区域内指定类型的对象（SelectCrossingPolygon）

Imports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.GeometryNamespace TraceBound

2014-02-12 14:18:43 3495

原创当文件名有重复时自动加一

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 5267 1

转载 .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 1566

转载 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 10847

转载 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 5412

原创调用系统对话框

Dim Message As String = "Would you like to continue?" Dim buttons As MessageBoxButtons = MessageBoxButtons.OKCancel System.Windows.MessageBox.Show(Message, "ZWCAD+", buttons)

2013-12-13 09:37:02 650

VC2008的破解方法：使用2008的朋友我就不多说了，直接拷贝到你选择的那个安装目录去，例如 C:\Program Files\Visual Assist\ ，直接运行补丁程序或者覆盖VA_X.dll 即可 VC2010的破解方法使用2010的朋友，因为2010的Visual Assist X是使用Extension的方式安装的，所以你得到这个路径去破解，就是把破解补丁拷贝到这个路径下，直接运行补丁程序或者覆盖VA_X.dll 即可： Windows7路径 C:/Users/用户名/AppData/Local/Microsoft/VisualStudio/10.0/Extensions/Whole Tomato Software/Visual Assist X/10.7.1918.0 XP的路径: C:/Documents and Settings/用户名/Local Settings/Application Data/Microsoft/VisualStudio /10.0/Extensions/Whole Tomato Software/Visual Assist X/10.7.1918.0

2013-03-13

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

visual assist x crack 破解 补丁

Autodesk官方最新的.NET教程(C_版)

AUTOLISP&DCL;基础

DCL对话框自学教程

ZWCAD+中作任意个同心圆样例程序

ZWCAD中作任意个同心圆样例程序

空空如也

visual assist x crack 破解补丁