南胜NanSheng

摘要： 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 阅读全文

摘要： 踩坑，找了半天的资料没解决,报错如下，明明与EXCEL VBA一样的代码。。。 最后自己分析VBA与C# 操作的区别，VBA是打开Excel界面操作,C# 是未开启Excel出现界面操作的 private static void Main(string[] args) { dynamic xlsAp 阅读全文

摘要： 计算角度利用反正切注意斜率存在的条件，X不能为0，先要剔除再坐标中上的情况，在分类讨论计算实际的角度，范围0~2PI p0 = pl.Coordinate(0) p1 = pl.Coordinate(1) Dim v As Variant, lth As Double v = Array(p1(0) 阅读全文

摘要： 书上说，射线法和叉乘法感觉都不完整 下面我分享我写的基于AutoCAD BREP算法 var ed = acApp.Application.DocumentManager.MdiActiveDocument.Editor; var peo = new PromptEntityOptions("Sel 阅读全文

摘要： 此处用到的库是Itextsharp /// <summary> /// 合成pdf文件 /// </summary> /// <param name="pdffileList"></param> /// <param name="outMergeFile"></param> /// <param n 阅读全文

摘要： 效果如下 第一步下载，智能提示显示xll文件 Releases · Excel-DNA/IntelliSense (github.com) xll文件报病毒解决办法 默认情况下，Excel 正在阻止不受信任的 XLL 加载项 - Microsoft 支持 第二步，加载xll文件，xll文件放在exc 阅读全文

摘要： 引用的win32 api Option Explicit Declare PtrSafe Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Declare Pt 阅读全文

摘要： 利用选择功能 public ModelObjectEnumerator getAllWeldsFromModel() { ModelObjectEnumerator.AutoFetch = true; ObjectFilterExpressions.Type objectType = new Obj 阅读全文

摘要： 制作的exe程序，就存在版本兼容性问题 用2022 api编译的exe在2024 中无法启动 解决方案 将exe放在如下位置从此处启动exe即可 从宏中可以获取 string XSDATADIR = ""; TeklaStructuresSettings.GetAdvancedOption("XSD 阅读全文