本例使用 WindowTop、WindowLeft、Width 和 Height 特性将 AutoCAD“应用程序”窗口放在屏幕的左上角,并将其大小调整为宽 400 像素、高 400 像素。 Sub Ch3_PositionApplicationWindow()     ThisDrawing.Application.WindowTop = 0     ThisDrawing.Appli...
日期:2012-06-10 浏览:6524次 评论:0 阅读全文
本样例说明如何将 AutoCAD 切换到图纸空间、创建浮动视口、设置视图以及启用视口。 Sub Ch9_SwitchToPaperSpace()    ' 将活动空间设置为图纸空间     ThisDrawing.ActiveSpace = acPaperSpace       ' 创建图纸...
日期:2012-06-10 浏览:9856次 评论:0 阅读全文
  Delphi与AutoCAD进行连接(ActiveX),可以开发出很多程序。VB API手册中也详细了讲述了关于VBA开发CAD的方法。但是有些方法并没有实例,比如选择当前画布中所有对象。    在我们开发一个小程序的时候,有时候会遇到实时进行修改的情况。如果不进行原对象的删除操作,将在不同参数下出现许多对象。比如我们要...
日期:2012-06-01 浏览:4219次 评论:0 阅读全文
Var a,b,c :Integer;       x1,x2 :Real;   Procedure Solve(a,b,c :Integer;Var Fcsumx,Fcsumy :Real);   begin     if sqr(b)-4*a*c >= 0 then     begi...
日期:2012-05-30 浏览:4611次 评论:1 阅读全文
  获取MAC地址有很多种方法,可以读取注册表,可以读取底层信息等等。本例采用调用系统dll方法获取网卡MAC地址。在该例子的基础上稍加修改就可以用网卡MAC地址进行软件加密。  注意:必须在uses部分加入NB30   演示: //代码如下:  unit Unit1; interface uses    Windows,&n...
日期:2012-05-30 浏览:4044次 评论:0 阅读全文
  GetPoint 方法提示用户在 AutoCAD 命令提示下给出点的定义。PromptPointOptions 对象允许用户控制输入和如何显示提示信息。PromptPointOptions 对象的 UseBasePoint 和 BasePoint 属性控制是否从基点绘制一条橡皮线。PromptPointOptions 对象的 Keywords 属性允许用户定义用户可以在命令提示中输入除指定点外的关键...
日期:2012-05-30 浏览:4575次 评论:0 阅读全文
  Editor 对象是 Document 对象的子对象,定义了用户输入方法。用户输入方法在 AutoCAD 命令行中或动态输入工具提示中显示一个提示信息,并且要求输入各种不同类型的值。这种用户输入对于交互式输入屏幕坐标、图元选择、短字符串或数值非常有用。如果应用程序要求输入多个选项或值,则使用 Windows 窗体可能比使用单个...
日期:2012-05-30 浏览:2457次 评论:0 阅读全文
  本例使用 Open 方法打开现有图形。在打开图形前,代码将检查文件是否存在。    namespace ClassLibrary3;  interface  uses   Autodesk.AutoCAD.Runtime,    Autodesk.AutoCAD.ApplicationServices,   Autodesk.AutoCAD.EditorInput,  ...
日期:2012-05-30 浏览:3020次 评论:0 阅读全文
《delphi.net二次开发AutoCAD》系列文章是2010年我学习autocad .net二次开发的时候写在自己的论坛中的,当时用的一个免费论坛,不知道什么原因被关闭了,文章也没取出来。现在又开通了,抓紧把文章down下来重新发布到这里。  废话不多说,文章如下:   个人比较喜欢使用delphi进行小软件的制作,学的不是很深,可...
日期:2012-05-30 浏览:2356次 评论:0 阅读全文
   前些日子下载了 Embarcadero RAD Studio XE, 装了之后, 发现它带了几个工具,如 FinalBuilder for Embarcadero , AutomatedQA for Embarcadero, 于是抽时间研究了一下 FinalBuilder,这是一个GUI的自动化工具,用来完成构建, 测试,发布等等。并且允许对这一过程进行调试。Embarcadero RAD Studio XE 带的是一...
日期:2012-04-08 浏览:2272次 评论:0 阅读全文
  •