autocad二次开发--曲线钢箱梁斜腹板放样展开

• 举例： typedef unsigned int tag_t, *tag_p_t;
用户界面接口
•
• • • •
信息窗口： UF_UI_Open_Listing_Window(),…,write,save,cl ose,… 对象选择：UF_UI_select_with_class_dialog()按 类选择；UF_UI_select_with_single_dialog()选 择单个实体对话框 文件选择：UF_UI_create_part()， UF_UI_open_part()； 获得输入：uc1600()获得字符串，uc1608实数/整 形输入， uc1607()获得整数输入，uc1609()实数
AcRx类
AcEd类
AcDb类
AcGe类
AcGi类
3．开发实例与作业
• DrawCurve例子
作业：根据曲线曲面理论，在AutoCAD 下作： • 1）Bezier曲线与曲面； • 2）Spline曲线与曲面 • 3）NURBS曲线与曲面。
4．基于AutoCAD的InteCAD介绍 天喻CAD（AutoCAD版）
程序调试
程序格式
//入口 extern "C" void __declspec(dllexport) ufsta( char *name, int *rtcode, int rtlen) { tag_t root_part_occ = NULL_TAG; tag_t displayed_part = NULL_TAG; strcpy(TopPartName," "); strcpy(TopPartName,""); strcpy(PathName,""); //装载AVIDM接口函数-结束 UF_MB_add_actions( actionTable); strcpy(name, ""); displayed_part = UF_PART_ask_display_part(); UF_PART_ask_part_name(displayed_ part,TopPartName);

关于Autocad二次开发的研究，基于Activex科技在有轨运输铁路线上的应用摘要：本文介绍了在Autocad二次开发的中所使用的工具。

在对ActiveX自动科技和Visual Basic进行比较之后，展示了为什么两者被选为开发方法，并给出了源代码。

这些源代码与数据库、Visual Basic和AutoCad之间的通信、关于AutoCAD的主体特点的提取以及释义有关。

这些应用程序很好地用户界面并且具有功能像项目管理、定制以及数据库的操作等等。

项目管理采用了不同的数据结构，这些数据结构主要是建立在不同的线路设计的不同阶段之上的，例如如可行性研究和有线运输的设计研究。

用户化反映了AutoCAD绘图的不同要求。

数据库的操作正在改变、添加、删除、再生、分类以及数据表的统计和记录。

这种软件实现了AutoCAD操作和Access数据库之间的无缝连接。

这给AutoCAD的主体特点带来的改变将会实时地影响数据库的记录。

与之相反，如果数据库已经发生变化，那么对于手工劳动而进行的AutoCAD的有轨运输来说，绘制线条就毫无必要。

这一软件能够自动地根据跟新的数据进行提取，它也展示了一些前期工作，这些前期工作是协调紧接着要进行的工作的前提。

经过北京城市铁路的应用，证明了本研究的可行性。

它减少了由人工干预而产生的错误，节省了设计的时间、促进了以后的行业并且加速了整个交通运输项目的进程。

如果本研究在其他相似行业能得到应用，将会有更广泛的应用前景。

研究背景：随着城市的飞速发展，必须得解决城市的交通问题。

中国是一个发展中国家，人口众多。

随着私家车数量的愈发增多，由机动车所引起的污染问题也变得越来越糟糕。

城市轨道交通因为速度快，污染和噪音少等特点，发展成为一种解决污染问题有效方法。

在过去的几十年里，中国已经有超过三十城市计划发展城市轨道交通。

北京、上海、天津、广州、香港拥有超过193.3千米长的城市轨道交通。

城市轨道交通的前景大好。

