摘要：
计算角度利用反正切注意斜率存在的条件，X不能为0，先要剔除再坐标中上的情况，在分类讨论计算实际的角度，范围0~2PI p0 = pl.Coordinate(0) p1 = pl.Coordinate(1) Dim v As Variant, lth As Double v = Array(p1(0) 阅读全文
posted @ 2024-09-17 16:01
南胜NanSheng
阅读(142)
评论(0)
推荐(0)
摘要：
此处用到的库是Itextsharp /// <summary> /// 合成pdf文件 /// </summary> /// <param name="pdffileList"></param> /// <param name="outMergeFile"></param> /// <param n 阅读全文
posted @ 2024-09-08 15:46
南胜NanSheng
阅读(253)
评论(0)
推荐(0)
摘要：
制作的exe程序，就存在版本兼容性问题 用2022 api编译的exe在2024 中无法启动 解决方案 将exe放在如下位置从此处启动exe即可 从宏中可以获取 string XSDATADIR = ""; TeklaStructuresSettings.GetAdvancedOption("XSD 阅读全文
posted @ 2024-06-17 22:50
南胜NanSheng
阅读(405)
评论(0)
推荐(0)
摘要：
项目的完整下载地址 https://files.cnblogs.com/files/NanShengBlogs/AMCSTest.zip?t=1698491030&download=true 先看效果 下面先看实现的几个函数 1# 创建wpf的用户控件，无选项的参考此链接修改csproject文件 阅读全文
posted @ 2023-10-28 19:07
南胜NanSheng
阅读(578)
评论(1)
推荐(1)
摘要：
此系列的教程，暂时不更新，因为没多少人愿意加入一起学习的行列，有需要学习的可以加我微信或者QQ讨论 电话：17607170146（微信同号） QQ：442024898 提取图纸中的文字， <MyAmFunctionAtt(NameOf(用户交互), NameOf(选择单个文字))> Public S 阅读全文
posted @ 2023-10-06 14:16
南胜NanSheng
阅读(145)
评论(0)
推荐(1)
摘要：
求取空间任意曲线在xoy/yoz/xoz平面的投影 <CommandMethod(NameOf(TT_CurveProjected))> Public Sub TT_CurveProjected() Dim doc As Document = Application.DocumentManager. 阅读全文
posted @ 2023-10-05 09:05
南胜NanSheng
阅读(97)
评论(0)
推荐(0)
摘要：
当前文档保存总出问题 现在借助com的方法实现了保存文件 <CommandMethod(NameOf(TT_SaveDrawing))> Public Sub TT_SaveDrawing() Dim doc As Document = Application.DocumentManager.Mdi 阅读全文
posted @ 2023-10-05 08:49
南胜NanSheng
阅读(137)
评论(0)
推荐(0)
摘要：
接上期的内容,此次读取view的下一层几subview 主要用到下面的方法获取view的第一个子级 一个封装的类 Public Class DrawingExpolrerEx Public Shared Function DrawingHasViews(draftApp As MarDrafting 阅读全文
posted @ 2023-10-02 08:15
南胜NanSheng
阅读(276)
评论(0)
推荐(0)
摘要：
今天我们研究下读取drawing expolrer的第一层级：view 下面的图纸的层级目录示意图，我们今天需要获取所有的view 主要用到2个方法： 1# 获取第一个元素 MarDrafting.ElementChildFirstGet Method (） 2# 获取相邻的元素 MarDrafti 阅读全文
posted @ 2023-10-01 13:21
南胜NanSheng
阅读(102)
评论(0)
推荐(0)
摘要：
由于AM的marapi的大部分类实现了IDisposable接口，所有避免内存过大，用了一般需要dispose下 微软官方的解释： https://learn.microsoft.com/zh-cn/dotnet/api/system.idisposable?view=net-7.0 以下是MarD 阅读全文
posted @ 2023-09-30 09:29
南胜NanSheng
阅读(144)
评论(0)
推荐(0)
摘要：
显现的效果 代码实现： <MyAmFunctionAtt(NameOf(绘图控制), NameOf(新建曲线))> Public Sub 新建曲线(wm As WindowManager) Dim draftApp As New MarDrafting Dim ui As New MarUi 'Im 阅读全文
posted @ 2023-09-30 08:55
南胜NanSheng
阅读(114)
评论(0)
推荐(0)
摘要：
根据MarApi,创建图形文件，新建文字 Imports Aveva.ApplicationFramework.Presentation Imports Aveva.Marine.Drafting ' marAPI.dll Public Class 绘图控制 <MyAmFunctionAtt(Nam 阅读全文
posted @ 2023-09-29 14:34
南胜NanSheng
阅读(180)
评论(0)
推荐(0)
摘要：
修改HullDesign程序的主题以及菜单项的快捷键 引用的dll文件 下面的是代码和快捷键配置文件： https://files.cnblogs.com/files/NanShengBlogs/AMShortCut.HullDesign.zip?t=1695908179&download=true 阅读全文
posted @ 2023-09-28 21:37
南胜NanSheng
阅读(316)
评论(0)
推荐(0)
摘要：
引用的Dll Aveva.ApplicationFramework.dll Aveva.ApplicationFramework.Presentation 菜单展示效果 创建Attribute,用于反射来动态创建菜单，不用每次都去写command Public Class MyAmFunctionA 阅读全文
posted @ 2023-09-28 14:30
南胜NanSheng
阅读(776)
评论(1)
推荐(2)
摘要：
获取图纸数据库 查看代码 public static Dictionary<string,List<DbElement>> GetDbElements(DbType dbtype) { Dictionary<string, List<DbElement>> rtn = new Dictionary< 阅读全文
posted @ 2022-10-30 15:37
南胜NanSheng
阅读(704)
评论(0)
推荐(0)
摘要：
继上次powershell运行accoreconsole(https://www.cnblogs.com/NanShengBlogs/p/10981687.html)的研究之后又觉得不是很合适，毕竟powershell还存在权限问题，不像vbs这么windows原生的的脚本好用。 脚本主要部分 1 阅读全文
posted @ 2019-06-15 14:42
南胜NanSheng
阅读(849)
评论(1)
推荐(0)
摘要：
定义一个函数，随AutoCAD 启动加载当前程序集到autocad，涉及到写入注册表，注意这是在autocad内部加载dll之后处理的方法。。。。 写入HKLM表示所有登录的用户都会受影响(autocad 需要以管理员身份启动才能成功写入注册表)，写入HKCU表示当前登录的用户才会收影响 "LOAD 阅读全文
posted @ 2019-06-07 14:40
南胜NanSheng
阅读(824)
评论(0)
推荐(0)
摘要：
基于CMD 编写批处理程序很反人类，此篇文章介绍利用Power Shell脚本(借鉴明经net版主雪山飞狐的脚本改造而成)处理之前的Bat+scr的过程（https://www.cnblogs.com/NanShengBlogs/p/10957489.html） Windows PowerShell 阅读全文
posted @ 2019-06-05 20:11
南胜NanSheng
阅读(722)
评论(1)
推荐(0)
摘要：
1# Nuget下载itextSharp，下载到本地 pm>Install-Package iTextSharp -Version 5.5.10 2# 引用dll，添加命名空间 using iTextSharp.text.pdf; 1 PdfReader pr = new PdfReader(fn) 阅读全文
posted @ 2019-06-04 22:50
南胜NanSheng
阅读(2591)
评论(0)
推荐(0)
摘要：
AccoreConsole听起来有点拗口，其中文名可以叫做AutoCAD控制台或者无头AutoCAD。一句话概括，它是快速启动AutoCAD运行微环境，高效的处理图纸。你可以如同DOS命令行一样操作命令，处理图纸，而不需要打开AutoCAD。这在批处理大量图纸时非常有用。另外启动是不管有无licen 阅读全文
posted @ 2019-05-31 23:50
南胜NanSheng
阅读(2935)
评论(1)
推荐(0)
摘要：
效果展示： 代码如下 public class CheckPG : BaseModalCommand { public override void OnStart(int instanceId, object argument) { base.OnStart(instanceId, argument 阅读全文
posted @ 2025-11-09 11:19
南胜NanSheng
阅读(5)
评论(0)
推荐(0)
摘要：
public class ExportPartShape : BaseModalCommand { public override void OnStart(int instanceId, object argument) { base.OnStart(instanceId, argument); 阅读全文
posted @ 2025-09-27 16:10
南胜NanSheng
阅读(20)
评论(0)
推荐(0)
摘要：
此方法避免了启动S3D的过程 可以下载源代码： S3DReaderTest. S3D.net API允许编写独立应用程序，即外部自动化TaskHost可执行文件。 在独立应用程序中可以编写哪些自动化？检查自动化-检查对象/数据，并采取一些行动，如生成报告文件/输出文件。数据挖掘-对对象和相关对象进行 阅读全文
posted @ 2025-09-17 21:39
南胜NanSheng
阅读(37)
评论(1)
推荐(0)
摘要：
我们需要利用系统的这个对话框 using Ingr.SP3D.Common.Client.Controls; using Ingr.SP3D.Common.Middle; using System; using System.Collections.Generic; using System.Com 阅读全文
posted @ 2025-08-18 21:34
南胜NanSheng
阅读(22)
评论(0)
推荐(0)
摘要：
/// <summary> /// 创建StructuralSystem的sat文件 /// </summary> /// <param name="panelAssembly"></param> /// <returns></returns> public static ThreeDModelDa 阅读全文
posted @ 2025-06-27 07:53
南胜NanSheng
阅读(91)
评论(0)
推荐(0)
摘要：
Option Explicit Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String 阅读全文
posted @ 2025-05-05 10:43
南胜NanSheng
阅读(49)
评论(0)
推荐(0)
摘要：
public static void 增加PY菜单() { var cbm = CommandBarManager.Instance; var pycmd = "PYCMD"; if (cbm.RootTools.Contains(pycmd)) return; if (cbm.MenuBar.To 阅读全文
posted @ 2025-05-05 10:27
南胜NanSheng
阅读(172)
评论(0)
推荐(0)
摘要：
using System; using System.Linq; using System.Runtime.InteropServices; using Ingr.SP3D.Common.Client; using Ingr.SP3D.Common.Client.Services; using In 阅读全文
posted @ 2025-05-02 17:18
南胜NanSheng
阅读(267)
评论(0)
推荐(0)
摘要：
Public Sub ReplaceTextInBackWithDbxTech() Dim filePath As String, fileName As String Dim dbx As New ZxDbDocument Dim dicts As New Dictionary, var As V 阅读全文
posted @ 2025-03-14 21:33
南胜NanSheng
阅读(67)
评论(0)
推荐(0)
摘要：
private static void ConfigureAutoCADThemeAsWindowsTheme() { var COLORTHEME = (short)Application.GetSystemVariable("COLORTHEME"); const string Registry 阅读全文
posted @ 2025-02-26 21:20
南胜NanSheng
阅读(44)
评论(1)
推荐(0)
浙公网安备 33010602011771号