原创 調用系統對話框
Dim Message As String = "Would you like to continue?" Dim buttons As Me
2020-06-14 10:11:17
1
原创 當文件名有重複時自動加一
Dim i As Integer = 0 INCIDX: Dim ZwcadAppsName As String = "ZW_GE_DATA" & "_" & CStr(i)
2020-06-14 10:11:17
原创 VB.NET屏幕截圖方法2則
【搬運】VB.NET屏幕截圖方法2則 ' 根據VB6代碼改的，經過本人優化。請先導入Drawing類庫。Declare Function SelectObject Lib "gdi32" (ByVal hdc As I
2020-06-14 10:11:17
206
原创 獲取當前圖紙的名稱（獲取圖紙名）和路徑（path）
方法一： Application.DocumentManager.MdiActiveDocument.Name 方法二： ZwApp.Application.GetSystemVariable("DWGNAME") 獲取到的是含有擴展
2020-06-14 10:11:07
原创 判斷一個外部參照是overlay還是attachment。
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft
2020-02-26 02:29:41
4
原创 獲取當前圖紙的路徑
HostApplicationServices hs = HostApplicationServices.Current; string pat
2020-02-26 02:29:41
原创 將一個塊添加到另一個塊中
Imports ZwSoft.ZwCAD.Runtime Imports ZwSoft.ZwCAD.ApplicationServices Impo
2020-02-26 02:29:41
原创 按Esc鍵退出對話框
Private Sub UserForm1_KeyUp(ByVal sender As System.Object, ByVal e As
2020-02-26 02:29:41
原创 判斷一條直線到另一條直線所構成的角度是逆時針還是順時針方向。
double tempFAng = new Line(intersectPt, fNewPts).
2020-02-26 02:29:41
2
原创 獲取當前圖紙的名稱
System.IO.Path.GetFileNameWithoutExtension(ZwSOFT.ZwCAD.ApplicationServic
2020-02-26 02:29:41
原创 VB.Net檢查進程是否存在及關閉進程
Dim i As Integer Dim proc As Process() '判斷excel進程是否存在 If System.Diagnostics.Process.GetProcessesByName("excel").Leng
2020-02-26 02:29:41
101
原创 .net截屏代碼
Imports System.Runtime.InteropServices Imports System.Drawing Imports System.Drawing.Imaging Namespace ScreenShotDemo
2020-02-26 02:29:41
4
原创 選中區域內指定類型的對象（SelectCrossingPolygon）
Imports ZwSoft.ZwCAD.ApplicationServices Imports ZwSoft.ZwCAD.EditorInput
2020-02-26 02:29:41
5
原创 創建弧形多段線（polyline）
Imports ZwSoft.ZwCAD.Runtime Imports ZwSoft.ZwCAD.ApplicationServices Impo
2020-02-26 02:29:41
4
原创 設置光柵圖（raster image）的比例（scale）及手動設置高寬。
' Define the width and height of the image Dim width As
2020-02-26 02:29:41