一种在CAD中批量进行平面弧形标注的方法技术

本发明专利技术提供一种在CAD中批量进行平面弧形标注的方法，针对圆弧形表皮，通过开放一个AutoCAD功能模块，实现在命令行输入dgr命令、选择弧形表皮、选择分格线、完成弧形表皮上的弧形尺寸标注的操作下，根据立面分格实现弧长的批量、快速且高精度的标注，大幅减轻设计人员的工作量，提高标注效率和标注精度。提高标注效率和标注精度。提高标注效率和标注精度。

【技术实现步骤摘要】
一种在CAD中批量进行平面弧形标注的方法


[0001]本专利技术涉及基于幕墙弧形表皮标注弧长的CAD弧形标注的程序代码
，具体涉及一种在CAD中批量进行平面弧形标注的方法。

技术介绍

[0002]在当下的幕墙设计中，弧形表皮已经成为当下较为常见的一种设计形式，在尺寸标注过程中需要按照立面分格，对幕墙各段的弧长在圆弧表皮上分段标注。目前CAD提供的弧长标注功能，在标注一段完整弧长时还是比较方便的，但是将一段弧长按照不同的分格分段标注时，标注有以下两种方式：方式一：将圆弧按照分格打断成一段段的小圆弧，整体标注，缺点是当圆弧半径或者分格有调整时就要求重新对圆弧进行分格标注；方法二：用CAD默认“dimarc”命令，选择圆弧，选择部分标注，选择第一点，选择第二点，确认，一个弧形尺寸标注需要五部才能完成，而且存在大量的圆弧上的捕捉点操作。以上两种方式在图纸出现调整时，尺寸重新绘制是工作量是非常大，而且冗余过程非常繁琐；当弧形面分格较多或者调整较频繁时，工作效率会非常低下，高强度工作下因捕捉精度造成的标注错误经常出现，也容易对现场施工造成错误的引导。本专利技术提供一种在CAD中批量进行平面弧形标注的方法解决上述问题。

技术实现思路

