[置顶] AutoCAD VBA 两点角度计算

计算角度利用反正切注意斜率存在的条件，X不能为0，先要剔除再坐标中上的情况，在分类讨论计算实际的角度，范围0~2PI

 p0 = pl.Coordinate(0)
        p1 = pl.Coordinate(1)
        Dim v As Variant, lth As Double
        v = Array(p1(0) - p0(0), p1(1) - p0(1))
        Dim ang As Double, sp(0 To 2) As Double
        ang = Atn(v(1) / v(0)) * 180# / (4 * Math.Atn(1))
        If v(0) = 0# Then
            If v(1) > 0 Then ang = 90 Else ang = 270 'y轴
        Else
            If v(1) = 0# Then
                If v(0) > 0 Then ang = 0# Else ang = 180 'x轴
            Else
                If v(0) > 0 Then
                    If v(1) > 0 Then
                        ang = ang '第1象限
                    Else
                        ang = ang + 360 '第4象限
                    End If
                Else
                     If v(1) > 0 Then
                        ang = ang + 180 '第2象限
                    Else
                        ang = ang + 180 '第3象限
                    End If
                End If
            End If
        End If
       
        sp(0) = p1(0): sp(1) = p1(1): sp(2) = 0#
        With ThisDrawing.ModelSpace.AddText(ang, sp, 20)
            .Rotation = ang * (4 * Math.Atn(1)) / 180#
            .color = 3
        End With

 