Dim startPoint(0 To 2) As Double, endPoint(0 To 2) As Double Dim LineObj as AcadLine startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0 endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0 Set LineObj = ThisDrawing.ModelSpace.AddLine(startPoint,endPoint)
AutoCAD VBA的语法
控制语句（判断语句、循环语句……） if\else\end if for…next 函数(function) 过程(sub) 参数传递 地址传递（byref） 值传递(byval)
AutoCAD宏的定制与调用
VBA工程的建立与加载 Load、unload、embed 宏 run、edit、run into
AutoCAD二次开发
Visual Basic for Application 二次开发技术
VBA简介
Visual Basic for Applications（VBA）是一 种Visual Basic的一种宏语言，主要能用来扩 展Windows的应用程式功能。 VBA是VB语言的子集，是寄生于VB和应用程 序的版本 AutoCAD的VBA开发以VB 6.0的语法为基础
VBA的代码示例
7、数据单位转换
jd = ThisDrawing.Utility.AngleToReal(30, 0) ’30度转换为弧度
பைடு நூலகம்
VBA的代码示例
8、用户交互
Dim retVal As String retVal = ThisDrawing.Utility.GetString(1, vbCrLf & "Enter your name: ") Dim startPnt As Variant, endPnt As Variant Dim prompt1 As String, prompt2 As String prompt1 = vbCrLf & "Enter the start point of the line: " prompt2 = vbCrLf & "Enter the end point of the line: " startPnt = ThisDrawing.Utility.GetPoint(, prompt1) endPnt = ThisDrawing.Utility.GetPoint(startPnt, prompt2) ThisDrawing.ModelSpace.AddLine startPnt, endPnt ThisDrawing.Application.ZoomAll

关于VB对AutoCAD二次开发学习笔记关于VB对AutoCAD二次开发学习笔记□By OYLS基于VB对AutoCAD的二次开发，主要是通过运用VB编程对AutoCAD软件中的基本绘图操作进行控制，了解AutoCAD软件中的常用命令。

在编程过程中我们要借助AutoCAD软件中的“帮助文件”，即“AutoCAD开发人员帮助”文档。

一、获取VB对AutoCAD的控制权：先定义变量acadApp,acadDoc:Public acadApp As AcadApplicationPublic acadDoc As AcadDocumentFunction boot_CAD() As BooleanOn Error Resume NextSet acadApp = GetObject(, "AutoCAD.Application")If Err ThenErr.ClearSet acadApp = CreateObject("AutoCAD.Application")If Err ThenMsgBox "您没有安装AutoCAD ，或安装版本错误！", vbOKOnly + vbInformation, "CAD简易绘图系统"boot_CAD = FalseBtOK = FalseExit FunctionEnd IfEnd IfSet acadDoc = acadApp.ActiveDocumentacadApp.Visible = Trueboot_CAD = TrueEnd Function需要说明的是，我们只有先对CAD获取了控制权以后才能有效地运用VB编程方式进行CAD的基本绘图操作。

不然，以后的各种对CAD的操作将无法得以实现。

二、基本绘图思路：先了解所绘对象的基本属性，可以说，也正是由于对象的各种属性才构成了一个特性为一而标准的实体。

AutoCAD二次开发教程复习总结第一篇：AutoCAD二次开发教程复习总结红色部分为答案空白或不确定CAD复习题及答案1、AutoLISP2、VisualLISP3、VBA4、ADS5、ObjectARX红色部分为答案空白或不确定6、.NET 托管API7、ActiveX Automation红色部分为答案空白或不确定8、Visual Java1、AutoCAD二次开发方式有哪些？各自优缺点？2、AutoCAD 中实现 API 的有哪些优点？3、 API 的三个主要的DLL文件是？4、简述 API所对应的版本。

5、简述AutoCAD数据库的组成。

AutoCAD数据库是用来管理当前图形中的图元实体和其他非几何信息的容器对象，一个AutoCAD数据库包含一套固定的符号表和命名的对象词典，每一个符号表包含一个特定符号红色部分为答案空白或不确定表记录类的实例，例如层表(AcDbLayerTable)中包含层表的记录，块表(AcDbBlockTable)中包含块表记录，所有的AutoCAD实体均包含于块表记录中。

词典提供了一种通用容器来存储对象，它可以保存AcDbObject对象以及其它对象，也可以创建新的对象词典，将新的数据库元素加入其中。

AutoCAD数据库的组成如图所示，从图中我们可以看出数据库主要由一下内容组成：1）层表AcDbLayerTable和层表记录AcDbLayerTableRecord。

