jingxuan84的专栏

Dim Message As String = "Invalid value! Please input again."Dim Buttons As MessageBoxButtons = MessageBoxButtons.OKSystem.Windows.MessageBox.Show(Message, "ZWCAD", Buttons)

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

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

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

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

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

' 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

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

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

Private Sub Browse_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Browse.Click            Dim FBDlg As FolderBrowserDialog = New FolderBrowserDialog()     

该样例程序是通过执行“AddEvent”命后，进行注册ObjectErased事件。在注册了该事件之后，每当删除对象时，就是激活该事件进行调用自定义的ObjectErasedEvent函数。但是如果运行RemoveEvent命令后，将会注销该命令。在注册了该命令后，即使是删除对象，也不会激活事件的。即也不会调用自定义函数。Imports ZwSoft.ZwCAD.Runtime

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

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.ApplicationServicesPublic Class ZwApps    _    Public Sub OpenFile()        Dim process As Pro

Imports ZWCADImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.RuntimeImports System.IOImports ZwSoft.ZwCAD.EditorInputPublic Class PdfToImage    Implements IExtensionApplic

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.WindowsImports ZwSoft.ZwCAD.ApplicationServicesPublic Class ZwApps    _    Public Sub CreateMenu()        Dim Cmenu As New ContextMenu

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.GeometryPublic Class TextTools_ExplodeText    _    Public

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZWCADPublic Class Toolbar    Implements IExtensionApplication    Public Sub Initialize() Implements IExten

Private Function intFun(ByVal Str As String) As Boolean        Dim flag As Boolean = True        For i As Integer = 0 To Str.Length - 1            Dim SubStr As String = Str.Substring(i, 1)   

Dim i As Integer                        For i = SavedPath.Length - 1 To 0 Step -1                            Dim SubStr As String = SavedPath.Substring(i, 1)                            If SubStr

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

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

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

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

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       

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

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;

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

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

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

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

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

Public ReadOnly Property ThisDrawing() As ZcadDocument        Get            Return ZwSoft.ZwCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.ZcadDocument()        End Get

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

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

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

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

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

Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.GeometryImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.GraphicsSystemImports ZwSoft.ZwCAD.

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

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