Autodesk Advance Steel 2019中文 64位

　　autocad advance steel 2019是一款适用于钢结构详图设计的三维建模软件，新程序支持螺旋加工功能，该功能从给定的中心点创建螺旋刀具路径，在给定的边界内产生恒定的接触。非常适用于圆形浅部件，使用最大40度的刀具接触角，以及更多垂直面的轮廓通道，细节的中心点自动定位，或者由用户确定，该策略还支持工具接触角；径向功能与上述功能相似，像螺旋加工一样，径向加工因此从中心点开始，具有加工径向零件的能力，可以选择停止径向通道的中心，在那里它们变得非常密集，细节的中心点自动定位，因此，该程序可以与工具接触角一起使用；提供的3D口袋铣削是有效去除大量材料的主要策略。该部件是一层一层，平滑，交错的轮廓跟随，在同步铣削过程中完全清除。为避免直接浸入，工具可通过螺旋线或轮廓斜面进入工件，为了保持高进给速度和减少加工时间，通过平滑工具移动避免了方向的急剧变化。方便又快捷，需要的用户可以下载体验

新版功能

　　1、Advance Steel 2019提供了更好的钢筋设计方案

　　2、可以对建筑方面的钢筋结构设计

　　3、可以分析钢筋结构的稳定性

　　4、拥有了模型制作功能，可以在软件上设计出一个最佳的结构模型

　　5、内置一个元件库，可以为您提供需要的所有钢筋元件

　　6、钢材料也是可以在软件上选择的

　　7、Advance Steel 2019也是可以 选择板材的

　　8、支持添加自己项目的钢筋以及板材

　　9、支持从Advance Steel 2019软件上直接使用官方提供的板材

　　10、提供的设计方案也是非常丰富的

　　一、钢建模

　　1、参数钢连接

　　即用型连接保险库可帮助节省时间。

　　2、内置连接设计引擎

　　实时检查钢连接设计。

　　3、楼梯，栏杆和笼梯

　　模型杂项钢结构更快。

　　4、钣金和折板工作

　　更快地创建任何形状的折叠元素。

　　5、制作数据信息

　　访问和传输制造数据和属性。

　　6、Advance Steel的Dynamo扩展

　　使用可视化编程工具创建参数化复杂结构。

　　7、选择并查看模型的某些部分

　　隔离并显示选定的元素。

　　8、智能结构物体

　　对象库和向导实现更快速的建模。

　　二、详图和文件

　　1、直接在绘图上创建标注

　　从现有图形中的选定区域创建调出并为其指定一个特定比例。

　　2、总布置图

　　在现场制作更清晰的图纸进行安装。

　　3、钢铁商店图纸

　　为制造生成更准确的图纸。

　　4、NC数据

　　为CNC车间机器生成数据。

　　5、创建更准确的物料清单

　　根据设计数据自动生成BOM。

　　6、文档管理器

　　控制和跟踪您的文档。

　　三、互通性

　　1、与Revit双向链接

　　使用模型同步加快制造时间。

　　2、AutoCAD Plant 3D互操作性

　　整合实时工作流程。

　　3、机器人结构分析互操作性

　　通过双向链接优化您的结构。

　　4、MIS软件的互操作性

　　通过MIS软件通过KISS，XML或IFC导出数据。

　　5、BIM 360互操作性

　　整个设计团队更高效地协作。

　　6、自定义设置导入

　　移至新版本时导入您的自定义设置。

　　7、开放和灵活的API

　　扩大和提高Advance Steel的使用。

　　8、IFC能力

　　将3D模型导入或导出到IFC 2x3文件。

　　9、在AutoCAD中查看原生绘图

　　通过对象启用程序，您可以查看Advance Steel图纸。

　　10、Navisworks互操作性

　　整合数据进行量化，模拟和审查。

　　11、工作分享

　　多个用户可以一次处理同一个项目。

　　12、基于模型的审批工作流程

　　基于审批状态的颜色代码对象。

　　1、钢筋连接参数

　　与准备使用的连接的库模型更快

　　2、钢结构施工图

　　使用可自定义的模板来生成高质量的图纸

　　3、使用Revit双向链接

　　提供无缝的BIM工作流程，从设计到制造

　　4、Advance Steel详图软件是建立在AutoCAD平台上。智能3D建模工具可帮助您加速精确的设计和细节。速度的时间来制作和施工的工具，可以自动生成施工图纸和交付。互操作性与Revit建筑信息模型（BIM）软件支持更多的工作流程