2）块表AcDbBlockTable和块表记录AcDbBlockTableRecord。

AutoCAD中所有可见实体均存储在块表记录。

块表中包含有两条特殊的记录*MODEL_SPACE（模型空间）和*PAPER_SPACE（图纸空间）。

3）其他符号表和符号表记录。

4）命名对象词典。

缺省情况下当AutoCAD数据库被建立以后，词典中就包括了组词典以及MILINE样式词典。

5）符号表和命名对象词典都是存储数据库对象的容器,用于组织和管理数据库对象。

C#ObjectArxAutoCAD⼆次开发（转帖）1.开发基本资料准备⽤Vs2010进⾏Autocad 2010开发，⾸先下载ObjectArx 2010 SDK。

2.使⽤Visual Studio .NET来创建⼀个新的类库⼯程（1）建⽴类库项⽬启动Visual ，选择”⽂件>新建>⼯程”(File> New> Project)。

在新建⼯程对话框中选择⼯程类型为”Visual C#⼯程”，然后选择“windows”>”类库”模板，点击确定按钮来创建⼯程。

（2）添加引⽤在项⽬引⽤中添加acdbmgd.dll和acmgd.dll，默认位置在c:/ObjectARX 2010/inc-win32下。

添加引⽤后，展开引⽤，单击AcDbMgd和AcMgd，将其属性复制到本地分别改为False，否则可能会出现编译错误。

AutoCAD 2010 采⽤ .Net Framework 3.5 版本，Vs 2010 创建默认⼯程采⽤.Net Framework 4.0 版本，必须将⽬标框架改为Net Framework 3.5 。

修改⽅法：菜单项⽬>ClassLibrary1属性>应⽤程序>框架属性，选择 .Net Framework 3.5 就可以了。

（3）导⼊命名空间。

如：using Autodesk.AutoCAD.ApplicationServices;using Autodesk.AutoCAD.EditorInput;using Autodesk.AutoCAD.Runtime;（4）加⼊⾃定义命令新建HelloWorld的⾃定义AutoCAD 命令，可以这么做：[c-sharp]1. using System;2. using System.Collections.Generic;3. using System.Linq;4. using System.Text;5. using Autodesk.AutoCAD.ApplicationServices;6. using Autodesk.AutoCAD.EditorInput;7. using Autodesk.AutoCAD.Runtime;8. namespace ClassLibrary19. {10. public class Class111. {12. [CommandMethod("HelloWorld")]13. public void HelloWorld()14. {15. Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;16. ed.WriteMessage("Hello World");17. }18. }19. }该命令在当前命令⾏显⽰ Hello World。

AutoCAD在工程绘图中的二次开发运用作者：杨义强来源：《山东工业技术》2018年第21期摘要：通过对AutoCAD的二次开发运用探讨学习，掌握工程绘图中复杂制图的基本要领，主要从思路分析过程着手进行阐述。

关键词：工程绘图；AutoCAD；开发运用；AutoLISP语言DOI：10.16640/ki.37-1222/t.2018.21.1291 前言随着计算机运用的普及，AutoCAD制图在工程制图中占有重要地位，已经被全面运用在工程施工中的各个环节，代替了传统的手工制图。

但是在实际使用过程中，AutoCAD制图在绘制复杂曲线、曲面及三维造型方面就显得有些力不从心了，比如在技术交底及幻灯片制作等过程中需要用到更加详细的图例，如线路中线的圆曲线、缓和曲线，隧道主洞与车行横洞的曲面直观图，桩基螺纹钢筋的三维造型等，本文就工程中常见的桩基钢筋笼通过编写AutoCAD 的AutoLISP语言绘图进行简单分析、介绍，以期交流。

2 AutoLISP语言简介及Visual LISP工具AutoLISP语言是嵌于AutoCAD内部的计算机语言，它是AutoCAD开放式体系结构的具体表现，它是LISP语言和AutoCAD有机结合的产物。

使用AutoLISP可直接调用几乎全部的AutoCAD命令。

