南胜NanSheng

摘要： public class LinkWorld { public static DbElement LinkWLD => Aveva.Pdms.Database.DbType.Design.FindElements(DbElementTypeInstance.LINKWLD).FirstOrDefau 阅读全文

摘要： Function SrotObjectByProperty(objsToSort As Variant, PropertyName As String, Optional 降序 As Boolean = True) If IsEmpty(objsToSort) Then Exit Function 阅读全文

摘要： cad中的可用字体样式 获取windows标准字体 Dim winFontsdir As String winFontsdir = VBA.Environ("windir") & "\Fonts\" If winFontsdir <> vbNullString Then Dim shxfl As S 阅读全文

摘要： 第一布，查看用户名，数据库等信息 在记事本中写以下信息，保存后，后缀改为bat，双击此文件即可启动hull design模块且无黑框框的控制台哦 C:\AVEVA\Marine\OH12.1.SP4\marine.bat noconsole Mar SYSTEM/XXXXXX/PLANARHULL 阅读全文

摘要： 获取图纸数据库 查看代码 public static Dictionary<string,List<DbElement>> GetDbElements(DbType dbtype) { Dictionary<string, List<DbElement>> rtn = new Dictionary< 阅读全文

摘要： 修改快捷键和提示文件 提取菜单栏按钮 public static List<ButtonToolImpl> GetButtonImpls(this MenuToolImpl mtl) { List<ButtonToolImpl> rtns = new List<ButtonToolImpl>(); 阅读全文

摘要： 利用对com开放的类，拓展vba的功能 ArrayList就是动态数组，用MSDN中的说法，就是Array的复杂版本。在VBA中，ArrayList提供了丰富的功能，包括排序、数组转换、动态的增加和减少元素、删除所有元素项目等。 相比字典，ArrayList的优势有：可以写入重复的item，并可查找 阅读全文

摘要： 根据用户选择批量提取scheme语句https://www.bilibili.com/video/BV1FW4y1C7DT/ var draftApp = new MarDrafting(); var marui = new MarUi(); var marUti = new MarUtil(); 阅读全文

摘要： 创建一个文本文件，拓展名为VBS 将编码格式改为ansi Dim MyPath, MyName, AWbName,dirName,curVbsDirDim, fso,xlApp Set fso = CreateObject("Scripting.FileSystemObject") curVbsDi 阅读全文

摘要： using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; using IFoxCAD.Cad; using IFoxCAD.C 阅读全文