02 2025 档案
摘要:private static void ConfigureAutoCADThemeAsWindowsTheme() { var COLORTHEME = (short)Application.GetSystemVariable("COLORTHEME"); const string Registry
阅读全文
摘要:Sub CreateBlockFromEntities() Dim blockName As String Dim basePoint As Variant Dim selectedEntities As AcadSelectionSet Dim blockDef As AcadBlock Dim
阅读全文
摘要:Public Sub TestKeyWords() AppActivate ThisDrawing.Application.Caption Dim kwordList As Variant, kws1 As String, kws2 As String, rtn As String kwordLis
阅读全文