AutoCAD二次开发教程（4）-通过VB6设置AutoCAD窗口
1：更改AutoCAD窗口位置与大小 代码如下 ： On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject(, "AutoCAD.Application.17.1") Set docObj = acadApp.A ...
无法获取点的坐标，对COM组件的调用返回了错误HRESULT E_FAIL
通过vb.net进行AutoCAD二次开发，原来vb6能用的代码，到vb.net里面就不行了，一直提示错误。关键是这个错误网上搜编了也找不到原因。 不知道这个GetPoint方法哪里不对。 试了方法： 1.右击“我的电脑”，点击“管理”，进入服务，确保 D ...
通过Fluent.Ribbon与Dirkster.AvalonDock设计界面
本文介绍如何通过Fluent.Ribbon与Dirkster.AvalonDock来设计稍微现代化一点的界面。 看一下最后完成的效果： 操作示例： 有Ribbon风格的菜单栏，还有左右两栏的布局方式。 编程环境：Visual Studio 2022 编程语言：VB.net ...
如何设计Ribbon风格界面
目前Ribbon界面已经很常见了，最典型的是office的界面风格： 又或者像WPS这样的： 要设计这样风格的界面，从零开始也没有必要；有很多现成的，免费的界面框架可以用。如果要求不高的话可以直接使用官方的Ribbon控件库，名字是： ...
AutoCAD二次开发教程（3）-通过VB6绘制点并设置样式
环境与引用步骤同：AutoCAD二次开发教程（1）-通过VB6绘制直线 1：绘制点 代码如下： On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject(, "AutoCAD.Ap ...
AutoCAD二次开发教程（2）-通过VB6绘制曲线
环境与引用步骤同：AutoCAD二次开发教程（1）-通过VB6绘制直线 1：绘制整圆 绘制代码如下： On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject(, "Auto ...
AutoCAD二次开发教程（1）-通过VB6绘制直线
1：准备工作 开发环境：Visual Basic 6 软件：AutoCAD2008 vb6年代有点久远，如果用的是win10或者win11系统大概率会安装不上，不想换系统的话，可以通过虚拟机（比如VMware）来安装一个win7系统然后再搭建开发环境。 安装AutoCAD2008之 ...