　　5、Advance Stee将自动生成车间和整体布置图，创建物料清单，并直接从设计，生产数控文件，从而导致更快的制造活动。它与其他的变种通过Autodesk和其他BIM软件产品的互操作性，预计在设计和施工阶段的进一步软件的有效性

　　6、钢结构工程项目

　　100%服务于钢结构工程项目：与AutoCAD®完全兼容, Advance Steel具备了丰富的智能元件库、节点库以及其他一些专用工具，如标准结构框架，楼梯，扶手及其他的杂项钢结构，这极大的缩短了设计周期。Advance Steel自动生成所有的加工图和总布置图，图纸可以按客户的具体要求自动标注尺寸、标记符号。Advance Steel是GRAITEC的BIM结构软件解决方案的重要组成部分，它贯穿于从结构设计到详图设计，并最终生成加工图纸的整个过程

软件特色

　　一、一般应用

　　迁移自定义设置工具得到了增强，可支持来自核心数据库的更高级详细选项，用于各种样式，流程或其他详细配置配置。

　　解决了管理工具，螺栓类别中未正确显示的A4钢类别的问题。

　　在“高级属性”对话框中恢复梁的预制和标准混凝土截面的缺失图标。

　　解决了使用Enter键验证其中的更改后无法打开模型浏览器的问题。

　　现在可以使用专用按钮从管理工具中删除首选尺寸配置文件。

　　修复了导致孔公差无法控制地传输到多编辑中选定的所有螺栓的问题。

　　修复了导致迁移工具不迁移某些调色板数据（列数，颜色等）的问题。

　　修复了在使用“按模板复制”命令复制连接后触发输入波束行为选项的不必要修改的问题。

　　修复了导致搜索过滤器在第二次使用时无法过滤对象的问题，即使已经选择了正确的过滤选项，如果打开对话框并直接使用“确定”按钮（不先循环浏览标签）。

　　修复了IFC导入成功后无法从管理工具访问GTCMapping数据库的问题。

　　修复了由于标准螺栓重复而导致螺栓形状不正确的问题。

　　编辑连接库设置内的输入元素时可以使用“％”通配符。

　　解决了导致“国家/地区设置”和“配置”对话框在后台进程绘图期间出现的问题。

　　修复了在混凝土板上使用AutoCAD“-block”命令时可能发生的崩溃。

　　修复了导致首选材料不适用于梁的问题。

　　二、创建和管理图纸

　　在细节更新期间，检测手动维度点的机制得到了改进，以大幅度防止“维度点跳跃”，这在某些情况下还会导致维度链移动。

　　现在可以使用管理工具应用程序中提供的默认值来禁用根据指南针方向自动重新排列所有标签的功能。请参阅启用或禁用自动指南针标签排列。

　　现在，可以使用“管理工具”应用程序中的默认值禁用应用于相同和重叠元素上所有标签的自动数量值。请参阅启用或禁用标签中的自动对象数量值。

　　在管理工具中激活默认的“在详细信息中显示水平网格线”时，可以在高程视图中显示的水平网格提供了Advance Steel手动尺寸接受的捕捉点。请参阅手动尺寸的仰角视图中的水平网格符号。

　　显示指南针方向并出现在其中一个视角中的指南针符号可以手动移动并在更新期间保持原位。默认情况下，该符号仍将使用绘图样式配置位置设置，但一旦生成绘图，其位置将接受手动调整，样式设置将不再用于重置其位置。

　　解决了手动剪切创建期间设置的宽度尺寸未自动应用于剪切的问题。

　　解决了更新过程中斜坡手动尺寸的尺寸文本会交换位置的问题。

　　解决了某些情况下无法手动更改尺寸样式的问题。

　　解决了主视图上的标注视图框锁定自动尺寸和符号排列区域，触发更新过程中剪切视图/尺寸移动的问题。

　　解决了在更改主视图的比例尺后标注位置错误的问题。

　　解决了焊接准备对象显示严格控制光束颜色的问题。

　　解决了一个问题，即在Advance Steel中管理工具应用程序中的手动修改的剪切/标注视图请求不会被正确考虑，从而导致“主要剪辑对于概述”通用错误消息有效。

　　解决了网格气球有时错误地放置在剪切的斜线图上的问题。

　　解决了细节视图中有时会丢失边缘准备面的问题。

　　解决了切角有时会以意想不到的方式影响展开视图布置的问题。现在，对自动视图布置的边缘影响的长度具有更大的优先权。