AutoLISP语言既具备一般高级语言的基本结构和功能，又具有一般高级语言所没有的强大图形处理功能，是当今世界上CAD软件中被广泛采用的语言之一。

AutoLISP是一种简便易学的解释性语言，具有很强的数据表处理功能，是开发AutoCAD的一种重要手段。

AutoCAD中大多数参数化程序都是针对二维平面图编制的。

实际上，立体图同样可以实现参数化绘图，在AutoCAD中编制实体的立体图参数化程序比其平面三视图程序更简单，而且立体图生成后，可以很方便地生成三视图、剖面图和轴侧图等。

Visual LISP为AutoCAD软件自带的AutoLISP程序开发的可视化软件工具，虽然Visual LISP是与Auto CAD软件结合在一起的，但是它其实是在独立于AutoCAD的另一个窗口运行的。

《商场现代化》2012年4月（上旬刊）总第679期目前AutoCAD 是应用最为广泛的通用交互式计算机辅助绘图与设计软件包，AutoCAD 的强大生命力在于它的通用性、多种工业标准和开放的体系结构，其通用性使得它在机械、电子、航空、船舶、建筑、包装、服装等领域得到了极为广泛的应用。

但是由于Au-toCAD 软件都不可能解决某行业用户在产品设计与制造中的全部问题，所以在AutoCAD 应用领域，更多的用户和技术人员要在基于AUTOCAD 的基础上，针对企业或行业的特殊需要进行二次开发，以满足本企业或某行业在产品设计、制造上的特殊要求，或者针对AutoCAD 的某个应用领域进行专门软件开发，以完成特殊的造型、计算、分析等专业应用要求。

一、AutoCAD VBA 简介Microsoft VBA 是一个面向对象的编程环境，可提供类似Visu-al Basic(VB)的丰富开发功能。

VBA 和VB 的主要差别是VBA 和AutoCAD 在同一进程空间中运行，提供的是具有AutoCAD 智能的、非常快速的编程环境。

VBA 可提供强大的窗体创建功能，为应用程序建立对话框及其他屏幕界面，可建立功能强大的模块级宏指令，提供类模块创建功能，利于组件重用，具备完善的数据访问与管理能力。

在AutoCAD 中实现VBA 有四大优点：1.Visual Basic 编程环境易于学习和使用。

2.VBA 可与AutoCAD 在同一进程空间中运行，这使程序执行得非常快。

3.对话框的构造快速而有效。

这使开发人员可以构造原型应用程序并迅速收到设计的反馈。

4.工程可以是独立的，也可以嵌入到图形中。

这样就为开发人员提供了非常灵活的方式来发布他们的应用程序。

二、获取VB 对AutoCAD 的控制权首先要获取对AutoCAD 的控制权，然后才能有效地运用VB 编程方式进行AutoCAD 的基本绘图操作，否则，接下来的各种对AutoCAD 的操作将无法得以实现。

自动化技术（Automation）允许一个应用程序驱动另外一个程序。驱动程 序被称为自动化客户，另一个为自动化服务器。自动化技术后来发展成为 ActiveX Automation。
整理课件
⑺Visual Java Java是最早由Sun公司创建的一种颇具魅力的程序设计语言，她是针对嵌 入系统而设计的。像许多开发语言一样，Java是一组实时库的集合，可为软件 开发者提供多种工具来创建软件、管理用户接口、进行网络通讯、发布应用程 序等。对AutoCAD用户和开发者而言，Java代表着新一代的编程语言，它主要 用于开发出全新的优秀产品。
近几年来，随着计算机软、硬件技术的飞速发展及其应用的普及，也带来 了化工领域使用计算机的浪潮。首先是各课程教学使用了CAI课件，学生们可 以清楚地看到各种物质的具体颜色，并可以看到动画反应，让学生们能够形象 生动地上课。然后是各种实验仿真软件的出现，让学生们不用亲自下到工厂， 也不用浪费任何原料，在没有危险的情况下就可以完成对实验过程或者是生产 流程的学习和实习。同时计算机可以对反应进行模拟，对实验数据的拟合都大 大方便了化工工作者。随之诞生的各种化工专用软件，给化学工业的发展注入 了新鲜血液，使化学工业的发展如虎添翼。
⑸自然数求幂
格式：(exp <数> )
功能：求e的<数>次幂值，e=2.71828
整理课件
几种主要的二次开发语言简介
⑴AutoLISP
AutoLISP语言是AutoCAD所支持的一种内嵌式语言，它由美国Autodesk公 司开发，其目的是使用户十分方便地利用AutoLISP编程语言对AutoCAD进行 二次开发，它采用了与LISP语言中的Common LISP最近的语法和习惯约定，同 时又针对AutoCAD增加了许多新的功能，使用户可以直接调用几乎全部的 AutoCAD命令，因此它既具有一般高级语言的基本结构和功能，又具有 AutoCAD强大的图形处理能力，是目前计算机辅助设计和绘图中较广泛采用的 语言之一。

