tiancao1001 于 2024-05-20 07:48 PM 发表评论: |
隐藏日志的评论 |
查看所评论的日志:AutoCAD .net 打印时候,窗口出现偏移,甚至打印出空白来? |
tiancao1001 于 2024-03-31 07:29 PM 发表评论: |
#Const AutoCADorGrxCAD = "AutoCAD"
#If AutoCADorGrxCAD = "AutoCAD" Then Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.GraphicsInterface Imports Autodesk.AutoCAD.PlottingServices Imports Autodesk.AutoCAD.Windows Imports Autodesk.AutoCAD.Windows.Palette Imports Autodesk.AutoCAD.Colors #ElseIf AutoCADorGrxCAD = "GrxCAD" Then Imports GrxCAD.EditorInput Imports GrxCAD.ApplicationServices Imports GrxCAD.DatabaseServices Imports GrxCAD.Geometry Imports GrxCAD.Runtime Imports GrxCAD.Windows Imports GrxCAD.Internal Imports GrxCAD.Windows.Palette #ElseIf AutoCADorGrxCAD = "ZwCAD" Then Imports ZwSoft.ZwCAD.EditorInput Imports ZwSoft.ZwCAD.ApplicationServices Imports ZwSoft.ZwCAD.DatabaseServices Imports ZwSoft.ZwCAD.Geometry Imports ZwSoft.ZwCAD.Runtime Imports ZwSoft.ZwCAD.Windows Imports ZwSoft.ZwCAD.GraphicsInterface #End If
#If AutoCADorGrxCAD = "AutoCAD" Then Imports AcCAD = Autodesk.AutoCAD Imports AcWin = Autodesk.AutoCAD.Windows Imports AcDoc = Autodesk.AutoCAD.ApplicationServices.Document Imports AcApp = Autodesk.AutoCAD.ApplicationServices.Application Imports AcDbs = Autodesk.AutoCAD.DatabaseServices #ElseIf AutoCADorGrxCAD = "GrxCAD" Then Imports AcCAD = GrxCAD Imports AcWin = GrxCAD.Windows Imports AcDoc = GrxCAD.ApplicationServices.Document Imports AcApp = GrxCAD.ApplicationServices.Application Imports AcDBs = GrxCAD.DatabaseServices #ElseIf AutoCADorGrxCAD = "ZwCAD" Then Imports AcCAD = ZwSoft.ZwCAD Imports AcWin = ZwSoft.ZwCAD.Windows Imports AcDoc = ZwSoft.ZwCAD.ApplicationServices.Document Imports AcApp = ZwSoft.ZwCAD.ApplicationServices.Application Imports AcDBs = ZwSoft.ZwCAD.DatabaseServices #End If Imports System <Assembly: ExtensionApplication(GetType(TcOpenDwg.TcOpenDwg))> Namespace TcOpenDwg Public Class TcOpenDwg Implements IExtensionApplication Dim JiShi As New System.Diagnostics.Stopwatch Sub Initialize() Implements IExtensionApplication.Initialize AddHandler Application.DocumentManager.DocumentCreateStarted, AddressOf Application_DocumentCreateStarted End Sub Sub Terminate() Implements IExtensionApplication.Terminate End Sub Private Sub Application_DocumentCreateStarted(ByVal sender As Object, ByVal e As DocumentCollectionEventArgs) AddHandler e.Document.BeginDwgOpen, AddressOf Document_BeginDwgOpen AddHandler e.Document.EndDwgOpen, AddressOf Document_EndDwgOpen End Sub Public Sub Document_BeginDwgOpen(ByVal senderObj As Object, ByVal docBegClsEvtArgs As DrawingOpenEventArgs) On Error Resume Next MsgBox("图纸打开,计时开始 。") JiShi.Start() If Err.Number > 0 Then MsgBox("Document_BeginDwgOpen Err:" & Err.Description) Err.Clear() End If End Sub Public Sub Document_EndDwgOpen(ByVal senderObj As Object, ByVal docBegClsEvtArgs As DrawingOpenEventArgs) On Error Resume Next JiShi.Stop() MsgBox("打开结束,耗时:" & JiShi.Elapsed.TotalMilliseconds & "毫秒") If Err.Number > 0 Then MsgBox("Document_EndDwgOpen Err:" & Err.Description) Err.Clear() End If End Sub End Class
End Namespace
|
|
查看所评论的日志:AutoCAD2025打开图纸到底有多快? |
ecjtu427 于 2023-10-16 02:37 PM 发表评论: |
你好,我想问下,属性批量修改命令没有了吗,TCATTLIST |
|
查看所评论的日志:田草CAD工具箱.Net版 下载 安装和使用说明 |
ecjtu427 于 2023-10-16 10:35 AM 发表评论: |
你好,可以发下2010和2012版本的工具箱吗?463668757qq邮箱 |
|
查看所评论的日志:田草CAD工具箱.Net版 下载 安装和使用说明 |
tiancao1001 于 2022-07-21 09:18 PM 发表评论: |
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.bycad.cn/") request.AllowAutoRedirect = True request.MaximumAutomaticRedirections = 50 request.ServicePoint.Expect100Continue = True request.CookieContainer = New CookieContainer() Dim response As System.Net.HttpWebResponse = request.GetResponse() Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) Dim sourcecode As String = sr.ReadToEnd() TextBox1.Text = sourcecode End Sub |
|
查看所评论的日志:VB 读取网页源码并分析其中的URL |
ARJL 于 2022-07-03 07:35 PM 发表评论: |
请发邮箱 181061716@qq.com 下,谢谢! |
|
查看所评论的日志:装配整体式混凝土剪力墙结构技术规程.DGJ32/TJ125-2016.pdf |
tiancao1001 于 2022-05-25 06:04 PM 发表评论: |
|
查看所评论的日志:convert WCS to UCS |
火焰设计师 于 2022-03-30 09:34 AM 发表评论: |
|
查看所评论的日志:刚性系杆长细比及承载力计算软件 |