　　解决了“图纸中的唯一剪切视图名称”默认导致标注视图中命名不一致的问题。

　　解决了绘图样式导入问题，其中来自Advance Steel 2016或更早版本的样式导入时隐藏维度点选项的设置不正确。此设置现在可以正确地将其自身设置为“否”，以适应来自旧版本（其中该选项不可用）的样式。

　　在后台发布详细信息现在可以正确应用空白背景功能来提升钢标签和尺寸。

　　打开Advance Detail Properties对话框不应再禁用Advance Steel标签和尺寸的空白背景功能。

　　移动使用空白背景的标签将不再重置背景大小增量。

　　设置为“圆形”表示时，使用其抓握点手动修改标注框架将不再在绘制更新后触发超大的绿框。

　　修复了在概览详情中涉及长方形相机演示的问题。

　　修复了在进程生成的相机细节上不可见的螺栓问题，如果螺栓没有连接任何东西。

　　修正了放置在曲面光束细节上太远的圆弧尺寸问题。

　　修正了通过编号给定主零件号和单个零件号的螺栓来计算螺栓数量的问题。对于单个零件编号无效的模型，某些螺栓被编号多次。

　　修复了自动裁剪在特定情况下不一致的问题。

　　修复了创建手动剪切视图后主视图消失的问题。

　　修复了在文档管理器中使用拖放操作时导致视图从源详细信息中删除但不会移动到目标详细信息的问题。

　　修复了在绘图样式管理器中导致某些使用中的表示规则被“压缩和清除”删除的问题。

　　修复了关于在详细更新上组合标签的问题。

　　修复了分数表示设置为“未堆叠”时尺寸文本与尺寸线重叠的问题。

　　修复了详细信息更新时发生的手动维度问题。

　　修复了导致标签策略的内容长度超过255个字符时未完全显示的问题。

　　修复了Fisher THERM plus ML 100熔覆型材。

　　修复了英国安装中“开发前端，右侧”绘图样式涉及尺寸方向不正确的问题。

　　修复了一个问题，导致Advance Steel在详细说明中，在特定情况下，在光栅上创建复杂功能时发生崩溃。

　　更新自动尺寸的点将不再使点在更新期间重新显示在自动尺寸链上。

　　修复了在将剪切标题位置更改为“视图上方”时导致标注视图标题与视图元素重叠的问题。

　　标注帧线型默认设置现在按预期工作。

　　修复了导致从侧面看到的光束轮廓提供不正确的空中轮廓形状捕捉点的问题。

　　修正了在添加斜率符号时更改绘制比例后触发了超大的绿框的问题。

　　增加了选择DWG 2013格式的分解细节的可能性。

　　处理不带零件标记和映射处于活动状态的锚时，改进了BOM编辑器加载时间。

　　修复了导致外部BOM公式无法在“带图片的锯表”模板上计算的问题。

　　三、三维建模

　　解决了管理工具，螺栓类别中未正确显示的A4钢类别的问题。

　　在“高级属性”对话框中恢复梁的预制和标准混凝土截面的缺失图标。

　　解决了使用Enter键验证其中的更改后无法打开模型浏览器的问题。

　　现在可以使用专用按钮从管理工具中删除首选尺寸配置文件。

　　修复了导致孔公差无法控制地传输到多编辑中选定的所有螺栓的问题。

　　修复了导致迁移工具不迁移某些调色板数据（列数，颜色等）的问题。

　　修复了在使用“按模板复制”命令复制连接后触发输入波束行为选项的不必要修改的问题。

　　修复了导致搜索过滤器在第二次使用时无法过滤对象的问题，即使已经选择了正确的过滤选项，如果打开对话框并直接使用“确定”按钮（不先循环浏览标签）。

　　修复了IFC导入成功后无法从管理工具访问GTCMapping数据库的问题。

　　修复了由于标准螺栓重复而导致螺栓形状不正确的问题。

　　编辑连接库设置内的输入元素时可以使用“％”通配符。

　　解决了导致“国家/地区设置”和“配置”对话框在后台进程绘图期间出现的问题。

　　修复了在混凝土板上使用AutoCAD“-block”命令时可能发生的崩溃。

　　四、合作

　　解决了NC缺省情况下最大孔径忽略槽孔的问题，并且仍以孔形式输出，而不是NC外轮廓。

　　解决了在NC中作为外轮廓输出的孔会得到不正确直径的问题。

　　恢复了在管理工具中设置首选光栅类型的能力，并正确显示了Advance Steel中的变化。