一
起 ， 供 了一 个 非 常 强 大 的 接 口。它 不 仅 控 制 提
力而成 为工程 技术 人 员 最 为喜 爱 的绘 图 软件 ， 其 但
本 身计算 功 能不强 ， 法 解 决 一些 设 计 计算 和 数据 无 处 理等 问题 。传统 的计算 机辅 助机 械设计 通 常是采 用 高级语 言进 行设 计 计 算 ， 结果 存 储 为 标 准 结构 将
Ａｕｏ ＡＤ二 次开发 的基本 思路 、 ｔＣ 主要 步骤 和具 体 方法 。
关 键 词 ： Ａ； ｔＣ ＶＢ Ａｕｏ ＡＤ； 次 开 发 ； ｔ ｅＸ 二 Ａｃｉ ｖ 中 图 分 类 号 ： Ｐ ３ Ｔ ９ 文 献标 志码 ： Ａ 、
Ａｕｏ ＡＤ 以其 强 大 的交互 功 能 和 图形 处 理能 ｔＣ
结构是 相 同的 ， Ａ 依 附于 主应用 程序 Ａｕｏ Ａ ＶＢ ｔＣ Ｄ， 与主应 用程序 的通 信简单 而 高效 。 由于共享 内存空
轴 的箭 头 ， 图形 中 在 创建 了一 个 多 段 线 ，
图 １ 程序运行界面
然后使 用 Ｓ ｔ ｄｈ方 法设 置起点 和端 点 的宽度 ， ｅＷｉｔ 起 点宽度 设置 为 １ ５ 终点 宽度 为 ０ 获得箭 头 的效果 。 ．， ，
二 次开发 的方法 。
３ 应 用 Ｖ Ａ 开 发 Ａｕｏ Ａ 的程 序 实例 Ｂ ｔＣ Ｄ
利 用 Ａｕｏ ＡＤ ＶＢ 语 言 实 现 常 用 函数 几 何 ｔＣ Ａ
曲线 的 精 确 绘 制。 程 序 的 运 行 界 面 如
图 １所 示 ， 在 图 形 能
１ 二 次 开 发 工 具— — Ｖ Ａ Ｂ
间， 使它 具有 更快 的 执行 速 度 ， 语 法结 构 简 洁 ， 且 便

CAD二次开发在预应力钢束反弯曲线绘图中的应用摘要：在交通运输业顺速发展的今天，桥梁建设的大跨径化趋势也日趋明显，而大跨径桥梁目前尚无较好的软件及程序解决绘图过程中大梁的繁琐过程。

本文主要针对大跨径桥梁预应力钢束反弯曲线画法及各预应力钢束参数利用Visual LISP二次开发程序实现，缩短绘图时间，提高了大跨桥梁设计的准确性和效率。

