cad画缓和曲线方法
在CAD中用样条曲线画缓和曲线
303.1518303°15'18"X Y SplineZH9665.6317087.8837087.883,9665.631HY9370.3697140.5667140.566,9370.369QZ8962.1647282.5967282.596,8962.164YH8594.0047509.0087509.008,8594.004HZ8366.4807704.4257704.425,8366.487087.883,9665.6317704.425,8366.48支距法现在都不怎么用了 给你个偏角法的计算ZH至i点的偏角 A=30xL的平方 除以派 除以R 除以LsZH至i点的弦长 C=L（ZH至i点的长）-L的5次方 除以90 除以R的平方 除以Ls的平方缓和曲线坐标公式X=L-L^5÷[40（RLS）^2]+L^9÷[3456（RLS）^4]–L^13÷[599040（RLS）^6]+L^17÷[175472640（RLS）^8]- L^21÷[7.80337152×1010（RLS）^10]Y=L^3÷[6（RLS）] - L^7÷[336（RLS）^3]+L^11÷[42240（RLS）^5] - L^15÷[9676800（RLS）^7]+L^19÷[3530096640（RLS）^9] - L^23÷[1.8802409472×1012园是C 曲线是SPL 样条曲线或者用 A画弧线（1）将“对象捕捉”中的“节点”选中（2）绘图-----单点-----选中一条线的起始点--------空格------输入距离（输入距离之前一定要先捕捉到第一个点，然后沿着这条线的方向去输入距离）-----空格------输入（3）你在标注的时候那些“点”就会被捕捉到大家多多指教！因为我不大会做动画，所以只能用文字说明,忘大家谅解：1.现做一个CAD脚本，会的人跳过（用Windows 文本另存为“.scr”文件）2.脚本编辑输入“SPLINE+空格键+Y坐标+，+X坐标+空格键+Y坐标+，+X坐标……” 以此类推！点输的越密，线条越平滑。
在CAD中进行曲线绘制的方法
在CAD中进行曲线绘制的方法在CAD软件中进行曲线绘制是一项非常基础却又重要的功能。
本文将介绍一些常用的绘制曲线的方法和技巧，帮助大家更好地使用CAD软件。
首先，我们需要选择合适的绘制工具。
在CAD软件中，一般有多种绘制曲线的工具可供选择，如直线工具、圆弧工具、样条曲线工具等。
根据实际需求，我们可以选择不同的工具来绘制各种类型的曲线。
第一种曲线绘制方法是使用直线工具。
直线工具可以用来绘制直线段，但也可以用来绘制一些简单的曲线。
首先，我们需要选择直线工具，并确定起点和终点。
然后，在确定起点后，我们可以通过在终点前单击并拖动鼠标来创建一个曲线控制点，进而调整曲线的形状。
最后，我们可以再次单击鼠标来确定终点，这样就完成了曲线的绘制。
第二种曲线绘制方法是使用圆弧工具。
圆弧工具可以用来绘制圆弧和弧段。
首先，我们需要选择圆弧工具，并确定圆心和起始点。
然后，通过拖动鼠标来确定圆弧的半径和角度。
最后，我们可以再次单击鼠标来确定终点，这样就完成了圆弧的绘制。
第三种曲线绘制方法是使用样条曲线工具。
样条曲线工具可以用来绘制复杂的曲线。
首先，我们需要选择样条曲线工具，并确定起点。
然后，通过在绘制路径上单击并拖动鼠标来创建曲线控制点，从而调整曲线的形状。
我们可以使用多个控制点来创建复杂的曲线。
最后，我们可以再次单击鼠标来确定终点，这样就完成了样条曲线的绘制。
除了上述的基本绘制方法外，还有一些常用的曲线绘制技巧。
例如，我们可以使用绘制连接工具来将多个曲线连接在一起，形成一个整体。
我们还可以通过调整曲线的节点来改变曲线的形状。
另外，我们可以使用修剪和延伸工具来对曲线进行修剪和延伸操作，以满足实际需求。
在进行曲线绘制时，我们还需注意一些绘图原则。
首先，我们应该保持绘图的准确性和精度，避免出现绘图误差。
其次，我们应该根据实际需求来选择合适的绘制工具和技巧。
最后，我们应该进行适当的编辑和修改，以达到理想的曲线效果。
只有掌握了这些技巧和原则，我们才能更好地进行CAD中的曲线绘制。
CAD里面如何绘制缓和曲线
CAD里面如何绘制缓和曲线
缓和曲线是曲线的一种，我们在CAD中无法直接绘制，没有工具和命令，所以需要下载一个工具。
那么大家知道CAD里面如何绘制缓和曲线吗?下面是小编整理的CAD里面如何绘制缓和曲线的方法，希望能帮到大家!
CAD里面绘制缓和曲线的方法下载一个缓和曲线.LSP工具。
解压下载好的压缩文件，复制解压好的缓和曲线.LSP。
把它拷贝到你的CAD安装包中的support文件中。
加载程序
打开cad，输入加载命令ap。
进入程序加载框，找到CAD安装的位置和support文件夹。
找到缓和曲线.LSP工具，选中它，点击加载。
然后再点击关闭。
绘制曲线
程序加载完成后，就可以绘制缓和曲线了。
根据提供的信息，作出曲线的两条切线。
输入绘制缓和曲线的命令hh，回车。
选择第一条直线，点击第一条切线上任意即可。
选中第二条直线，点击第二条切线任意一点即可。
根据提供的曲线要素，输入曲线的半径，例如本次输入为半径500，回车。
根据提供的曲线要素，输入缓和曲线的长度，例如本次输入的长
度为20，回车。
完成以上步骤后，系统进入自动绘图，稍等片刻，完成绘图。
曲线要素标注
指定曲线要素标注文字的位置。
调整字体的大小，细化它的位置，完成绘制。
运用CAD进行图形平滑和曲线调整的技巧
运用CAD进行图形平滑和曲线调整的技巧CAD（计算机辅助设计）是一种强大的软件工具，可以帮助设计师创建和编辑各种图形。
在CAD中，平滑曲线和调整图形是设计过程中常见的任务。
下面将介绍一些运用CAD进行图形平滑和曲线调整的技巧。
1. 平滑曲线平滑曲线可以使图形更加流畅和美观。
在CAD中，有几种方法可以实现平滑曲线。
方法一：折线平滑选中需要平滑的折线，然后使用“曲线平滑”工具。
这将使折线自动转变为光滑的曲线。
方法二：使用曲线拟合工具使用曲线拟合工具可以将直线和曲线平滑连接起来。
选中需要连接的直线和曲线，然后使用“曲线拟合”工具。
CAD将会自动创建一个平滑的曲线。
方法三：使用曲线编辑工具曲线编辑工具可以手动调整曲线的控制点，使其更加平滑。
选中曲线，然后使用“曲线编辑”工具。
通过拖动控制点来调整曲线的形状和平滑度。
2. 调整图形除了平滑曲线，CAD还提供了一些工具和功能，可以对图形进行细微的调整。
方法一：调整节点选中需要调整的节点，然后使用“节点编辑”工具。
通过移动和删除节点，可以修改图形的形状。
方法二：使用偏移工具偏移工具可以通过平行或垂直于原始图形创建一个新的图形。
选中图形，然后使用“偏移”工具。
输入偏移的距离，并选择偏移的方向，CAD将会自动创建一个新的图形。
方法三：使用对称工具对称工具可以通过对称轴镜像图形的一部分来创建对称图形。
选中图形，然后使用“对称”工具。
输入对称轴，CAD将会自动创建对称的图形。
总结：CAD软件在图形平滑和曲线调整方面提供了多种功能和工具。
通过使用曲线平滑、曲线拟合和曲线编辑工具，可以使曲线更加流畅。
此外，通过节点编辑、偏移和对称工具，可以对图形进行细微的调整。
熟练掌握这些技巧，将帮助设计师创建出更加美观的图形。
cad画缓和曲线方法
在AutoCAD中缓和曲线的几种画法2011-06-25 20:32在AutoCAD中画缓和曲线比较困难，目前常用的画法有AutoLISP程序法（需要已知曲线要素）、坐标脚本法（需事先计算好各特征点及其他点为的坐标）、曲线命令法（需事先准备各特征点坐标），现分别介绍如下：画法一：缓和曲线AutoLISP 应用程序一、制作缓和曲线AutoLISP 应用程序复制AutoLISP程序源代码，打开“记事本”，粘贴进去后，另存为文件名“缓和曲线.LSP”，保存类型为“所有文件”（AutoLISP程序源代码见附件）二、加载缓和曲线AutoLISP应用程序在命令行输入“appload”打开自动加载对话框。
在对话框的“查找范围”里找到“缓和曲线.LSP”的那个程序，选中后，点击【加载】，显示“已成功加载缓和曲线.LSP”后，关闭对话框，ok你那个程序自动启动加载了。
三、在CAD中画出切线长四、运行程序在命令行中输入hh回车五、选择两条切线，然后输入曲线半径如：2204.5回车六、输入缓和曲线长，如270，绘图完成！画法二：坐标脚本法1.现做一个CAD脚本，会的人跳过（用Windows 文本另存为“.scr”文件）2.脚本编辑输入“SPLINE+空格键+Y坐标+，+X坐标+空格键+Y坐标+，+X坐标……” 以此类推！点输的越密，线条越平滑。
也可以用EXCEL算出各个点的坐标后粘贴进去，然后按照“SPLINE+空格键+Y坐标+，+X坐标+空格键+Y坐标+，+X坐标……”格式编辑。
3.进入CAD，运行脚本，就行了！注意：你可能输入了100个点，而出现的确只有几个点，这个很正常，你把图像删除了，多运行几次就行，一般不超过4次。
画法三：使用真样条曲线命令举例如下：输入导线：pline命令绘制1、2、3各点，其对应坐标如下x1=213.7748 y1=92.1117x2=313.7748 y2=92.1117x3=399.6787 y3=143.3026绘制通过ZH、HZ、QZ、HY和YH各点的与路线导线相切的含缓和曲线的平曲线。
利用CAD进行曲线调整与优化
利用CAD进行曲线调整与优化在设计和工程领域中，CAD(计算机辅助设计)软件被广泛应用于创建和修改各种类型的曲线。
曲线的调整和优化是设计过程中非常关键的一步，它可以确保曲线的平滑性、连续性和准确性。
CAD软件提供了强大的工具和功能，使得曲线的调整和优化变得更加简单和高效。
曲线调整是指通过改变曲线的形状、位置或属性，使其满足特定的设计要求。
例如，在工程设计中，可能需要调整道路的曲线使其符合交通规范；在产品设计中，可能需要调整曲线的形状以提高产品的性能或美观度。
CAD软件提供了多种工具和技巧来完成这些任务。
其中一个常用的曲线调整工具是“修整”功能。
修整允许用户通过添加、删除或移动曲线的控制点来调整曲线的形状。
通过选择适当的控制点并进行相应的操作，可以在保持曲线平滑度的同时，改变曲线的弯曲程度和位置。
另一个常用的曲线调整工具是“拉伸”功能。
拉伸可以通过在曲线上选择一个或多个点，并将它们沿指定方向拉伸，来改变曲线的形状。
这种方法通常用于微调曲线的局部曲率或变换整个曲线的形状。
此外，CAD软件还提供了一些曲线优化工具，用于改进曲线的连续性和光滑度。
其中一个常用的优化工具是“平滑”功能。
平滑允许用户选择曲线上的一组点，并通过自动调整它们的位置和曲率，使曲线更加光滑和连续。
这种工具对于去除曲线中的尖锐角和突变很有帮助，使曲线在视觉上更加流畅。
另一个常用的优化工具是“近似”功能。
近似允许用户选择曲线上的一组点，并通过替换它们为更少数量的控制点，来简化曲线的形状。
这样可以大大减少曲线的复杂性，从而提高计算效率和性能。
除了这些基本的调整和优化工具外，CAD软件还提供了许多高级功能和算法，用于更复杂和精细的曲线调整和优化。
例如，曲线拟合功能可以根据给定的数据点，自动拟合出最符合曲线的函数。
曲线平台化功能可以将曲线转换为一系列直线段或圆弧段，以提高计算和渲染效率。
综上所述，利用CAD进行曲线调整和优化是设计和工程领域中非常重要的一步。
CAD绘制曲线的方法与技巧
CAD绘制曲线的方法与技巧CAD（Computer-Aided Design，计算机辅助设计）软件是现代工程设计中不可或缺的工具之一。
在CAD软件中，绘制曲线是常见且重要的任务。
本文将介绍CAD绘制曲线的方法与技巧，帮助读者更好地掌握这一技能。
首先，我们来了解几种常见的CAD软件中绘制曲线的方法。
1. 画弧（Arc）：画弧是绘制曲线最常用的方法之一。
在CAD软件中，选择“画弧”工具，然后选择起始点和终止点，再选择弧的半径或者通过指定圆心和起始点来确定圆弧的形状。
这种方法适用于绘制圆弧、弧线等各种曲线形状。
2. 画样条曲线（Spline）：画样条曲线是一种更灵活的曲线绘制方法。
在CAD软件中，选择“画样条曲线”工具，然后选择曲线上的控制点，CAD软件会自动生成曲线，通过调整控制点的位置来改变曲线的形状。
样条曲线适用于绘制自然曲线，如波浪线、弯曲的线条等。
3. 参数方程绘制曲线：一些CAD软件支持通过输入曲线的参数方程来绘制曲线。
在CAD软件中，选择“参数方程”工具，然后输入曲线的参数方程，软件会自动绘制曲线。
这种方法适用于绘制复杂的曲线，如椭圆、双曲线等。
除了以上几种基本的绘制方法外，还有一些绘制曲线的技巧可以帮助提高效率和精度。
1. 使用捕捉功能：CAD软件通常提供了各种捕捉功能，如吸附点、吸附线、吸附圆、吸附曲线等。
在绘制曲线时，可以使用这些捕捉功能来吸附到其他图形元素的节点或边界，帮助保持曲线的对齐和精确度。
2. 使用草图工具：CAD软件通常提供了一些草图工具，如跟随模式、自由草图等。
在绘制曲线时，可以使用这些草图工具来辅助手绘曲线，使曲线更加自然且具有艺术感。
3. 使用曲线编辑工具：CAD软件通常提供了一些曲线编辑工具，如剪切、平滑、过滤等。
在绘制曲线后，可以使用这些编辑工具来微调曲线的形状和细节，使曲线更加理想和符合设计要求。
4. 使用曲线变换功能：CAD软件通常提供了一些曲线变换功能，如拉伸、扩展、旋转等。
利用CAD进行绘制和编辑曲线
利用CAD进行绘制和编辑曲线CAD（计算机辅助设计）是一种强大的工具，广泛应用于各行各业。
在设计过程中，绘制和编辑曲线是非常重要的一环。
以下是一些使用CAD进行曲线绘制和编辑的技巧和教程。
首先，在CAD中绘制曲线时，可以使用不同的命令和工具。
一种常用的方法是使用直线段和曲线段命令。
通过点击鼠标来确定曲线的起点、终点和中间控制点，可以创建平滑的曲线。
另一种方法是使用弧线命令，通过指定半径、起始角和终止角来创建圆弧形状。
还可以使用样条曲线命令来绘制更复杂的曲线形状，例如贝塞尔曲线或样条曲线。
此外，在CAD中编辑曲线也是非常重要的。
一种常见的编辑方法是修改曲线的顶点。
通过选择曲线上的顶点，并移动、删除或添加新的控制点，可以改变曲线的形状。
还可以使用拉伸、旋转和缩放等命令来改变曲线的大小、方向和比例。
如果需要对曲线进行修剪或延伸，可以使用修剪和延伸命令。
这些命令可以根据实际需要轻松地修改和调整曲线。
此外，CAD还提供了一些高级的曲线编辑功能。
例如，可以使用曲线编辑器来平滑、阻尼或调整曲线的张力和曲率。
这些参数可以根据需要进行微调，以实现所需的曲线效果。
另外，还可以使用曲线阵列命令来创建复杂的曲线图案，例如花纹或曲线行列。
在使用CAD进行曲线绘制和编辑时，还要注意一些技巧和细节。
首先，建议使用图层或对象属性来区分不同的曲线元素。
通过将曲线分组或分配到不同的图层，可以更好地组织和管理设计文件。
此外，建立精确的参照和标尺是非常重要的。
通过设置准确的坐标系和标尺线，可以确保曲线的位置和尺寸符合设计要求。
最后，在绘制和编辑曲线时，要时刻保持设计的一致性和美感。
通过对曲线进行审美和比例的调整，可以创建出更吸引人的设计作品。
总结起来，利用CAD进行绘制和编辑曲线是一项基本而重要的技能。
通过熟练掌握各种曲线命令和工具，以及灵活运用曲线编辑的技巧，可以创造出各种出色的设计作品。
在实际应用中，不断练习和探索CAD的功能和特点，将使您成为一名优秀的CAD设计师。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
在AutoCAD中缓和曲线的几种画法2011-06-25 20:32在AutoCAD中画缓和曲线比较困难，目前常用的画法有AutoLISP 程序法（需要已知曲线要素）、坐标脚本法（需事先计算好各特征点及其他点为的坐标）、曲线命令法（需事先准备各特征点坐标），现分别介绍如下：画法一：缓和曲线AutoLISP 应用程序一、制作缓和曲线AutoLISP 应用程序复制AutoLISP程序源代码，打开“记事本”，粘贴进去后，另存为文件名“缓和曲线.LSP”，保存类型为“所有文件”（AutoLISP程序源代码见附件）二、加载缓和曲线AutoLISP应用程序在命令行输入“appload”打开自动加载对话框。
在对话框的“查找范围”里找到“缓和曲线.LSP”的那个程序，选中后，点击【加载】，显示“已成功加载缓和曲线.LSP”后，关闭对话框，ok你那个程序自动启动加载了。
三、在CAD中画出切线长四、运行程序在命令行中输入hh回车五、选择两条切线，然后输入曲线半径如：2204.5回车六、输入缓和曲线长，如270，绘图完成！画法二：坐标脚本法1.现做一个CAD脚本，会的人跳过（用Windows 文本另存为“.scr”文件）2.脚本编辑输入“SPLINE+空格键+Y坐标+，+X坐标+空格键+Y坐标+，+X坐标……” 以此类推！点输的越密，线条越平滑。
也可以用EXCEL算出各个点的坐标后粘贴进去，然后按照“SPLINE+空格键+Y坐标+，+X坐标+空格键+Y坐标+，+X坐标……”格式编辑。
3.进入CAD，运行脚本，就行了！注意：你可能输入了100个点，而出现的确只有几个点，这个很正常，你把图像删除了，多运行几次就行，一般不超过4次。
画法三：使用真样条曲线命令举例如下：输入导线：pline命令绘制1、2、3各点，其对应坐标如下x1=213.7748 y1=92.1117x2=313.7748 y2=92.1117x3=399.6787 y3=143.3026绘制通过ZH、HZ、QZ、HY和YH各点的与路线导线相切的含缓和曲线的平曲线。
通过计算，五个点的直角坐标为：ZH：X=232.9548 Y=92.1117HY：X=285.3608 Y=94.4667QZ：X=311.8101 Y=99.2371YH：X=336.9780 Y=108.6801HZ：X=383.6319 Y=133.7401使用真样条曲线命令绘制含缓和曲线的平曲线的基本操作步骤如下：Command（命令）: Spline(启动真样条曲线命令)object/<Enter first point>（指定起点）:232.9548,92.1117(通过ZH)Enter point :285.3608,94.4667Close/Fit Tolerance/<Enter point>（指定下一个点）:311.8101,99.2371<通过QZ>Close/Fit Tolerance/<Enter point> （指定下一个点）:336.9708,108.6801<通过YH>Close/Fit Tolerance/<Enter point>（指定下一个点）:383.6319,133.7401<通过HZ>Close/Fit Tolerance/<Enter point>（指定下一个点）:<加如回车>（选择输入切点的模式）Enter star tangent（指定起点切向）:232.9548,92.1117 (输入起点切点)Enter star tangent（指定端点切向）:383.6319，133.7401 （输入终点的切点）附件：缓和曲线AutoLISP 程序源代码;;多义线摹拟缓和曲线。
;;输入起止直线、半径、缓和曲线长或设计车速。
;;命令：HH(defun com_p()(setq l 0)(command "ucs" "o" (list (- 0 x1) 0 0))(command "pline" (list 0 0 0) "w" "0" ""(repeat 1000(setq l (+ l (/ Ls 1000))x (+ (- l (/ (* l l l l l) 40 C C)) (/ (* l l l l l l l l l) 3456 C C C C))y (* id__ (+ (- (/ (* l l l) 6 C) (/ (* l l l l l l l) 336 C C C)) (/ (* l l l l l l l l l l l) 42240 C C C C C))));setq(command (list x y 0)));repaet);command(setq pt5 (trans (list x y 0) 1 0)));com_p(defun ll_v()(setq V (getreal "\nGive Velocity:")Ls1 (* V 0.85)Ls2 (/ (* 0.0357 V V V) R)Ls (max Ls1 Ls2 (/ R 9))Ls (* (fix (/ Ls 10)) 10.0));setq(if (> Ls R) (setq Ls R))(ll_d));ll_v(defun ll_d()(setq os (getvar "osmode"))(setvar "osmode" 0)(setq C (* Ls R)q (- (+ (- (/ Ls 2) (/ (* Ls Ls Ls) 240 R R)) (/ (* Ls Ls Ls Ls Ls) 34560 R R R R)) (/ (* Ls Ls Ls Ls Ls Ls Ls) 8386560 R R R R R R))pt1 (cdr (assoc 10 (entget (car p1))))pt2 (cdr (assoc 11 (entget (car p1))))pt10(polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))pt3 (cdr (assoc 10 (entget (car p2))))pt4 (cdr (assoc 11 (entget (car p2))))pt20(polar pt3 (angle pt3 pt4) (/ (distance pt3 pt4) 2))p (+ (- (/ (* Ls Ls) 24 R) (/ (* Ls Ls Ls Ls) 2688 R R R)) (/ (* Ls Ls Ls Ls Ls Ls) 506880 R R R R R))jd (inters pt1 pt2 pt3 pt4 nil)alf1(angle pt10 jd)alf2(angle pt20 jd)alf (- (angle jd pt20) alf1));setq(if (or (> alf pi) (and (< alf 0) (> alf (- 0 pi))))(progn(setq id__ -1)(if (> alf pi) (setq alf (- (+ pi pi) alf)) (setq alf (abs alf))));progn(progn(setq id__ 1)(if (<= alf (- 0 pi)) (setq alf (+ pi pi alf))));progn);if(setq x0 (/ (* (+ p R) (sin(/ alf 2.0))) (cos(/ alf 2.0)))x1 (+ x0 q)Cl (+ (* alf R) Ls)E (- (/ (+ R p) (cos(/ alf 2))) R));setq(command "ucs" "o" jd)(command "ucs" "z" (/ (* 180 alf1) pi))(com_p) (setq pt6 pt5)(setq ppt1 (list x1 0 0))(command "ucs" "")(command "ucs" "o" jd)(command "ucs" "z" (/ (* 180 alf2) pi))(setq id__ (- 0 id__)) (com_p)(setq ppt2 (list x1 0 0))(command "ucs" "")(if (> (abs(distance jd pt1)) (abs(distance jd pt2)))(setq ptt1 pt1)(setq ptt1 pt2));if(setq ptt2 (polar jd alf1 (- 0 x1)))(thh p1 ptt1 10)(thh p1 ptt2 11)(if (> (abs(distance jd pt3)) (abs(distance jd pt4)))(setq ptt3 pt3)(setq ptt3 pt4));if(setq ptt4 (polar jd alf2 (- 0 x1)))(thh p2 ptt3 10)(thh p2 ptt4 11)(if (= id__ 1) (command "arc" pt5 "e" pt6 "r" R) (command "arc" pt6 "e" pt5 "r" R)) (setq alfd (angf alf))(setvar "osmode" os)(command "cmdecho" "1")(command "text" pause pause "" (strcat "偏角＝" alfd))(command "cmdecho" "0")(command "text" "" (strcat "半径＝" (rtos R 2 2)))(command "text" "" (strcat "切线长＝" (rtos x1 2 2)))(command "text" "" (strcat "曲线长＝" (rtos Cl 2 2)))(command "text" "" (strcat "外距＝" (rtos E 2 2)))(command "text" "" (strcat "缓和曲线长＝" (rtos Ls 2 2))));ll_d(defun angf (alf)(setq alff (angtos alf 1 4)n 1kk (strlen alff))(repeat kk(setq alfn (substr alff n 1))(if (= alfn "d")(setq nn n));if(setq n (+ n 1)));repeat(strcat (substr alff 1 (- nn 1)) "%%" (substr alff nn)));angf(defun c:hh(/ p1 p2 pt1 pt2 pt3 pt4 pt5 pt6 pt10 pt20 id__ R V Ls E p3r1 x y l x0 x1 C jd alf alf1 alf2 q p Cl Ls1 Ls2) (command "ucs" "")(setq p1 nil p2 nil)(while (= p1 nil) (setq p1 (entsel "\n拾取第一条直线:"))) (redraw (car p1) 3)(while (= p2 nil) (setq p2 (entsel "\n拾取第二条直线:"))) (redraw (car p2) 3)(initget 1)(setq R (getdist "\n请输入弯道半径R: "))(initget 1 "Ls V")(setq p3 (getdist "\n输入缓和曲线长度(Ls)或[设计速度(V)]：")) (if (= p3 "V") (ll_v) (progn (setq ls p3) (ll_d)))(princ));eline(defun thh(len pt h)(setq en_data (entget (car len))old_data (assoc h en_data)new_data (cons h pt)en (subst new_data old_data en_data));setq(entmod en));thh。