VBNET
AutoCAD VBNET 曲线求交点
曲线求取点，利用几何库 <CommandMethod(NameOf(TT_PolyLineCrossCheck))> Public Sub TT_PolyLineCrossCheck() Dim doc As Document = Application.DocumentManager.MdiAct ......
AutoCAD VBNET 获取曲线在3个基本平面的投影
求取空间任意曲线在xoy/yoz/xoz平面的投影 <CommandMethod(NameOf(TT_CurveProjected))> Public Sub TT_CurveProjected() Dim doc As Document = Application.DocumentManager. ......
AutoCAD VBNET 当前文档保存
当前文档保存总出问题 现在借助com的方法实现了保存文件 <CommandMethod(NameOf(TT_SaveDrawing))> Public Sub TT_SaveDrawing() Dim doc As Document = Application.DocumentManager.Mdi ......
Aveva Marine VBNET 编程系列====>读取drawing explorer的第2层级 Sub views
接上期的内容,此次读取view的下一层几subview 主要用到下面的方法获取view的第一个子级 一个封装的函数 ''' <summary> ''' 获取当前视图的全部的子视图的句柄 ''' </summary> ''' <param name="draftApp">MarDrafting对象</ ......
Aveva Marine VBNET 编程系列===>读取drawing explorer的第一层级 view
今天我们研究下读取drawing expolrer的第一层级：view 下面的图纸的层级目录示意图，我们今天需要获取所有的view 主要用到2个方法： 1# 获取第一个元素 MarDrafting.ElementChildFirstGet Method (） 2# 获取相邻的元素 MarDrafti ......
Aveva Marine VBNET 编程系列-封装一个类
由于AM的marapi的大部分类实现了IDisposable接口，所有避免内存过大，用了一般需要dispose下 微软官方的解释： https://learn.microsoft.com/zh-cn/dotnet/api/system.idisposable?view=net-7.0 以下是MarD ......
Aveva Marine VBNET 编程系列-创建曲线
显现的效果 代码实现： <MyAmFunctionAtt(NameOf(绘图控制), NameOf(新建曲线))> Public Sub 新建曲线(wm As WindowManager) Dim draftApp As New MarDrafting Dim ui As New MarUi 'Im ......
Aveva Marine VBNET 编程系列-新建图纸,创建文字
根据MarApi,创建图形文件，新建文字 Imports Aveva.ApplicationFramework.Presentation Imports Aveva.Marine.Drafting ' marAPI.dll Public Class 绘图控制 <MyAmFunctionAtt(Nam ......
Aveva Marine VBNET 编程系列-修改程序快捷键
修改HullDesign程序的主题以及菜单项的快捷键 引用的dll文件 下面的是代码和快捷键配置文件： https://files.cnblogs.com/files/NanShengBlogs/AMShortCut.HullDesign.zip?t=1695908179&download=true ......
Aveva Marine VBNET 编程系列-搭建开发框架
引用的Dll Aveva.ApplicationFramework.dll Aveva.ApplicationFramework.Presentation 菜单展示效果 创建Attribute,用于反射来动态创建菜单，不用每次都去写command Public Class MyAmFunctionA ......
VBNET AUTOCAD 单行文字OBB有向包围盒的计算
遇到要求单行文字包围和的需求,发现AutoCAD自带的算法仅能求出正交包围盒,如下图所示的粉色矩形 我想获取下图下图所示蓝色矩形的部分及OBB 计算方法图形示例: 下面是完整的代码,其中求D点的坐标p1涉及到向量定比分点公式 <CommandMethod(NameOf(TT_SingleTextOB ......