保存当前图纸(SaveAs)
来源:互联网 发布:知乎搞笑神回复 编辑:程序博客网 时间:2024/04/28 00:10
Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Geometry
Public Class TextTools_ExplodeText
<CommandMethod("SaveAsDWG")> _
Public Sub SaveAsDWG()
Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZcDB As Database = ZcDoc.Database
Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction()
Dim ZcBLT As BlockTable = ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead)
Dim ZcBLTR As BlockTableRecord = ZcTran.GetObject(ZcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
Dim lineEnt As Line = New Line(New Point3d(0, 0, 0), New Point3d(10, 10, 0))
ZcBLTR.AppendEntity(lineEnt)
ZcTran.AddNewlyCreatedDBObject(lineEnt, True)
ZcTran.Commit()
End Using
ZcDoc.SendStringToExecute("_.ZOOM _E ", True, False, False)
ZcDB.SaveAs("E:/123test.dwg", ZcDB.SecurityParameters)
End Sub
End Class
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Geometry
Public Class TextTools_ExplodeText
<CommandMethod("SaveAsDWG")> _
Public Sub SaveAsDWG()
Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZcDB As Database = ZcDoc.Database
Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction()
Dim ZcBLT As BlockTable = ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead)
Dim ZcBLTR As BlockTableRecord = ZcTran.GetObject(ZcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
Dim lineEnt As Line = New Line(New Point3d(0, 0, 0), New Point3d(10, 10, 0))
ZcBLTR.AppendEntity(lineEnt)
ZcTran.AddNewlyCreatedDBObject(lineEnt, True)
ZcTran.Commit()
End Using
ZcDoc.SendStringToExecute("_.ZOOM _E ", True, False, False)
ZcDB.SaveAs("E:/123test.dwg", ZcDB.SecurityParameters)
End Sub
End Class
- 保存当前图纸(SaveAs)
- saveas同步保存图片缩略图
- 获取当前图纸的名称(获取图纸名)和路径(path)
- C# 保存excel的SaveAs方法详述
- 获取当前图纸的名称
- 获取当前图纸的路径
- SaveAs参数详解(office2003)
- 判断图纸是否已经保存过
- QT操作Excel调用SaveAs保存成2003格式
- matlab中的两种保存图像的方法:saveas imwrite.
- matlab 之批量保存图像,再论 imwrite print saveas
- SaveAs : PowerPoint 无法将 ^0 保存到 ^1
- 七牛-缩略图saveas(Java)
- 打开一张已存在的图纸并设置为当前
- smp8635保存当前的屏幕(截屏)
- C# MVC上传文件SaveAs在网站当前目录会清空Session
- VC操作Excel时SaveAs另存为时选择保存时警告处理
- 利用IE"错觉"实现document.execCommand("SaveAs","","") 默认保存为GB2312 格式
- ServletContextListener使用详解
- Linux 线程编程
- 回文数
- C语言实现希尔排序
- IOS下利用ziparchive解压缩zip文件
- 保存当前图纸(SaveAs)
- 立方体成像(2004年ACM国际大学生程序设计决赛第3题)
- 串口中怎样接收一个完整数据包的解析
- 深度学习(Deep Learning)的基本思想和方法,入门介绍
- 删除表中多列或全部列重复的解决方法
- uva 147 Dollars
- C++中,a++、a+=1、a=a+1、++a 有什么区别?以及效率问题
- XSD 复合类型指示器
- Optimize file system operations