关键词：桥梁预应力反弯曲线钢束参数二次开发1.概述【1】桥梁是供道路、渠道、管线、行人等跨越河流、山谷、海湾、其他线路或障碍物时的架空建筑物，桥梁是由上部结构（包括桥跨结构、桥面结构）、下部结构I（包括桥墩、桥台、基础）、支座、防护设备及调节河流构筑物等组成，桥梁按多孔跨径总长L（米）、单孔跨径L0（米）分为特大桥：L>1000 L0>150；大桥：100≤L≤1000 40≤L0≤150；中桥：30vla-object e1))(setq pt0 (vlax-safearray->list(vlax-variant-value (vla-get-startpoint obj1))))(setq pt1 (vlax-safearray->list(vlax-variant-value (vla-get-endpoint obj1))))(command “copy” e1 ““ p0 p0)(SETQ E4(ENTLAST))(command “rotate” E1 ““pt1180 )(SETQ P1(POLAR P0 pi 100 ))(command “line” p0 p1 ““)(SETQ E5(ENTLAST))(command “pedit” “m” e1 e4 e5 ““ ““ “j” ““ ““)(setvar “osmode” v1)(setvar “cmdecho” v2)(setvar “blipmode” v3) )4.结束语在autocad平台上进行二次开发，通过面向对象程序设计、参数化设计，将复杂的绘图过程简化成程序，嵌入autocad内部，随意调用，方便、灵活地完成各种编辑工作，能够缩短设计周期，提高绘图效率。

摘要本说明书主要是关于AutoCAD 2000的用VB语言二次开发的说明和利用VB 语言开发船舶标准件的源程序。

说明书中主要涉及到了，AutoCAD软件的使用、VB语言简介、船舶标准件的结构特点和技术要求和利用VB编制的船舶标准件程序。

论文中介绍了设计人员的设计思路。

船舶标准零件主要包括：螺栓、螺母、垫圈、键、销、滚动轴、承弹簧等。

船舶标准件的结构特点、图形画法及技术要求是本次设计的基础，熟练掌握并用AutoCAD VBA（Visual Basic for Application）语言对AutoCAD进行船舶标准零件二次开发，以达到下述目的：调用程序时出现对话框，输入要求的零件主要参数后能够自动生成零件图形。

并且图形要符合国家标准件的技术要求。

AutoCAD VBA（Visual Basic for Application）语言的任务是对AutoCAD 进行二次开发促使AutoCAD更高效的工作。

关键词：标准零件、AutoCAD VBA语言、AutoCAD的二次开发- Ⅰ-ABSTRACTManual this about 2000 AutoCAD with VB explanation and utilize VB language develop source program , shipping of standard component, language of secondary development mainly. Have involved mainly in the manual , use, VB, AutoCAD of software language brief introduction of, structure characteristic and specification requirement , shipping of standard component utilize shipping standard component procedure that VB work out. Have introduced the designer's mentality of designing in the thesis.Whether shipping standard part include mainly. Bolt , nut , washer , key , axis , bearing the spring of selling , rolling ,etc.. Structure characteristic , the technique of painting of the figure and specification requirement for the shipping standard component are foundations designed this time, know and language carry on shipping standard part secondary development to AutoCAD with AutoCAD VBA (Visual Basic for Application ) skillfully, in order to achieve the following purposes:Appear communication frame at the procedure of transfering, part required to input can produce the part figure automatically behind the main parameter. And the figure should accord with the specification requirement for the national standard component .AutoCAD VBA (Visual Basic for Application) task of language to carry on secondary development impel AutoCAD high-efficient work to AutoCADKEY WORDS: standard part、AutoCAD VBA language、Secondary development of AutoCAD- Ⅱ -前言计算机辅助制图是现代企业生产和设计的重要工具，AutoCAD是计算机辅助设计工具的一种，VB 是AutoCAD软件的重要组成部分。

AutoCAD VBA二次开发初级教程第一课：入门1.什么是Autocad VBA？VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令不可能完成的，只要学好VBA就可以做到，相信到时候您一定会得到同事的佩服、老板的器重。

2、VBA有多难？相信大家都知道Basic是的含义。

应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一定要提出批评，以便及时更正。

3、怎样学习VBA？介绍大家一个学习公式：信心+恒心=开心。

仔细阅读本教程，完成例题，在学习的过程中一定要多思考，多想一些是什么、为什么。

本教程将陆续发布在CAD 世界论坛上，您不需要付费就可以学习。

本作者在此郑重承诺：关于本教程中有任何疑问，可以跟贴提问，只要有时间，本人一定会耐心解答。

