02 2025 档案

摘要:private static void ConfigureAutoCADThemeAsWindowsTheme() { var COLORTHEME = (short)Application.GetSystemVariable("COLORTHEME"); const string Registry 阅读全文
posted @ 2025-02-26 21:20 南胜NanSheng 阅读(3) 评论(1) 推荐(0) 编辑
摘要:Sub CreateBlockFromEntities() Dim blockName As String Dim basePoint As Variant Dim selectedEntities As AcadSelectionSet Dim blockDef As AcadBlock Dim 阅读全文
posted @ 2025-02-22 14:14 南胜NanSheng 阅读(19) 评论(0) 推荐(0) 编辑
摘要:Public Sub TestKeyWords() AppActivate ThisDrawing.Application.Caption Dim kwordList As Variant, kws1 As String, kws2 As String, rtn As String kwordLis 阅读全文
posted @ 2025-02-22 14:13 南胜NanSheng 阅读(3) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示