[0003]本专利技术提供一种在CAD中批量进行平面弧形标注的方法，实现弧长的批量高精度标注。
[0004]本专利技术解决上述技术问题所采用的技术方案是：一种在CAD中批量进行平面弧形标注的方法，包括以下步骤：S1，关闭CAD回显，关闭对象捕捉；S2，读取标注变量全局比例因子赋值给sc，计算尺寸偏移距离dsc，sc=0时，设定dsc=10；sc≠0时，dsc=8*sc；S3，编写并调用Active函数，将Visual LISP扩展功能加载到AutoLISP，取得文件激活、取得文件的ModelSpace集合；S4，建立空选择集sss用于存放数据；S5，调整角度单位为弧度；S6，编写求交点函数，通过图元名，取得两个图元的交点，并转换为Autolisp点对象返回；S7，选择圆弧表皮控制线，对象表赋值给ename，图元名赋值给ename1；S8，读取弧形表皮控制线的圆心赋值给p0；S9，选择幕墙分格线，赋值给选择集xlk，统计xlk元素数量n；S10，重复n次，用求交点函数求取xlk中的当前元素与弧形表皮控制线求交点将交点与圆心的角度与交点组成新的串行，放置于选择集sss中；
S11，按照角度从小到大的顺序对选择集中的元素排序后重新赋值给sss；S12，重复执行n
‑
1次，依次取出sss中的两点，赋值给pt1、pt2，根据pt1、pt2的中点及尺寸偏移距离计算pt3；S13，重复执行n
‑
1次，调用弧形标注命令，pt1、pt2、pt3分别作为弧形标注第一点、第二点和定位点，完成弧形尺寸标注；S14，标注完成，将角度单位调整为十进制度数，打开对象捕捉。
[0005]进一步地，步骤S2中，程序根据当前全局比例因子自动计算弧形尺寸的定位点，并在所有标注过程中自动确定位置。
[0006]进一步地，步骤S3中，利用Visual LISP扩展功能写求交点函数，圆弧表皮不延伸，幕墙分格线延伸与弧线相交。
[0007]进一步地，步骤S7中，表皮控制线为二维弧形对象。
[0008]进一步地，步骤S9中，幕墙分格线为为二维空间的平面对象，不能出现三维点坐标。
[0009]进一步地，步骤S11中，按照逆时针对所有点进行排序，依次取出相邻两点进行标注。
[0010]本专利技术有益效果如下：本专利技术通过开放一个AutoCAD新的功能模块，根据立面分格实现弧长的批量、快速且高精度的标注，大幅减轻设计人员的工作量，提高标注效率和标注精度。
附图说明
[0011]图1为本专利技术的方法流程示意图；图2为本专利技术的弧形表皮的平面线条示意图；图3为本专利技术的立面分格线的立面线条示意图；图4为本专利技术实施例的操作示意图；图5为本专利技术实施例的操作结果示例示意图。
具体实施方式
[0012]下面将结合说明书附图，对本专利技术实施例中的技术方案进行清楚、完整地描述，显然，所描述的实施例仅仅是本专利技术一部分实施例，而不是全部的实施例。基于本专利技术中的实施例，本领域普通技术人员在没有做出创造性劳动前提下所获得的所有其他实施例，都属于本专利技术保护的范围。
[0013]在本专利的描述中，需要理解的是，术语“中心”、“上”、“下”、“前”、“后”、“左”、“右”、“竖直”、“水平”、“顶”、“底”、“内”、“外”等指示的方位或位置关系为基于附图所示的方位或位置关系，仅是为了便于描述本专利和简化描述，而不是指示或暗示所指的装置或元件必须具有特定的方位、以特定的方位构造和操作，因此不能理解为对本专利的限制。
[0014]如图1、2、3、4、5所示，一种在CAD中批量进行平面弧形标注的方法，包括以下步骤：S1，关闭CAD回显，关闭对象捕捉；S2，读取标注变量全局比例因子赋值给sc，计算尺寸偏移距离dsc，sc=0时，设定dsc=10；sc≠0时，dsc=8*sc；
S3，编写并调用Active函数，将Visual LISP扩展功能加载到AutoLISP，取得文件激活、取得文件的ModelSpace集合；S4，建立空选择集sss用于存放数据；S5，调整角度单位为弧度；S6，编写求交点函数，通过图元名，取得两个图元的交点，并转换为Autolisp点对象返回；S7，选择圆弧表皮控制线，对象表赋值给ename，图元名赋值给ename1；S8，读取弧形表皮控制线的圆心赋值给p0；S9，选择幕墙分格线，赋值给选择集xlk，统计xlk元素数量n；S10，重复n次，用求交点函数求取xlk中的当前元素与弧形表皮控制线求交点将交点与圆心的角度与交点组成新的串行，放置于选择集sss中；S11，按照角度从小到大的顺序对选择集中的元素排序后重新赋值给sss，程序自动执行；S12，重复执行n
‑
1次，依次取出sss中的两点，赋值给pt1、pt2，根据pt1、pt2的中点及尺寸偏移距离计算pt3，程序自动执行；S13，重复执行n
‑
1次，调用弧形标注命令，pt1、pt2、pt3分别作为弧形标注第一点、第二点和定位点，完成弧形尺寸标注，程序自动执行；S14，标注完成，将角度单位调整为十进制度数，打开对象捕捉，程序自动执行。
[0015]本专利技术所标注的表皮对象须是圆弧，如果是非圆弧，则需要绘制圆弧表皮或者将表皮转为圆弧对象，并且表皮与分格线应为二维平面对象。
[0016]优选的，步骤S1中，首先关闭对象捕捉是为了避免后期程序执行过程中因为对象捕捉精度问题造成的交点偏差。
[0017]进一步地，步骤S2中，程序根据当前全局比例因子自动计算弧形尺寸的定位点，并在所有标注过程中自动确定位置。
[0018]进一步地，步骤S3中，利用Visual LISP扩展功能写求交点函数，圆弧表皮不延伸，幕墙分格线延伸与弧线相交。
[0019]进本文档来自技高网...

【技术保护点】

【技术特征摘要】
1.一种在CAD中批量进行平面弧形标注的方法，其特征是，包括以下步骤：S1，关闭CAD回显，关闭对象捕捉；S2，读取标注变量全局比例因子赋值给sc，计算尺寸偏移距离dsc，sc=0时，设定dsc=10；sc≠0时，dsc=8*sc；S3，编写并调用Active函数，将Visual LISP扩展功能加载到AutoLISP，取得文件激活、取得文件的ModelSpace集合；S4，建立空选择集sss用于存放数据；S5，调整角度单位为弧度；S6，编写求交点函数，通过图元名，取得两个图元的交点，并转换为Autolisp点对象返回；S7，选择圆弧表皮控制线，对象表赋值给ename，图元名赋值给ename1；S8，读取弧形表皮控制线的圆心赋值给p0；S9，选择幕墙分格线，赋值给选择集xlk，统计xlk元素数量n；S10，重复n次，用求交点函数求取xlk中的当前元素与弧形表皮控制线求交点将交点与圆心的角度与交点组成新的串行，放置于选择集sss中；S11，按照角度从小到大的顺序对选择集中的元素排序后重新赋值给sss；S12，重复执行n
‑
1次，依次取出sss中的两点，赋值给pt1、pt2，根据p...

【专利技术属性】
技术研发人员：任党辉，李凤辉，王东杰，冯伟，柳蔷，文安源，李超，杨品富，
申请(专利权)人：中国建筑装饰集团有限公司，
类型：发明
国别省市：