摘要：给出直线的起点和终点的三维坐标，利用AddLine方法可以创建直线。如下代码创建一条（1,1,0）与（15,15,0）之间的直线。 Private Sub Command1_Click() Dim lineobj As AcadLine Dim startpoint(0 To 2) As Double Dim endpoint(0 To ... 阅读全文
VB编程在AutoCAD绘图空间创建点
2011-06-12 14:15 by 精诚所至 金石为开, 731 阅读, 0 推荐, 收藏, 编辑
摘要：VB编程在AutoCAD中创建图形，利用Add方法，在AutoCAD模型空间ModelSpace中创建二维或三维图形对象，也可在图纸空见或块中创建对象。 利用AddPoint方法可以创建一个点对象，应用该方法时需要给出点的X、Y、Z坐标。 通过系统变量PDMODE来控制点的显示方式，通过系统变量PDSIZE控制点的大小，修改系统变量值后，通过图形重生成来更新屏幕显示，下面代码创建一个点并修改其... 阅读全文
VB中控制AutoCAD退出程序
2011-06-12 13:32 by 精诚所至 金石为开, 643 阅读, 0 推荐, 收藏, 编辑
摘要：可以使用Quit方法退出AutoCAD程序。 acadapp.Quit 使用此方法退出AutoCAD程序，并不能使acadapp对象从电脑内存中移除，因此对出AutoCAD后，应该将acadapp对象赋值nothing方法释放acadapp对象所占用的内存空间。 acadapp.Quit Set acadapp = Nothing 阅读全文
VB中使用AutoCAD系统变量
2011-06-12 13:24 by 精诚所至 金石为开, 653 阅读, 0 推荐, 收藏, 编辑
摘要：系统变量是AutoCAD为其运行环境设置的参数，可分为整数型、实数型、点型、布尔型恶化字符串型，大多数系统变量是可读可写的，个别的系统变量是只读变量，不能进行写操作。 利用SetVariable方法对AutoCAD系统变量进行设置。 acadapp.SetVariable Name, Value object系统变量的设置对象，name系统变量名，value系统变量值。 如下代... 阅读全文
VB中对AutoCAD控制窗口界面
2011-06-12 10:57 by 精诚所至 金石为开, 1469 阅读, 0 推荐, 收藏, 编辑
摘要：窗口界面控制包括AutoCAD应用程序窗口界面控制和AutoCAD绘图窗口控制，以及VB窗口界面和AutoCAD窗口界面的相互切换。 利用AutoCAD应用程序对象的属性，可以控制或查询AutoCAD窗口界面的现实状态。 acadapp.WindowState = acMax acadapp.WindowState = acMin acadapp.WindowState... 阅读全文
VB控制AutoCAD精确绘图
2011-06-11 22:32 by 精诚所至 金石为开, 924 阅读, 0 推荐, 收藏, 编辑
摘要：可以对Viewport对象的栅格Gride、捕捉Snap和正交Ortho模式进行设置，使绘图定位更加精确。在VB中可以对上面的属性进行控制。 ActiveViewport对象的GrideOn属性可以改变栅格的显示状态，栅格显示时，可作为绘图的向导。 acadapp.ActiveDocument.ActiveViewport.GridOn = True acadapp.Active... 阅读全文
VB中对AutoCAD图形对象进行缩放操作
2011-06-11 21:22 by 精诚所至 金石为开, 1424 阅读, 0 推荐, 收藏, 编辑
摘要：用AutoCAD应用程序对象的ZoomExtents方法，可以显示图形的全部，使绘制的图形最大限度地充满绘图区域，代码ZoomExtents或AcadApp.ZoomExtents。 当某一部分绘制图形在显示区域之外，可以用ZoomAll方法，使图形全部显示出来，但是图形并不最大限度地充满绘图区域，代码ZoomAll或AcadAPP.ZoomAll。 利用ZoomCenter方法可以将绘制图形... 阅读全文
VB中对AutoCAD对象图形文件操作
2011-06-11 20:40 by 精诚所至 金石为开, 3259 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD图形的绘制、编辑均在其图形文件中进行，可以利用VB代码创建新的文件、打开已有文件、保存文件等。 VB中按按照以下步骤创建新的图形文件。 首先将VB于AutoCAD进行链接，可以用到典型的链接代码，然后在VB工程窗体中添加一个按钮用来由用户创建新的CAD图形文件，应用按钮的单击事件，在按钮上添加如下代码创建新的图形文件。 Private Sub Command1_Click... 阅读全文
利用VB与AutoCAD链接进行CAD二次开发
2011-06-11 19:38 by 精诚所至 金石为开, 7921 阅读, 0 推荐, 收藏, 编辑
摘要：利用VB进行AutoCAD二次开发，首先应该将VB于CAD进行链接：在编写VB代码之前，在VB编程环境中引用CAD对象库，在编写VB程序代码时，创建CAD对象启动运行CAD程序。 VB与CAD进行链接后，就可以利用AutoCAD对象及其下级对象的属性和方法，完成用VB语言在AutoCAD环境中的图形绘制和编辑操作，引用CAD对象库：在VB环境中选择“工程-引用”命令打开引用对话框，选中AutoC... 阅读全文
AutoLISP恢复系统变量到默认值
2011-06-11 16:37 by 精诚所至 金石为开, 1583 阅读, 0 推荐, 收藏, 编辑
摘要：在使用LISP时候，需要反复修改CAD中的一些系统变量，利用下面代码恢复绘图环境默认系统变量。(defun c:reset () (setvar "cmdecho" 1) (setvar "menuecho" 0) (setvar "highlight" 1) (princ) ) CMDECHO系统变量用来控制在AutoLISP的command函数运行时AutoCAD 是否回显提示和输入：0关闭回显1打开回显；MENUECHO用来设置菜单回显和提示控制位；HIGHLIGHT用来控制对象的亮显，它并不影响使用夹点选定的对象。 阅读全文
AutoLISP目标捕捉函数osnap
2011-06-10 22:36 by 精诚所至 金石为开, 3491 阅读, 0 推荐, 收藏, 编辑
摘要：Auto LISP提供的OSNAP函数所完成的功能与Auto CAD中的OSNAP命令完成的功能相似，捕捉目标的特征点。调用格式:（osnap 〈点〉 〈目标捕捉方式〉）功用及求值结果。该函数是用〈点〉先取屏幕图形目标，再根据〈目标捕捉方式〉求出该目标的特征点如（圆心、直线端点、切点、线段中点、交点等），并返回该特征点。若对给定〈点〉没有捕捉到目标，但找不到与指定捕捉方式相匹配的目标特征点。OSNAP则返回nil。目标捕捉方式只作一简述：NEA(Nearest)—捕捉靶区中心点位置最近的线、弧线或圆上的点。ENDP(Endpoint)—捕捉靶区中心点最近的线、弧线的端点。MID(Midpoin 阅读全文
AutoLISP绘图功能函数Command命令
2011-06-10 22:21 by 精诚所至 金石为开, 9045 阅读, 2 推荐, 收藏, 编辑
摘要：AutoLISP程序中可以利用Command命令能够调用几乎全部的CAD命令，来完成各种绘图任务，Command函数的参数可以是任意形式的LISP表达式，它是LISP提供的和CAD命令进行通行的接口它的参数就是各个CAD命令所需要的参数。例如可以利用Command函数调用CAD中的LINE命令绘制一条直线，函数格式如下：（comman “line” ‘（0,0） ‘(100,100) “”)运行该行代码，以远点为起点，（100,100）为终点绘制一条直线，这与在CAD命令提示符下输入line命令，再按照提示指定点的坐标是一个道理，最后的一个空格用来结束line命令。1. Auto CAD的命令 阅读全文
AutoCAD绘图环境相关的变量
2011-06-10 20:10 by 精诚所至 金石为开, 468 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCADde 系统变量是用来控制CAD的相关功能和绘图环境的，它可以控制很多命令的工作方式、存储当前图形和AutoCAD的相关配置信息、开关绘图模式等，在LISP语言中可以使用setvar函数设置系统变量也可以是使用getvar函数获取系统变量当前值，系统变量的类型有整形、坐标点、实数、字符串等。改变系统变量的值，可以使用setvar函数或者直接在Command提示符下输入系统变量名，除了那些CAD声明只读属性的系统变量外。 阅读全文
AutoCAD利用VB交互创建应用程序交互
2011-06-06 21:21 by 精诚所至 金石为开, 649 阅读, 0 推荐, 收藏, 编辑
摘要：可以使用COM技术，在VB中直接操作AutoCAD，创建于VBA功能类似的程序，VB能够直接打包生成安装文件，这种形式比VBA更加方便，并且更容易保护自己的程序。VB连接到AutoCAD主要用到CreateObject和GetObject函数，创建或者获得对ActiveX对象的引用。 连接到AutoCAD之后，就可以使用acadApp对象对AutoCAD进行操作，语法和操作方法与VBA完全一致。... 阅读全文
AutoVBA创建自定义下拉菜单
2011-06-06 18:54 by 精诚所至 金石为开, 1742 阅读, 0 推荐, 收藏, 编辑
摘要：使用VBA向AutoCAD中添加新的菜单，涉及以下操作，创建新的菜单，使用Add方法向PopMenus集合添加新的PopMenu对象，向菜单中添加新的菜单项；使用AddMenuItem方法；向菜单中添加分隔符，使用AddSeperator方法；通过VBA为菜单项指定加速键，使用给定菜单项的Label属性；添加级联子菜单，使用AddSubmenu方法创建子菜单；要删除菜单中的菜单项使用该菜单项的De... 阅读全文