　　拥有数百个附件的复杂组件大大提高了NC的创建速度。

　　修复了无法将NC / DXF设置更改应用于NC和DXF文件的问题。

　　修复了通过不正确的SFR导出显示的问题，如果为编号程序集或单个部件添加了附加参数。

安装步骤

　　1、用户可以通过本网站提供的下载地址即可下载得到向应的程序安装包，打开点击Advance_Steel_2019_G1_Win_64bit进行安装

　　2、弹出程序解压路径选择界面，点击即可进行解压

　　3、弹出应用程序解压界面，需要等待其加载完成即可

　　4、程序安装界面，需要点击安装按钮进行程序安装，可以选择安装语言

　　5、弹出程序安装许可协议界面，点击下一步按钮进行程序安装

　　6、选择程序安装路径，点击浏览按钮即可打开文件夹选择窗口，根据需要点击即可

　　7、弹出程序安装界面，等待安装进度条加载完成后即可，需要等待一会儿

　　8、程序安装完成后，会弹出一个程序安装完成界面的，点击完成按钮即可

方法

　　1、打开安装包，安装好最新autocad advance steel 2019.0.1补丁包；

　　2、成功安装和打好补丁后，然后在C盘根目录下建立一个“PLMLicenseServer”文件夹；

　　3、运行注册机即批量激活工具，勾选需要激活的软件包advance steel 2019，点“生成许可”；

　　4、进入“服务端设置”，安装许可证服务端；

　　5、进入“产品激活”，选择要安装补丁的版本，点“安装补丁”；

　　6、打开autocad advance steel 2019软件，选择激活类型为“多用户”

　　7、在弹出对话框中输入127.0.0.1（许可证安装在本地）或者对应电脑的IP地址（许可证未安装在本地）即可。

　　8、再指定许可文件，选择第二项“specify the license file”；

　　9、点击“browse”选择许可文件位置，就是你要c盘创建的“PLMLicenseServer”文件夹中的“Adskflex_BDGroup.lic”文件；

　　10、回到桌面，重新启动软件

　　11、完成以上操作步骤即可将应用程序完成

使用说明

　　关于绘制图块（VBA / ActiveX）

　　现在您已经开发了用户输入子例程以及绘制轮廓的子例程，您可以使用圆形图块填充路径。此任务需要一些几何体。

　　在VBA IDE中，在drawout子例程之后的Code窗口中输入以下代码：

　　'将一行瓷砖沿路径放置给定距离

　　'并可能抵消它

　　Private Sub drow（pd As Double，offset As Double）

　　Dim pfirst（0 To 2）As Double

　　Dim pctile（0 To 2）As Double

　　昏暗的（0至2）双倍

　　Dim cir作为AcadCircle

　　Dim varRet As Variant

　　varRet = ThisDrawing.Utility.PolarPoint（sp，pangle，pd）

　　pfirst（0）= varRet（0）

　　pfirst（1）= varRet（1）

　　pfirst（2）= varRet（2）

　　varRet = ThisDrawing.Utility.PolarPoint（pfirst，angp90，offset）

　　pctile（0）= varRet（0）

　　pctile（1）= varRet（1）

　　pctile（2）= varRet（2）

　　pltile（0）= pctile（0）

　　pltile（1）= pctile（1）

　　pltile（2）= pctile（2）

　　做距离（pfirst，pltile）<（hwidth - trad）

　　设置cir = ThisDrawing.ModelSpace.AddCircle（pltile，trad）

　　varRet = ThisDrawing.Utility.PolarPoint（pltile，angp90，（tspac + trad + trad））

　　pltile（0）= varRet（0）

　　pltile（1）= varRet（1）

　　pltile（2）= varRet（2）

　　环

　　varRet = ThisDrawing.Utility.PolarPoint（pctile，angm90，tspac + trad + trad）

　　pltile（0）= varRet（0）

　　pltile（1）= varRet（1）

　　pltile（2）= varRet（2）

　　做距离（pfirst，pltile）<（hwidth - trad）

　　设置cir = ThisDrawing.ModelSpace.AddCircle（pltile，trad）

　　varRet = ThisDrawing.Utility.PolarPoint（_

　　pltile，angm90，（tspac + trad + trad））

　　pltile（0）= varRet（0）

　　pltile（1）= varRet（1）

　　pltile（2）= varRet（2）

　　环

　　结束子

　　'画出一排排瓷砖

　　私人子拉网（）