我不会发到任何人的邮箱中，您自己在论坛上找就可以了，请不要再向我索要这份教程。

4、现在我们开始编写第一个程序：画一百个同心圆第一步：复制下面的红色代码第二步：在模型空间按快捷键Alt+F8，出现宏窗口第三步：在宏名称中填写C100，点“创建”、“确定”第四步：在Sub c100()和End Sub之间粘贴代码第五步：回到模型空间，再次按Alt+F8，点击“运行”Sub c100()Dim cc(0 To 2) As Double '声明坐标变量cc(0) = 1000 '定义圆心座标cc(1) = 1000cc(2) = 0For i = 1 To 1000 Step 10 '开始循环Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆Next iEnd Sub也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。

根据锥坡线形特点 ， 其平面曲线需满足条件 ： （ １ ）
与边坡的坡脚线在交点 Ａ处相切； （ ２ ） 与 台前溜坡 的 坡脚线在交点 Ｂ处相切 ； （ ３ ） 曲线 的轨迹 中心应该在 锥坡顶点 Ｏ 在坡脚平面上 的投影。如 图 １ 所示。锥 坡平面曲线近似于椭 圆曲线 的一部分 ， 以下推导用椭
或台前 台侧放坡坡度不同时 ， 实现锥坡平面曲线 的绘
图与放样存在一定的困难 。
收 稿 日期 ： ２ ０ １ ３ —０ ３ —０ ３
２ （ １ ｊ 触堪 町障
２ （ ２ ） 蠢 峨臌撬
作者简 介： 李建 华（ １ ９ ８ １ 一） ， 男， 山西 忻州人 ， 硕 士， 工 程 师， 研 究方 向为桥梁结构设计。
Ａｂ ｓ ｔ ｒ ａ ｃ ｔ ： Ｉ ｎ ｐ ｒ ｏ ｃ ｅ ｓ ｓ ｏ ｆ ｄ ｅ ｓ ｉ ｇ ｎ ｉ ｎ ｇ ａ ｂ ｉｄ ｒ ｇ ｅ，ｔ ｈ ｅ ｒ ｅ ｉ ｓ ａ ｃ ｅ ｒ ・ ｔ ａ ｉ ｎ ｄ ｅ ｇ ｒ ｅ ｅ ｏ ｆ ｄ ｉ ｆｉ ｃ ｕ ｌ ｔ ｙ ｉ ｎ ｄ ｒ ａ ｗｉ ｎ ｇ ｃ ｏ ｎ ｉ ｃ ｐ ｉ ｔ ｃ ｈ ｉ ｎ ｇ ｃ ｕ ｒ ｖ ｅ ｗ ｈ ｉ ｌ ｅ ｔ ｈ ｅ ｂ ｉ ｒ ｄ ｇ ｅ ｉ ｓ ｏ ｂ ｌ ｉ ｑ ｕ ｅ，ｏ ｒ ｈ ａ ｓ ｄ ｉ ｆｅ ｒ ｅ ｎ ｔ ｓ ｌ ｏ ｐ ｅ ｉ ｎ ｄ ｉ ｆ － ｆ ｅ ｒ ｅ ｎ ｔ ｄ ｉ ｒ ｅ ｃ ｔ ｉ ｏ ｎ ｓ ．Ｔ ｈ ｅ ｒ ｅ ａ ｒ ｅ ｓ ｏ ｍｅ ｃ ｅ ｒ ｔ ａ ｉ ｎ ｖ ａ ｌ ｕ ｅ ｓ ｉ ｎ ｄ ｅ ｓ ｉ ｎ ｇ ｂ ｙ ｅ ｘ ｐ ｌ ｏ ｒ ｉ ｎ ｇ ｔ ｈ ｅ ｃ ｈ ｒａ ａ ｃ ｔ ｅ ｉｓ ｒ ｔ ｉ ｃ ｓ ｏ ｆ ｔ ｈ ｅ ｃ ｏ ｎ ｉ ｃ ｐ ｉ ｔ ｃ ｈ ｉ ｎ ｇ