Dim files, path, filename path = ThisDrawing.Utility.GetString(True, "输入dwg文件所在路径:") 'dwg文件路径 If path = "" Then Return files = Dir(path & "*.dwg") Dim text As AcadText Do While files <> "" '打开dwg文件 ThisDra…
是一个类库:Teigha.NET for .DWG 利用它就可以在无需安装AutoCAD软件的情况下,生成.读取DWG文件,适合那些导入导出的场合. Teigha曾用名OpenDWG .DWGdirect,支持DWG, DXF, 和BDXF 示例代码: 先创建一个.NET2.0的控制台程序,再引用TD_Mgd_3.03_9.dll[我还不会传附件,需要的朋友请给我发邮件sinceret@163.com] 使用以下代码即可生成一个DWG文件,里面画了一个圆: class Program { sta…
Sub 按模板修改Excel文件() Dim MoBanWorkBook As Workbook Set MoBanWorkBook = Application.ActiveWorkbook Dim MoBanSheet As Worksheet Set MoBanSheet = MoBanWorkBook.Worksheets(1) With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Filters.…
小写转大写: [zengs@SYS SOS]$ for cpplive in *; do mv $cpplive `echo $cpplive|tr [a-z] [A-Z]`; done 大写转小写: [zengs@SYS SOS]$ for cpplive in *; do mv $cpplive `echo $cpplive|tr [A-Z] [a-z]`; done 修改后缀: [zengs@SYS SOS]$ for cpplive in *.JPG; do mv $cpplive …