　　Dim pdist As Double

　　Dim offset As Double

　　pdist = trad + tspac

　　offset = 0

　　Do while pdist <=（plength - trad）

　　卓尔pdist，抵消

　　pdist = pdist +（（tspac + trad + trad）* Sin（dtr（60）））

　　如果offset = 0那么

　　offset =（tspac + trad + trad）* Cos（dtr（60））

　　其他

　　offset = 0

　　万一

　　环

　　结束子要了解这些子例程的工作原理，请参考下图。子程序卓尔沿着第一个参数指定的路径在给定距离处绘制一行切片，并将垂直于路径的行偏移第二个参数指定的距离。您希望在备用行上偏移拼贴以覆盖更多空间并使其更加令人愉悦。

　　drow子例程通过使用PolarPoint方法沿路径移动第一个参数指定的距离来查找第一行的位置。然后，子程序再次使用PolarPoint方法垂直移动到偏移路径。子例程使用While语句继续绘制圆，直到遇到路径的边缘。第一个While语句中的PolarPoint方法通过间隔两个tile半径（trad）和一个intertile space（tspac）的距离移动到下一个tile位置。然后第二个while循环在另一个方向上绘制行中的tile，直到遇到另一个边缘。

　　drawtiles子程序重复调用drow以绘制所有tile行。子程序While循环沿着路径步进，为每一行调用drow。相邻行中的瓷砖形成等边三角形，如上图所示。这些三角形的边缘等于图块半径的两倍加上图块之间的间距。因此，通过三角法，沿行之间路径的距离是60度的正弦乘以该量，奇数行的偏移量是60度的余弦乘以该量。

　　If语句在drawtiles中用于抵消每隔一行。如果偏移量等于0，则将其设置为平铺中心之间的间距乘以60度的余弦，如前所述。如果偏移量不等于0，则将其设置为0.这将根据需要替换行上的偏移量。

　　保存你的工作。

　　您已准备好将子例程组合到Gardenpath宏中。

　　在VBA IDE中，在drawtiles子例程之后的代码窗口中输入以下代码：

　　'执行命令，调用组成函数

　　Sub gardenpath（）

　　Dim sblip As Variant

　　Dim scmde As Variant

　　gpuser

　　sblip = ThisDrawing.GetVariable（“blipmode”）

　　scmde = ThisDrawing.GetVariable（“cmdecho”）

　　ThisDrawing.SetVariable“blipmode”，0

　　ThisDrawing.SetVariable“cmdecho”，0

　　抽出

　　drawtiles

　　ThisDrawing.SetVariable“blipmode”，sblip

　　ThisDrawing.SetVariable“cmdecho”，scmde

　　End SubThe path子例程调用gpuser来收集必要的输入。然后使用GetVariable方法获取BLIPMODE和CMDECHO系统变量的当前值，并将这些值保存为sblip和scmde。然后，子例程使用SetVariable方法将这两个系统变量都设置为0，从而禁用blip和命令回显。接下来，使用drawout和drawtiles子例程绘制路径。最后，SetVariable方法用于将系统变量重置为其原始值。

　　您可能会注意到，这是您输入的唯一一个不以Private关键字开头的子例程，它确保只能从当前模块中调用子例程。由于gardenpath子例程必须对用户可用，因此应省略Private关键字。

　　现在运行宏，在执行时逐步执行代码。

　　从AutoCAD，单击“管理”选项卡“应用程序”面板“运行VBA宏从“宏”对话框中选择“ThisDrawing.gardenpath”，然后单击“Step Into”。

　　VBA IDE被带到屏幕的前面，并突出显示了gardenpath宏的第一行。突出显示的行是即将执行的代码行。要执行该行，请按F8。要执行的下一行代码是gpuser子例程。要进入gpuser子例程，请再次按F8。

　　现在您处于gpuser例程的开头。再按一次F8以突出显示第一个GetPoint方法。在执行此行之前，请单击“查看本地窗口”打开“本地”窗口。此窗口显示在VBA IDE的底部。宏执行时，所有局部变量及其值都显示在“局部”窗口中。

　　现在按F8执行GetPoint方法。请注意，突出显示消失，并且不显示新代码。这是因为GetPoint方法正在等待用户在AutoCAD中输入一个点。切换回AutoCAD窗口。您可以在命令行上看到在GetPoint调用中指定的提示。输入一个点。

　　控制现在返回宏。突出显示调用GetPoint方法之后的行。按F8继续单步执行代码。输入信息时，请记得切换回AutoCAD窗口。

