VBNET
laocooon523857886
这个作者很懒,什么都没留下…
展开
-
VB 以下是Visual Basic语言的程序代码,用于定义一个函数用以判断给定的数是否是素数。
使用IsPrime函数判断给定的数是否是素数,如果是素数,输出"%d是素数",否则输出"%d不是素数"。以下是Visual Basic语言的程序代码,用于定义一个函数用以判断给定的数是否是素数。Console.WriteLine(n & "不是素数")Console.WriteLine(n & "是素数")Console.WriteLine("请输入一个正整数:")' 从2到平方根遍历是否有因子。' 排除0、1和负数。' 取平方根提高效率。原创 2023-06-22 23:03:04 · 242 阅读 · 0 评论 -
C# 实现VBnet中 mid left right 功能。
【代码】C# 实现VBnet中 mid left right 功能。原创 2022-09-08 09:24:00 · 756 阅读 · 0 评论 -
vb.net 画曲线
vb.net 画曲线原创 2022-07-31 08:27:32 · 545 阅读 · 0 评论 -
VB.net Chart1的处理
VB.net Chart1的处理原创 2022-07-26 18:25:21 · 689 阅读 · 0 评论 -
vbnet Graph2018 类
Public Class Graph2018 Inherits PictureBox ' Created by CY Cha in October 2008, revised by AN in November and by E.Santos in April 2009 ' Refactored by E.Yoshimoto in Feb. 2018. Public g As Graphics ' 'g' is used a...原创 2022-01-01 08:32:18 · 128 阅读 · 0 评论 -
AutoCad 二次开发中表格 要与不要标题的处理
Table table = new Table(); //省略号处是设置table的TableStyle、Position、SetSize等初始化的信息 ....... ....... ....... table.Rows[0].Style = "_TITLE";//第一行的样式设置为标题 ...原创 2021-12-02 12:04:47 · 1236 阅读 · 23 评论 -
求点到一条直线的垂足点
Public Shared Function GetFootOfPerpendicular(pt As XYZ, begin As XYZ, [end] As XYZ) As XYZ Dim dx As Double = begin.X - [end].X Dim dy As Double = begin.Y - [end].Y If Math.Abs(dx) < 1E-08 AndAlso Math.Abs(dy) < 1E-08 Then Return begin End I..原创 2021-09-06 13:46:07 · 433 阅读 · 0 评论 -
vb.net DataGridView 当前行变化
Private Sub dataGridView1_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles DataGridView1.RowPrePaint If e.RowIndex >= DataGridView1.Rows.Count - 1 Then Return End If Dim oldForeColor As ...原创 2021-08-31 14:36:32 · 389 阅读 · 0 评论 -
CAD二次开发数据分类汇总后生成表格
Imports System.Windows.FormsImports Autodesk.AutoCAD.GeometryImports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.ColorsImports Autodesk.AutoCAD.DatabaseServicesImports Autodesk.AutoCAD.RuntimeImports Application = Autodesk.AutoCAD.A.原创 2021-08-30 09:22:19 · 969 阅读 · 0 评论 -
vbnet CAD 模拟移动。
Imports System.IOImports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.ColorsImports Autodesk.AutoCAD.DatabaseServicesImports Autodesk.AutoCAD.EditorInputImports Autodesk.AutoCAD.GeometryImports Autodesk.AutoCAD.GraphicsInterfaceImpo.原创 2021-08-24 10:16:40 · 258 阅读 · 0 评论 -
关于CAD二次开发 用.net 后台式读取不到Ole2Frame,却用arx可以取到。
所以 需要 用arx开发制作成dll,由net 调用 。//Tool.h#pragma onceusing namespace System;using namespace Autodesk::AutoCAD::DatabaseServices;using namespace Autodesk::AutoCAD::Geometry;using namespace Autodesk::AutoCAD::Runtime;namespace ahlzl{ public ref class原创 2021-08-23 23:02:09 · 671 阅读 · 0 评论 -
CAD 获取两点之间的距离
''' <summary> ''' 获取两点之间的距离 ''' </summary> ''' <param name="Point1">点1</param> ''' <param name="Point2">点2</param> ''' <returns></returns> Public Shared Func...原创 2021-08-22 18:26:46 · 622 阅读 · 0 评论 -
CAD 根据一个点,角度,长度推出第二个点
''' <summary> ''' 根据一个点,角度,长度推出第二个点 ''' </summary> ''' <param name="pPt"></param> ''' <param name="dAng"></param> ''' <param name="dDist"></param> ''' <ret..原创 2021-08-22 18:26:09 · 251 阅读 · 0 评论 -
CAD 已知两个块的相对位置,当参考块进行旋转,求第二个块相对位置不变后的旋转结果
''' <summary> ''' 已知两个块的相对位置,当参考块进行旋转,求第二个块相对位置不变后的旋转结果 ''' </summary> <CommandMethod("BlockRelative")> Public Sub BlockRelative() '' 获得当前数据库 Dim acCurDb As Database = Application..原创 2021-08-22 17:35:29 · 262 阅读 · 0 评论 -
autoCAD jig:拖拽效果实现画直线
Imports Autodesk.AutoCAD.RuntimeImports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.DatabaseServicesImports Autodesk.AutoCAD.GeometryImports Autodesk.AutoCAD.EditorInputImports Autodesk.AutoCAD.ColorsNamespace a Public Class a.原创 2021-08-21 03:33:26 · 722 阅读 · 0 评论 -
求直线(已知起点和角度,给出新点推算直线的端点)
''' <summary> ''' 求直线(已知起点和角度,给出新点推算直线的端点) ''' </summary> <CommandMethod("Qdian")> Public Sub ARXCommand() Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument Dim ...原创 2021-08-20 17:54:28 · 669 阅读 · 0 评论 -
CAD 标注和公差
Imports Autodesk.AutoCAD.RuntimeImports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.DatabaseServicesImports Autodesk.AutoCAD.Geometry <CommandMethod("CreateAngularDimension")> _Public Sub CreateAngularDimension() '' 获得当前数据库 .原创 2021-08-20 08:39:41 · 1534 阅读 · 0 评论 -
autoCAD 向图形中添加文字
文字表达了图形中的重要信息。可以将文字用于标题栏、标注图形部件、提供规格说明或进行注释。AutoCAD 提供多种创建文字的方法。对简短的输入项使用单行文字,对于较长而且有内部格式的输入,可以使用多行文字 (MText)。虽然所有输入的文字都使用建立默认字体和格式设置的当前文字样式,但也可以使用其他的方法自定义文字外观。使用文字样式使用单行文字(Text)使用多行文字(MText)使用Unicode字符、控制符和特殊字符替代字体拼写检查使用文字样式AutoCAD 图形中的所有文字都有原创 2021-08-19 20:14:16 · 2017 阅读 · 0 评论 -
CAD 使用 颜色 线型
使用颜色用户可以使用对象的 Color 或 ColorIndex 属性为图形中的单独对象指定颜色。 ColorIndex 属性接受一个数值从 0 到 256 的AutoCAD 颜色索引(ACI)值。Color 属性通常用于指定一个 ACI 编号,真彩色或命名颜色给一个对象。若要修改 Color 属性的值,请使用 Colors 命名空间下的 Color 对象。Color 对象有 SetRGB 方法允许你从基于红、绿和蓝色之间相互混合组成的数百万种颜色中挑选颜色。Color 对象也包含从指定颜色名字、颜原创 2021-08-19 18:57:32 · 1419 阅读 · 0 评论 -
autoCAD 使用图层、颜色和线型
图层就像透明的覆盖层,用户可以在上面组织和编组各种不同的图形信息。用户创建的对象具有各种特性,包括图层、颜色和线型。颜色可以帮助用户区分图形中类似的元素,而线型则可以帮助用户区分不同的绘图元素,例如中心线或隐藏线。组织图层以及图层上的对象可以更容易地管理图形中的信息。使用图层用户总是在图层上绘制图形。可能是默认的图层,也可能是用户自己创建和命名的图层。每个图层都有关联的颜色和线型。例如,可以创建一个图层,在该图层上仅绘制中心线,并将图层颜色指定为蓝色,将图层线型指定为 CENTER。以后每次绘制中心原创 2021-08-19 17:02:36 · 2262 阅读 · 2 评论 -
autoCAD编辑图案填充
用户可以编辑图案填充边界和填充图案。如果编辑关联图案填充的边界,只要编辑的结果是有效的边界,图案就会被更新。即使关联图案填充位于已关闭的图层上,仍将对其进行更新。用户可以修改填充图案或为现有的图案填充选择新的图案,但是只能在创建图案填充时设置关联性。可以使用 Associative 特性查看 Hatch 对象是否具有关联性。必须使用 EvaluateHatch 方法重新计算图案填充才能看到任何图案填充的编辑效果。编辑填充边界可以向图案填充边界附加、插入或移除环。关联图案填充随其边界的改变而更新,原创 2021-08-18 11:37:36 · 1172 阅读 · 0 评论 -
autoCAD 编辑命名和二维对象
要修改现有的对象,可以使用与该对象关联的方法和特性。如果修改图形对象的可见特性,请使用 Regen 方法来重画屏幕上的对象。Regen 方法是 Editor 对象的成员。使用命名对象删除对象复制对象偏移对象转换对象陈列对象延伸和修剪对象分解对象编辑多段线编辑样条曲线编辑图案填充使用命名对象除了 AutoCAD 所使用的图形对象之外,图形数据库中还保存了几种非图形对象。这些对象都具有描述性的名称。例如所有的块、图层、编组和标注样式都指定了名字,并且大部分情况下都可以重命名。符号原创 2021-08-18 11:02:46 · 561 阅读 · 0 评论 -
autoCAD 使用选择集
使用选择集选择集可以由单个对象组成,也可以是一个更复杂的编组:例如特定图层的对象集。 在命令启动前通过pick first选择或者执行命令后提示选择对象要注用户在图形区域中选择对象后创建的选择集是最具代表性的。选择集不是持久的,如果需要保留选择集,用于在多个命令之间或将来使用,就必须创建一个自定义的字典并记录对象 ID,并将选择集当作一个记录创建。获得PickFirst选择集在图形区域中选择对象添加或合并多个选择集定义选择集过滤规则从选择集中移除对象获得PickFirst选择集P原创 2021-08-18 01:50:16 · 4212 阅读 · 0 评论 -
autoCAD 创建对象 使用面域 创建图案填充
创建对象在 AutoCAD 中经常有多种不同的方法可以创建相同的图形对象。虽然 .NET API 没有提供同样的创建对象的组合,但是它除为每一个对象类型都提供一个基本的对象构造函数外,也提供了对象构造函数的许多重载版本。例如,在 AutoCAD 中创建圆有四种不同方法:(1) 通过指定圆心和半径、 (2) 通过定义直径的两点、 (3) 通过定义圆周的三点或 (4) 通过两个切点和一个半径。 但是,在 .NET API 中只提供了两种创建圆的方法。一个方法不接受任何参数,而第二个需要一个中原创 2021-08-17 23:17:00 · 1406 阅读 · 0 评论 -
autoCAD 创建和编辑AutoCAD图元
用户可以创建的对象的范围,从简单的直线、圆到复杂的样条曲线、椭圆和关联填充区域。通常,用户使用 AppendEntity 函数添加对象到中一个 BlockTableRecord 对象中。对象创建后,就可以修改对象的像图层、颜色和线型之类的属性。图形数据库与其它数据库程序相似,可以认为在模型空间中的一个直线对象就相当于一条表记录,模型空间就相当于数据为表。在使用数据库时,必须在使用它们之前打开和关闭记录。与存储在数据库中的对象不同的是,需要使用 GetObject 函数从数据库中获取对象,然后定义你想怎样原创 2021-08-17 02:57:10 · 1539 阅读 · 0 评论 -
autoCAD 提示用户输入
提示用户输入Editor 对象是 Document 对象的子对象,定义了用户输入方法。用户输入方法在 AutoCAD 命令行中或动态输入工具提示中显示一个提示信息,并且要求输入各种不同类型的值。这种用户输入对于交互式输入屏幕坐标、图元选择、短字符串或数值非常有用。如果应用程序要求输入多个选项或值,则使用 Windows 窗体可能比使用单个提示更合适。每个用户输入方法都在 AutoCAD 命令行显示提示,并返回特定于所请求的输入类型的值。例如,GetString 返回一个 PromptResult,它原创 2021-08-17 02:04:03 · 1268 阅读 · 0 评论 -
autoCAD 精确绘图 及计算面积
使用 AutoCAD 可以创建带有精确几何图形的图形,而无需执行冗长的计算。通常可以指定精确的点,而无需知道对应的坐标值。也可以不必离开图形屏幕即在图形上执行计算并显示各种类型的状态信息。调整捕捉和对齐栅格 使用正交模式 计算点和值 计算面积调整捕捉和对齐栅格可以使用栅格作为直观的定位基准,并打开“捕捉”模式以限制光标的移动。除设置栅格间距和捕捉模式外,还可以调整捕捉的旋转角和类型。如果需要沿特定对齐方向或角度绘图,可以旋转...原创 2021-08-17 01:18:01 · 531 阅读 · 0 评论 -
autoCAD 设置 AutoCAD 系统配置
.NET API 没有包含所有访问选项的类或方法,这些选项是通过 AutoCAD 选项对话框存储的。访问这些选项是通过 ActiveX® Automation 库来完成的。用户使用COM 对象从 Application 对象的 Preferences 属性返回系统配置。只要用户获得 Preferences COM 对象,就可以访问属于选项的九个对象,每个对象分别代表“选项”对话框中的一个选项卡。通过这些对象可以访问“选项”对话框中所有存储在注册表中的选项,可以使用这些对象的属性来自定义许多 AutoCA原创 2021-08-17 00:54:47 · 1280 阅读 · 0 评论 -
autoCAD 创建,打开,保存和关闭图形
本节主题创建和打开图形 保存和关闭图形 在没有文档打开时使用创建和打开图形要创建新图形或打开现有图形,请使用 DocumentCollection 对象的方法。Add 方法用于根据一个图形模板创建新图形并将此图形添加到 DocumentCollection 中。Open 方法用于打开现有图形文件。本例使用 Add 方法根据 acad.dwt 图形模板文件创建新图形。Imports Autodesk.AutoCAD.ApplicationServicesImports Autode.原创 2021-08-16 22:02:07 · 2128 阅读 · 0 评论 -
AutoCAD 使用平铺视口
使用平铺视口AutoCAD 通常使用充满整个图形区域的单个视口来开始一个新图形。可以拆分模型标签的图形区域以同时显示多个视口。例如,如果同时显示整个视图和详细资料视图,则可以在整个图形上查看细节更改的效果。在每个平铺视口中,都可以进行以下操作:在单个视口中缩放、设置捕捉、栅格和 UCS 图标模式,以及恢复命名视图 执行命令时,从一个视口绘制到另一个视口 命名视口的配置以便可以重复使用可以使用不同的配置来显示平铺视口。视口的显示方式取决于所需的视图数量和大小。 模型空间中的平铺视口保存在视口原创 2021-08-16 11:36:05 · 793 阅读 · 0 评论 -
autoCAD 使用命名视图
使用命名视图可以命名和保存要重复使用的视图。如果不再需要该视图,可以删除它。命名视图存储在视图表(ViewTable)中,它是图形数据库中的一个命名符号表。要创建新视图,请使用 Add 方法将新视图添加到视图表(ViewTable)中。当添加新的命名视图到视图表中时,将创建一个默认的模型空间视图。可以在创建视图时命名该视图。视图的名称最多可包含 255 个字符,包含字母、数字和特殊字符美元符号 ($)、连字符 (-) 和下划线 (_)。要从视图表中删除命名视图,只需简单的使用你想删除的 Vi原创 2021-08-16 01:13:05 · 511 阅读 · 0 评论 -
autoCAD 控制应用程序窗口 和 图形窗口
控制应用程序窗口控制“应用程序”窗口功能使开发人员可以灵活地创建既高效又智能的应用程序。有些时候,用户的应用程序有必要将 AutoCAD 窗口最小化,例如此时代码正在其他像 Microsoft® Excel® 的应用程序中运行任务的时候。此外,用户通常希望在执行诸如提示用户输入之类的任务之前,验证 AutoCAD 窗口的状态。使用 Application 对象的方法和属性可以更改“应用程序”窗口的位置、大小和可见性。另外,还可以使用 WindowState 属性来最小化、最大化“应用程序”窗口以及原创 2021-08-16 01:05:40 · 827 阅读 · 0 评论 -
AutoCAD 定义 AutoLISP 函数
当定义一个 AutoLISP 函数时,应该使用 LispFunction 属性。LispFunction 属性期待一个字符串值 ,它将当作 AutoLISP 函数的全局名称。和全局函数名称一起,LispFunction 结构还能接受如下值:Local Name - 本地化命令名称,通常用于特定语言。 Help Topic Name - 将要与 AutoLISP 函数关联的帮助主题名称。 Help File Name - 包含当命令激活并按 F1 键时将要显示其中帮助主题的帮助文件。定义 Aut原创 2021-08-16 01:06:08 · 1447 阅读 · 0 评论 -
AutoCAD 命令定义
当定义一个命令时,应该使用 CommandMethod 属性。 CommandMethod 属性期待一个字符串值,它将当作被定义命令的全局名称。和全局命令名称一起,CommandMethod 属性还能接受如下值:Command Flags -定义命令的行为。 Group Name - 命令组名称。 Local Name - 本地化命令名称,通常用于特定语言。 Help Topic Name - 当按 F1 键时应该显示的帮助主题名称。 Context Menu Type Flags - 定义原创 2021-08-15 02:45:26 · 1069 阅读 · 0 评论 -
AutoCAD 对比进程外与进程内
当用户开发一个新的应用程序时,它可以运行在进程内与进程外。AutoCAD .NET API 被设计成仅可以运行在进程内,它与 ActiveX Automation 库即可以运行在进程内又可以运行在进程外不同。进程内应用程序被设计为与宿主程序运行在同样的进程空间中。既然这样,加载DLL 程序集的 AutoCAD 就是一个宿主程序。 进程外应用程序不能与宿主应用程序运行在同样的进程空间中。这些应用程序常常被编译成独立的可执行程序。如果用户需要创建一个独立的应用程序来驱动 AutoCAD,最好是使用原创 2021-08-15 02:30:50 · 502 阅读 · 0 评论 -
AutoCAD 了解属性和方法
每一个对象都有与其相关的属性和方法。属性描述一个对象的各个方面,方法指可以在对象上执行的操作。一旦对象被创建,就可以通过它的属性和方法查询和编辑对象。例如,Circle 对象具有 Center 属性。此属性代表圆心处的三维世界坐标系坐标。要更改圆心,只需将此属性设置为新坐标即可。Circle 对象还具有 GetOffsetCurves 方法。使用此方法可以在距离现有圆的指定偏移距离处创建一个新对象。要查看 Circle 对象的所有特性和方法列表,请参见 AutoCAD《AutoCAD .NET Re原创 2021-08-15 02:16:56 · 292 阅读 · 0 评论 -
AutoCAD 删除集合对象中的成员
集合的成员可以从集合对象被删除,只要使用成员对象的 Erase 方法。例如,下面的代码从 LayerTable 对象中删除层 MyLayer。在从图形中删除图层前,应该确定它可以被删除。若要确定一个图层或另外的像块(Block) 或文字样式(TextStyle)可以被删除,应该使用 方法。关于 Purge 方法的更多信息,请参见 清理未引用的命名对象部分。Imports Autodesk.AutoCAD.RuntimeImports Autodesk.AutoCAD.ApplicationSer原创 2021-08-15 02:11:48 · 177 阅读 · 0 评论 -
AutoCAD 遍历集合对象
要选择集合对象的特定成员,请使用 Item 或 GetAt 方法。 Item 和 GetAt 方法需要一个字符串形式的关键字,它表示项目的名字。 大多数集合中, Item 方法是默认方法,也就是说用户不需要实际指定这个方法名。有些集合对象,用户也可以使用项目 (Item) 在集合内部指定位置的索引号 (Index) 来获得想要的对象。这种方法适用于你所使用的各种不同语言,就如使用符号表或字典一样。下面的语句显示怎样访问层表中的 “MyLayer” 表记录。acObjId = acLyrTbl.原创 2021-08-15 01:56:24 · 815 阅读 · 0 评论 -
AutoCAD 向集合对象中添加新的成员
要向集合中添加新的成员,请使用 Add 方法。例如,以下代码创建一个新图层,并将其添加到层表中:Imports Autodesk.AutoCAD.RuntimeImports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.DatabaseServices <CommandMethod("AddMyLayer")> _Public Sub AddMyLayer() ''获得当前文档和数据库,并启动一个事原创 2021-08-15 01:52:59 · 210 阅读 · 0 评论 -
AutoCAD 访问集合
大部分的集合和容器对象都是通过 Document 或 Database 对象访问的。Document 和 Database 对象都包含一些相应的特性用来访问大多数可用集合的对象或对象 ID。例如,以下代码定义一个变量,并将其设置为当前图形的 LayersTable 对象:'' 获得当前图形并启动一个事务管理器Dim acCurDb As Database = Application.DocumentManager.MdiActiveDocument.DatabaseUsing acTrans As原创 2021-08-15 01:11:49 · 137 阅读 · 0 评论