posted @ 2024-09-17 16:01 南胜NanSheng 阅读(70) 评论(0) 推荐(0) 编辑
[置顶] AutoCAD C# 判断多边形与点的位置关系
摘要： 书上说，射线法和叉乘法感觉都不完整 下面我分享我写的基于AutoCAD BREP算法 var ed = acApp.Application.DocumentManager.MdiActiveDocument.Editor; var peo = new PromptEntityOptions("Sel 阅读全文
posted @ 2024-09-16 09:21 南胜NanSheng 阅读(149) 评论(0) 推荐(0) 编辑
[置顶] C# 多个PDF文档合并，带增加书签，两个A4合并到一页A3上
摘要： 此处用到的库是Itextsharp /// <summary> /// 合成pdf文件 /// </summary> /// <param name="pdffileList"></param> /// <param name="outMergeFile"></param> /// <param n 阅读全文
posted @ 2024-09-08 15:46 南胜NanSheng 阅读(152) 评论(0) 推荐(0) 编辑
[置顶] C# TEKLA 二次开发 版本兼容性解决方案
摘要： 制作的exe程序，就存在版本兼容性问题 用2022 api编译的exe在2024 中无法启动 解决方案 将exe放在如下位置从此处启动exe即可 从宏中可以获取 string XSDATADIR = ""; TeklaStructuresSettings.GetAdvancedOption("XSD 阅读全文
posted @ 2024-06-17 22:50 南胜NanSheng 阅读(130) 评论(0) 推荐(0) 编辑
[置顶] AutoCAD C# 在编程中使用字段表达式
摘要： CAD中有些文字需要随着图纸的当前条件的变化自动变化，例如保存日期、打印日期、打印比例等等。 CAD早期版本只是在扩展工具中提供了动态反应文字（rtext）功能，动态反应文字可以用CAD的Diesel表达式来定义动态文字，也可以动态链接文本文档，文本文档被编辑后，图纸中的文字会自动更新。 由于大多数 阅读全文
posted @ 2024-04-20 15:36 南胜NanSheng 阅读(457) 评论(0) 推荐(0) 编辑
[置顶] PDMS & AM 侧边栏菜单 C# WPF技术
摘要： 项目的完整下载地址 https://files.cnblogs.com/files/NanShengBlogs/AMCSTest.zip?t=1698491030&download=true 先看效果 下面先看实现的几个函数 1# 创建wpf的用户控件，无选项的参考此链接修改csproject文件 阅读全文
posted @ 2023-10-28 19:07 南胜NanSheng 阅读(413) 评论(1) 推荐(0) 编辑
[置顶] Aveva Marine VBNET 编程系列   获取文字
摘要： 此系列的教程，暂时不更新，因为没多少人愿意加入一起学习的行列，有需要学习的可以加我微信或者QQ讨论 电话：17607170146（微信同号） QQ：442024898 提取图纸中的文字， <MyAmFunctionAtt(NameOf(用户交互), NameOf(选择单个文字))> Public S 阅读全文
posted @ 2023-10-06 14:16 南胜NanSheng 阅读(104) 评论(0) 推荐(0) 编辑
[置顶] AutoCAD VBNET 获取曲线在3个基本平面的投影
摘要： 求取空间任意曲线在xoy/yoz/xoz平面的投影 <CommandMethod(NameOf(TT_CurveProjected))> Public Sub TT_CurveProjected() Dim doc As Document = Application.DocumentManager. 阅读全文
posted @ 2023-10-05 09:05 南胜NanSheng 阅读(68) 评论(0) 推荐(0) 编辑
[置顶] AutoCAD VBNET 当前文档保存
摘要： 当前文档保存总出问题 现在借助com的方法实现了保存文件 <CommandMethod(NameOf(TT_SaveDrawing))> Public Sub TT_SaveDrawing() Dim doc As Document = Application.DocumentManager.Mdi 阅读全文
posted @ 2023-10-05 08:49 南胜NanSheng 阅读(99) 评论(0) 推荐(0) 编辑
[置顶] Aveva Marine VBNET 编程系列====>读取drawing explorer的第2层级 Sub views
摘要： 接上期的内容,此次读取view的下一层几subview 主要用到下面的方法获取view的第一个子级 一个封装的类 Public Class DrawingExpolrerEx Public Shared Function DrawingHasViews(draftApp As MarDrafting 阅读全文
posted @ 2023-10-02 08:15 南胜NanSheng 阅读(212) 评论(0) 推荐(0) 编辑
[置顶] Aveva Marine VBNET 编程系列===>读取drawing explorer的第一层级 view
摘要： 今天我们研究下读取drawing expolrer的第一层级：view 下面的图纸的层级目录示意图，我们今天需要获取所有的view 主要用到2个方法： 1# 获取第一个元素 MarDrafting.ElementChildFirstGet Method (） 2# 获取相邻的元素 MarDrafti 阅读全文
posted @ 2023-10-01 13:21 南胜NanSheng 阅读(45) 评论(0) 推荐(0) 编辑
[置顶] Aveva Marine VBNET 编程系列-封装一个类
摘要： 由于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 阅读(91) 评论(0) 推荐(0) 编辑
[置顶] Aveva Marine VBNET 编程系列-创建曲线
摘要： 显现的效果 代码实现： <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 阅读(77) 评论(0) 推荐(0) 编辑
[置顶] Aveva Marine VBNET 编程系列-新建图纸,创建文字
摘要： 根据MarApi,创建图形文件，新建文字 Imports Aveva.ApplicationFramework.Presentation Imports Aveva.Marine.Drafting ' marAPI.dll Public Class 绘图控制 <MyAmFunctionAtt(Nam 阅读全文
posted @ 2023-09-29 14:34 南胜NanSheng 阅读(134) 评论(0) 推荐(0) 编辑
[置顶] Aveva Marine VBNET 编程系列-修改程序快捷键
摘要： 修改HullDesign程序的主题以及菜单项的快捷键 引用的dll文件 下面的是代码和快捷键配置文件： https://files.cnblogs.com/files/NanShengBlogs/AMShortCut.HullDesign.zip?t=1695908179&download=true 阅读全文
posted @ 2023-09-28 21:37 南胜NanSheng 阅读(203) 评论(0) 推荐(0) 编辑
[置顶] Aveva Marine VBNET 编程系列-搭建开发框架
摘要： 引用的Dll Aveva.ApplicationFramework.dll Aveva.ApplicationFramework.Presentation 菜单展示效果 创建Attribute,用于反射来动态创建菜单，不用每次都去写command Public Class MyAmFunctionA 阅读全文
posted @ 2023-09-28 14:30 南胜NanSheng 阅读(598) 评论(1) 推荐(2) 编辑
[置顶] c# aveva marine 批量导出图纸到dxf格式
摘要： 获取图纸数据库 查看代码 public static Dictionary<string,List<DbElement>> GetDbElements(DbType dbtype) { Dictionary<string, List<DbElement>> rtn = new Dictionary< 阅读全文
posted @ 2022-10-30 15:37 南胜NanSheng 阅读(593) 评论(0) 推荐(0) 编辑
[置顶] VBScript+SCR+NetApi+Accoreconsole 批处理dwg文件
摘要： 继上次powershell运行accoreconsole(https://www.cnblogs.com/NanShengBlogs/p/10981687.html)的研究之后又觉得不是很合适，毕竟powershell还存在权限问题，不像vbs这么windows原生的的脚本好用。 脚本主要部分 1 阅读全文
posted @ 2019-06-15 14:42 南胜NanSheng 阅读(798) 评论(1) 推荐(0) 编辑
[置顶] VBNET AUTOCAD NETAPI 让插件随autocad启动
摘要： 定义一个函数，随AutoCAD 启动加载当前程序集到autocad，涉及到写入注册表，注意这是在autocad内部加载dll之后处理的方法。。。。 写入HKLM表示所有登录的用户都会受影响(autocad 需要以管理员身份启动才能成功写入注册表)，写入HKCU表示当前登录的用户才会收影响 "LOAD 阅读全文
posted @ 2019-06-07 14:40 南胜NanSheng 阅读(791) 评论(0) 推荐(0) 编辑
[置顶] PowerShell+NetApi 批处理执行程序
摘要： 基于CMD 编写批处理程序很反人类，此篇文章介绍利用Power Shell脚本(借鉴明经net版主雪山飞狐的脚本改造而成)处理之前的Bat+scr的过程（https://www.cnblogs.com/NanShengBlogs/p/10957489.html） Windows PowerShell 阅读全文
posted @ 2019-06-05 20:11 南胜NanSheng 阅读(684) 评论(1) 推荐(0) 编辑
2025年2月26日
AutoCAD C# 自动控制CAD主题颜色跟随系统
摘要： private static void ConfigureAutoCADThemeAsWindowsTheme() { var COLORTHEME = (short)Application.GetSystemVariable("COLORTHEME"); const string Registry 阅读全文
posted @ 2025-02-26 21:20 南胜NanSheng 阅读(3) 评论(1) 推荐(0) 编辑
2025年2月22日
AutoCAD VBA组块
摘要： 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) 编辑
AutoCAD VBA getKeywords实例
摘要： 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) 编辑
2025年1月11日
C# 安装EXCEL插件的坑
摘要： 踩坑，找了半天的资料没解决,报错如下，明明与EXCEL VBA一样的代码。。。 最后自己分析VBA与C# 操作的区别，VBA是打开Excel界面操作,C# 是未开启Excel出现界面操作的 private static void Main(string[] args) { dynamic xlsAp 阅读全文
posted @ 2025-01-11 16:38 南胜NanSheng 阅读(26) 评论(0) 推荐(0) 编辑
2024年8月18日
Excel vba自定义函数公式智能提示
摘要： 效果如下 第一步下载，智能提示显示xll文件 Releases · Excel-DNA/IntelliSense (github.com) xll文件报病毒解决办法 默认情况下，Excel 正在阻止不受信任的 XLL 加载项 - Microsoft 支持 第二步，加载xll文件，xll文件放在exc 阅读全文
posted @ 2024-08-18 11:22 南胜NanSheng 阅读(245) 评论(0) 推荐(0) 编辑
2024年7月13日
AutoCAD VBA 非模态窗体焦点处理
摘要： 引用的win32 api Option Explicit Declare PtrSafe Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Declare Pt 阅读全文
posted @ 2024-07-13 10:32 南胜NanSheng 阅读(41) 评论(0) 推荐(0) 编辑
2024年6月30日
TEKLA C# 选择模型中所有焊缝的最快方法是什么
摘要： 利用选择功能 public ModelObjectEnumerator getAllWeldsFromModel() { ModelObjectEnumerator.AutoFetch = true; ObjectFilterExpressions.Type objectType = new Obj 阅读全文
posted @ 2024-06-30 20:37 南胜NanSheng 阅读(99) 评论(0) 推荐(0) 编辑
下一页
点击右上角即可分享
微信分享提示