　　运行宏时，无需单步执行代码。

　　您可以通过单击“管理”选项卡“应用程序”面板“运行VBA宏”，选择宏，然后单击“运行”，从AutoCAD运行宏。 这允许您以用户看到它的方式查看执行流程。 从AutoCAD运行宏，输入以下值：

　　路径的起点：2,2

　　路径的终点：9,8

　　路径的半宽：2

　　瓷砖半径：.2

　　瓷砖之间的间距：.1

　　下一个子程序使用几个变量。 必须在子例程访问它们之前声明所有变量。

　　在VBA IDE中，在代码窗口中，紧接在Const pi = 3.14159行之后输入以下代码：

　　私有sp（0到2）为Double

　　私人ep（0到2）As Double

　　私有hwidth为Double

　　私人传统双倍

　　私人tspac As Double

　　私人纠结为双倍

　　私人的力量倍增

　　私有总宽度为双倍

　　私人angp90双倍

　　Private angm90 As DoubleNow查看Code窗口顶部的两个下拉列表。 这些列表称为对象框和过程/事件框，目前分别显示术语（常规）和（声明）。 这些列表显示您正在使用的代码的当前部分，并且只需从列表中选择一个，即可快速移动到其他部分。 （声明）部分是声明将在多个子例程中使用的变量的适当位置。

　　gpuser子例程提示用户提供绘制花园路径所需的信息。

　　在距离函数后输入以下代码：

　　'获取花园小径的信息

　　Private Sub gpuser（）

　　Dim varRet As Variant

　　varRet = ThisDrawing.Utility.GetPoint（，“路径起点：”）

　　sp（0）= varRet（0）

　　sp（1）= varRet（1）

　　sp（2）= varRet（2）

　　varRet = ThisDrawing.Utility.GetPoint（，“路径的端点：”）

　　ep（0）= varRet（0）

　　ep（1）= varRet（1）

　　ep（2）= varRet（2）

　　hwidth = ThisDrawing.Utility.GetDistance（sp，“路径的半宽度：”）

　　trad = ThisDrawing.Utility.GetDistance（sp，“tile of Radius：”）

　　tspac = ThisDrawing.Utility.GetDistance（sp，“tile之间的间距：”）

　　pangle = ThisDrawing.Utility.AngleFromXAxis（sp，ep）

　　totalwidth = 2 * hwidth

　　plength =距离（sp，ep）

　　angp90 = pangle + dtr（90）

　　angm90 = pangle - dtr（90）

　　End Sub在gpuser子例程中，Dim varRet As Variant行声明变量varRet。因为此变量仅在此子例程中使用，所以可以在本地声明它，而不是在（声明）部分中声明。

　　下一行varRet = ThisDrawing.Utility.GetPoint（，“路径起点：”）调用GetPoint方法。该行中的下划线旨在使长行更容易阅读，并告诉VBA读取下一行，就好像它在同一行上一样。您可以通过将代码全部放在一行来删除下划线。

　　要访问GetPoint方法，必须首先浏览表示当前图形的ThisDrawing对象。输入ThisDrawing后输入句点（。），这意味着您将访问该对象中的某些内容。键入句点后，输入Utility和其他句点。再一次，您将访问Utility对象中的某些内容。最后，输入GetPoint，这是您要调用的方法的名称。

　　GetPoint方法有两个参数。第一个参数是可选的，不会被使用。将参数留空，只需键入逗号即可标记其位置。第二个参数是提示，也是可选的。对于此参数，您输入了一个字符串，提示用户输入起点。用户输入的点放入varRet变量中。子例程的下三行将用户返回的点复制到sp数组中。

　　端点以相同的方式返回。

　　GetDistance方法用于获取路径的半宽（hwidth），tile tile（trad）以及tile（tspac）之间的间距。 GetDistance方法有两个参数。第一个参数是基点。对于此值，您提供起点。第二个参数是提示，您为其提供一个字符串，提示用户输入相应的输入。 GetDistance方法的有趣之处在于它可以返回在命令行输入的值或AutoCAD中选择的点与起点之间的距离。

　　子程序继续计算稍后在宏中使用的几个变量。 pangle变量设置为从起点到终点的角度，可以使用AngleFromXAxis方法找到。通过将半宽乘以2得到路径的宽度。 plength变量设置为路径的长度，使用您之前输入的距离函数找到。最后，分别计算并保存angp90和angm90中路径加上和减去90度的角度。