CAD坐标、序号批量输入方法
328784.510 328787.990 328842.300 328898.710 328859.880 328828.020 328879.600 328898.880 328891.660 328877.04 328830.840 328924.680 329021.210 328997.422 329167.660 329166.200 329167.200 329166.750 329166.010 329138.090 329139.460 328788.970 328794.850 328797.740 328816.740 328840.210 328842.250 328840.020 328827.700 328828.020 328842.020 328866.620 328869.020 328878.950 328877.780 328880.457 328857.440 328852.220 328918.450 328907.070 328826.770
-text -text -text -text -text -text
j j j j j j
bc bc bc bc bc bc
1,-7 1,-7 1,-7 1,-7 1,-7 1,-7
0.9 0.9 0.9 0.9 0.9 0.9
Байду номын сангаас
0 0 0 0 0 0
43 44 45 46 47 48
487521.47,328784.51 487509.52,328787.99 487499.9,328842.3 487471.88,328898.71 487489.35,328859.88 487493.36,328828.02 487488.9,328879.6 487450.5,328898.88 487452.18,328891.66 487454.88,328877.04 487469.19,328830.84 487441.78,328924.68 487415.57,329021.21 487445.09,328997.422 487418.22,329167.66 487409.27,329166.2 487382.1,329167.2 487372,329166.75 487372.98,329166.01 487379.36,329138.09 487381.11,329139.46 487506.8,328788.97 487496.22,328794.85 487491.887,328797.74 487505.03,328816.74 487499.09,328840.21 487494.77,328842.25 487495.2,328840.02 487498.495,328827.7 487493.36,328828.02 487489.79,328842.02 487483.27,328866.62 487482.713,328869.02 487480.093,328878.95 487485.04,328877.78 487486.76,328880.457 487493.35,328857.44 487495.4,328852.22 487445.3,328918.45 487448.46,328907.07 487470.58,328826.77 ,
43 44 45 46 47 48
point point point point point point
, , , , , ,
号导入CAD
在E1中输入公式:="-text j bc "&B1+2&","&C1+2&" ”&5&” 0 "&A1 text是文字命令,b1+2.c2+2是确定文字坐标,5是文字高度,0是旋转0度, 是文字内容。 a1
487521.470 487509.520 487499.900 487471.880 487489.350 487493.360 487488.900 487450.500 487452.180 487454.880 487469.190 487441.780 487415.570 487445.090 487418.220 487409.270 487382.100 487372.000 487372.980 487379.360 487381.110 487506.800 487496.220 487491.887 487505.030 487499.090 487494.770 487495.200 487498.495 487493.360 487489.790 487483.270 487482.713 487480.093 487485.040 487486.760 487493.350 487495.400 487445.300 487448.460 487470.580
point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point point
Excl坐标和序号导入CAD
X坐标 序号 Y坐标
在D1中输入公式:="point "&B2&","&C2 point是画点命令,b2.c2就是坐标。
复制D、E列，打开CAD，在acad中点选文本窗口的命令行，按ctrl+v粘贴（要特别注 下方粘贴坐标（注：坐标粘贴入CAD时X与Y互反） 相应的命令后添加回车或者空格。如果失败可以执行前几条命令查看错误原因对命
487522.47,328777.51 0.9 0 榆叶梅 487510.52,328780.99 0.9 0 榆叶梅 487500.9,328835.3 0.9 0 榆叶梅 487472.88,328891.71 0.9 0 榆叶梅 487490.35,328852.88 0.9 0 榆叶梅 487494.36,328821.02 0.9 0 榆叶梅 487489.9,328872.6 0.9 0 榆叶梅 487451.5,328891.88 0.9 0 榆叶梅 487453.18,328884.66 0.9 0 榆叶梅 487455.88,328870.04 0.9 0 道路 487470.19,328823.84 0.9 0 榆叶梅 487442.78,328917.68 0.9 0 牙子角 487416.57,329014.21 0.9 0 牙子角 487446.09,328990.422 0.9 0 榆叶梅 487419.22,329160.66 0.9 0 榆叶梅 487410.27,329159.2 0.9 0 榆叶梅 487383.1,329160.2 0.9 0 榆叶梅 487373,329159.75 0.9 0 榆叶梅 487373.98,329159.01 0.9 0 榆叶梅 487380.36,329131.09 0.9 0 榆叶梅 487382.11,329132.46 0.9 0 榆叶梅 487507.8,328781.97 0.9 0 油松 487497.22,328787.85 0.9 0 油松 487492.887,328790.74 0.9 0 金丝柳 487506.03,328809.74 0.9 0 银杏 487500.09,328833.21 0.9 0 银杏 487495.77,328835.25 0.9 0 油松 487496.2,328833.02 0.9 0 碧桃 487499.495,328820.7 0.9 0 碧桃 487494.36,328821.02 0.9 0 榆叶梅 487490.79,328835.02 0.9 0 碧桃 487484.27,328859.62 0.9 0 碧桃 487483.713,328862.02 0.9 0 紫叶李 487481.093,328871.95 0.9 0 紫叶李 487486.04,328870.78 0.9 0 碧桃 487487.76,328873.457 0.9 0 金丝柳 487494.35,328850.44 0.9 0 金丝柳 487496.4,328845.22 0.9 0 油松 487446.3,328911.45 0.9 0 金丝柳 487449.46,328900.07 0.9 0 金丝柳 487471.58,328819.77 0.9 0 金丝柳 1,-7 0.9 0 42
榆叶梅 榆叶梅 榆叶梅 榆叶梅 榆叶梅 榆叶梅 榆叶梅 榆叶梅 榆叶梅 道路 榆叶梅 牙子角 牙子角 榆叶梅 榆叶梅 榆叶梅 榆叶梅 榆叶梅 榆叶梅 榆叶梅 榆叶梅 油松 油松 金丝柳 银杏 银杏 油松 碧桃 碧桃 榆叶梅 碧桃 碧桃 紫叶李 紫叶李 碧桃 金丝柳 金丝柳 油松 金丝柳 金丝柳 金丝柳 42
中点选文本窗口的命令行，按ctrl+v粘贴（要特别注意的是命令输入的正确是空格还是回车要 。如果失败可以执行前几条命令查看错误原因对命令进行修改）。
-text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text -text
CAD坐标批量导出入方法
3.标准横断的“宽度”“横向坡度”、人行道的“宽度”“横向坡度”
（二）编辑左侧板块输入 主板块的“宽度”“横向坡度”、人行道的“宽度”“横向坡度”
5.重命名文件 把“csv”后缀改成“dat”
6.打开cass 点击“绘图处理”“展野外测点点号”选择保存好的文件 打开 完成
交点法数据输入
1.平曲线参数
例：（一）新建工程选择“交点法”点击曲线参数设置
1.在桌面新建一个Excel文件进入点“文件”“打开” 打开要导入点的文件
2.出现一个导入导向对话框，点“下一步”把“Tab键”改成“逗号”完成
3.把导好的x轴y轴坐标互换位置（x轴在前 y在后）完成后点“另存为” 下面文件类型选择“csv逗号分隔”保存
4.打开保存好的文件 在坐标前面插入一列空白格 保存退出
5.要导的点都点好了 回车结束
6.回到桌面 选择到出点的文件点重命名 选择后缀名“dat”改成“csv”
7.进入csv文件 把x轴y轴调换位置 点击保存
8.回到桌面把保存好的“csv”后缀文件改成“txt” 完成
CAD坐标批量导入
CAD坐标批量导出
1.单击cass工具栏中的“工程应用”
2.选择“指定点生成数据”
3.弹出保存文件选择桌面，自定义名称
4.选择要导出的点，地物代码回车、高程（可以输入高程数据，不要的可以回车）回车、点号回车（可自定义点号标记）然后选择下的一点重复 以上操作
（二）插入起始点 “开始里程”、X轴坐标、Y轴坐标
（三）编辑交点 输入交点编号“编号200”、“半径15000”、交点的X轴坐标、Y轴坐标
（四）有几个交点 同上操作全部插入
（五）编辑“终点”输入终点的X轴坐标、Y轴坐标
怎样给CAD输入坐标数据
怎样给CAD输入坐标数据
大家知道怎样给CAD输入坐标数据吗?其实不难，下面是店铺带来关于怎样给CAD输入坐标数据的内容，希望可以让大家有所收获!
给CAD输入坐标数据的方法一
1、cad坐标输入方法很简单，先用直线工具教cad绝对坐标怎么画。
首先选择cad直线工具，然后在命令行中输入“20，20”(这是cad绝对坐标输入格式)，然后回车。
2、此时会将cad直线的起点定位在相距坐标远点x轴和y轴为20距离的点上。
cad怎么输入坐标：带角度的相对坐标
1、在cad命令行中输入“@100<0”(这是cad带角度的相对坐标输入格式，意思是长度为100，角度为0度)，然后按回车键确定。
2、此时就画出来一条长度为100且角度为0度的直线。
3、cad怎么输入坐标：用距x、y轴距离确定的相对坐标
4、在cad命令行中输入“@200，100”(这表示端点距离当前起点的x轴为200，距离y轴为100)，然后按回车键确定。
给CAD输入坐标数据的方法二
1、cad中上边菜单栏中有一个标注栏，然后点击会出现快速标注，然后点击快速标注就会在cad平面上出现一个小方框，用那个小方框在需要标注的单位上圈住就可以了。
只要标注的尺寸有断点，快速标注都会给你标注出来的。
2、网上有座标标注的插件,比autocad自带的座标标注好用多了,座标标注一下完成,但也需要一个圆一个圆的标注,除此之外没别的好法了。
先标注完成一个圆，然后再选中其它的圆，用批量标注一次搞定。
cad怎么大批量标注坐标
cad怎么大批量标注坐标推荐文章CAD图形中的标注尺寸怎么修改热度：CAD国标字体和标注设置怎么操作热度： CAD尺寸标注样式怎么设置详细图文热度： CAD 怎么按比例出图及设置标注比例热度：怎么通过cad给图形标注尺寸热度：在CAD中输入坐标是日常工作需要会的，那么大家知道cad怎么大批量标注坐标吗?下面是店铺整理的cad怎么大批量标注坐标的方法，希望能给大家解答。
cad大批量标注坐标的方法：将坐标及坐标点号录入到excel表格中，如图所示在后一列输入 =C2&","&B2 ，得到CAD连线坐标在后一列输入公式=IF(OR(C2=FALSE,B2=FALSE),"","_donut 1.98 2 "&ROUND(C2,3)&","&ROUND(B2,3)&" "&" -text j ML "&ROUND((C2+3),3)&","&ROUND(B2-0.1,3)&" 2.0 0 "&A2) 得到CAD标注的坐标点及点号这里简要说明下前面的if语句是判断坐标是否为空，后半段是cad命令，最后会给大家解释为什么?下拉填充所有坐标重点：打开CAD，输入多线命令“PL”重点：切换至excel，选中黄色列的所有数据，CTRL+C 命令重点：切换至CAD，点击命令行，CTRL+V 粘贴，得到坐标连线图重点：重复上述6、7步骤，得到坐标标注及点号标注，如下图，大功告成。
下图是详细的解释步骤3中的公式CAD中按F2键，调出命令记录，与步骤3对比，你会发现公式其实就是CAD中的命令符级参数。
CAD批量导入坐标点及点编号方法
CAD批量导入坐标点及点编号方法
CAD批量导入坐标点及点编号
先将EXCEL中坐标，按照如图所示的填好：
序号根据自己的需求填写，支持文字。
point后面需要加空格，
text后面需要加空格，
100前后都需要加空格，100为文字高度，可以调整
0后面需要加空格，0为文字旋转角度，可以调整
空格的意思执行该命令，不能少否则会出错
（C3+50，D3+50）是输入编号的位置，相当于x y 在原来的点的位置各偏移了50 ，这个数字可以修改，也可以为负值
将E列文字复制到文本，如图所示：
1、修改文本文件的后缀即文件格式，改为scr格式。
2、在CAD工具里面运行脚本文件，即SCR文件，即可输入点。
3、同样的方法可以对编号进行炒作。
4、。
AutoCAD结合电子表格完成按坐标批量标注文字的方法
AutoCAD结合电子表格完成按坐标批量标注文字的方法本文仅介绍批量标注的方法而不对批量标注的使用范围作过多说明, 因为涉及到专业不同, 而需要掌握软件的某些功能不同。
软件功能强大、涉及面广, 各取所需。
利用AutoCAD软件完成编号的批量标注, 一直以来可能困扰了很多人, 网上搜索了一下相关方法, 方法中确实能达到批量标注的目的而且效果也很好。
但是几乎都要结合其他插件或者“LISP”程序才能实现, 难以达到通用、简单可行的效果, 存在一定的局限性。
故在此本人结合自身摸索及多次实践的经验, 确定了一种相对简单可行的方法来实现以坐标定位数据, 完成相应编号的批量标注。
此法也可以脱离CASS仅用CAD软件完成以坐标展相应高程点。
下面将以图文并茂的方式作介绍, 以方便大家参考的同时提出指导意见。
所需工具如下: AutoCAD2007、电子表格2010、Word文档2010。
使用此法前, 应先了解CAD中命令LE（qleader）:快速引出标注。
步骤1、电子表格输入相应坐标, （考虑到坐标数据的量大问题, 若手动输入则相当困难, 利用软件的坐标提取功能可实现批量提取坐标数据, 解决方法多, 在此不作讨论, 在B列输入X坐标值, C列输入Y 坐标值, 如图：步骤2.在A列输入编号, 我将编号暂定为以A1开头, 下拉A1单元格实现自动编号。
如图:步骤3.（1）在D列输入公式“=B2&","&C2”（2）在E列输入公式“=B2+2&"," &C2-2”（3）在F列输入公式“=B2+4&"," &C2-2”（4）在G列输入公式“="5 "&A2&"XX"”注: 输入公式时仅输入中文模式双引号里面的内容；第（2）步公式中的“+2”与“-2”表示坐标值得相对位移量；第（4）步公式中数字5为字宽, 其值可以自行定义, 同时数字5后面带有一空格, “A2”为编号数据（若要展高程点, 则此处改为相应高程）, 也可自行定义, “XX”待用数值, 也可自行定义。
CAD中批量输入点及编号方法、大地坐标导入CAD图、电子表角度
有时候测量中会牵扯到画图，在cad中展点，但是如果点号比较多的时候，标注点好就是一项很繁重的任务了。
通过网上查询有一个命令结合着excel统一规划格式就可以实现批量标注点号了。
在execl中格式是这样的写的="point "&C2&","&B2 弄好以后，把你的几百个点展进cad中如何快速的将大地坐标系导入进施工结构的cad平面图纸中大家都知道施工的cad结构图纸中的平面图,例如桥梁,地铁车站,涵洞等,这些平面图纸是没有坐标系的。
但是由于种种原因，我们可能会用到这个图纸的某些坐标，这样会更直观的看到图纸到坐标点位的分布情况。
那下面我就会把没有坐标系的cad施工结构平面图纸以一个例子使其附上坐标，让每个点位都有对应的坐标。
我们需要准备的就是，熟悉两个cad 命令1，sc 缩放命令。
2，align 对齐命令然后我们好需要知道这张图的其中三个点的坐标，找些具有特征性的点就行了（例如交点，角点，中点等等）大概思路就是首先缩放你的图纸，让他们的尺寸单位是米，因为坐标都是以米为单位的。
然后在图纸中用三个点的坐标画出两条线段。
组后用align对齐命令，对齐就可以了。
下面再用gif图做图解说明：第一步缩放，这里有个注意点，由于现在的设计单位画的图纸，很多图层都是关联的，你需要把其中关联分解了，这样的缩放后的效果就不会存在原来标注的样式不会随着缩放而变化了。
第二步找出图中的三个具有代表性的点,然后计算出他们的坐标,用坐标的方法在cad中用直线画出来.最后一步用命令align 对其命令,把相应的点对齐后,就可以了,然后你再看看那其他点,是不是也有相应正确的坐标了角度在excel中如何输入并使其能计算excel角度输入正常情况下是不能在一个单元格内输入度分秒，即使你输入成123°45′67.89″的格式，但是excel是不认识这种格式，不会进行计算的。
CAD中怎么快速编号数字
CAD中怎么快速编号数字
大家应该在建筑图纸中见到过带有圆圈的数字，这种就是编号数字，那么大家知道CAD中怎么快速编号数字吗?下面是店铺整理的CAD中怎么快速编号数字的方法，希望能帮到大家!
CAD中快速编号数字的方法
1、点击绘图-文字-多行文字，或者是直接点击左下角的“A”按钮进入多行文字编辑其中，注意一定要是多行文字。
2、对于10以下带圈的数字，相对简单，如果安装了搜狗输入法，就可以直接使用，在输入法中输入某一个数字的拼音如“yi”，这时候会弹出其相关选项，选择带全的数字，即可输入。
3、输入之后，选中带圈数字，然后在上面大小框中输入想要显示的大小，然后点击“确定”，关闭编辑器。
4、这时候一个简单的带圈的数字就打出来了。
是自己需要的效果。
5、当然，在搜狗输入法中输入“yi”，然后点击“更多符号”，进入到搜狗输入法的特殊数学符号管理中。
6、这时候就进入输入法的符号界面，选择适合的带圈符号即可。
不过这里仅有10及以下的。
下面讲如何输入大于10的带圈符号。
7、比如这里选择⑩，关掉符号管理器，返回到编辑菜单，可以看到，一个符号就成功输出来了。
如何才能实现CAD中的一键序号标注？有什么便捷的方法吗？
如何才能实现CAD中的一键序号标注？有什么便捷的方法吗？谢谢邀请这个问题问得好，很多小伙伴不知道是因为他们一直用的是CAD 平台，一些比较智能或者针对性的功能是比较缺乏的，关于这个一键实现序号标注，虽然夸张了一点点，但是还是有功能实现的，在此之前，先说一下传统序号标注的方法，我们一般是使用多重引线来线，至于一键实现序号标注，则需要专业模块，例如机械版这样。
以中望CAD机械版为例，我们来看一下【序号标注】功能中望CAD机械版2019提供的序号标注功能，基本涵盖了所有的序号表现类型。
同时还可以支持机械行业中任意复杂和任意形状的序号外观，即自定义型。
首先让设计师在序号类型和内容上就轻松选择，无需新创建。
在标注后的修改工作中，也会遇到序号的增加或删除，同时是在明细表中刷新表现的。
使用平台创建的圆圈序号或上下标标注等，修改起来都会异常麻烦。
而使用中望CAD机械版的序号标注，就可以轻松应对后期的修修改改了。
启动【机械】——【序号/明细表（B）】——【标注序号】，或者直接使用快捷命令：XH，即可启动该命令。
但值得强调的是，使用该命令之前必须保证图纸是有正规机械绘制的图幅的。
否则软件的右下角会自动提示：图纸没有初始化，请先初始化图纸！这个功能也是在提醒广大设计师，规范设计流程，先画图框再进行其他绘图。
启动命令之后，即可弹出【引出序号主图幅GB】的对话框。
对话框有序号类型、序号内容、其他选项及引线的选项。
其中序号类型和内容，可以一目了然的选择要标注的样式，不用向平台cad手动绘制。
真正考虑设计师所想，从而节省绘图时间。
【序号内容】：代表本次标注序号的值，开始标注的话一般是1。
如果接着标注，系统会根据最近标注的序号值自动累加显示，设计师也可以在此修改合适的序号标注数值。
【序号自动调整】：当有重复序号标注时，后面的序号自动调整。
【填明细表内容】：可在序号标注结束时，出现【序号输入窗口】，可直接输入序号内容也可以利用“提取标准件”等填好零件序号内容，方便进行序号内容的编辑与修改。
CAD坐标有哪些输入方式？来看看这些CAD坐标输入方式！
CAD坐标有哪些输入方式？来看看这些CAD坐标输入方式！在CAD设计过程中，有时需要通过已知坐标点来画图，有时又需要通过已知角度和距离来画图，在这种情况下，由于已知条件不同，所以便需要用不同的方式来定位点。
那么，你知道CAD坐标有哪些输入方式吗？本文小编来给大家分享一下浩辰CAD软件中输入CAD坐标的几种方式吧！CAD坐标输入方式：普通的CAD坐标输入方式，平面绘图只需输入X,Y两个坐标值，三维绘图可以输入X,Y,Z三个坐标值。
除此以外，浩辰CAD软件中还提供了极坐标、柱坐标、球坐标，在输入这些坐标时，可以输入相对坐标原点的绝对值，也可以输入相对上一点的相对值。
1、绝对坐标：直接输入相对坐标原点的各轴向的距离或角度。
输入绝对坐标时, 在命令栏键入点位置坐标。
实例：使用绝对坐标, 从点 (-3,2) 到点(4,4)画一线, 则输入Line, 并按下面方式输入：线的起始点: -3,2角度(A)/ L长度(L)/ <E终点>: 4,4当使用绝对坐标时, 须知道所绘对象确切的点位置, 例如：使用绝对坐标和直线命令画一个边长为 8，左下角在 4,5 的正方形, 则需依次输入其左上角坐标为4,13, 右上角坐标为 12,13, 右下角为 12,5。
2、相对坐标：相对上一点各轴向的距离或角度，需要在输入的坐标值前加一个@，例如：@2,3，表示此点相对上一点X轴方向距离为2，Y轴距离为3。
实例：要利用相对坐标, 画一个左下角在-3,-2 的三角形, 先开始命令Line, 再按下面提示输入坐标：线的起点: 4,5角度(A)/长度(L)/ <终点>: -3,-2角度(A)/长度(L)/跟踪(F)/闭合(C)/撤消(U)/ <终点>:@8,0角度(A)/长度(L)/跟踪(F)/闭合(C)/撤消(U)/ <终点>:@0,6角度(A)/长度(L)/跟踪(F)/闭合(C)/撤消(U)/ <终点>: C3、极坐标：通过输入以角括号(<)分隔的距离和角度来定位点，也同样可以输入绝对坐标和相对坐标，输入相对坐标时前面也要加@符号，例如：@10<45。
CAD大批量输入坐标点的方法
<quote><b>以下是引用 <u>pengyou</u> 在 <i>2004-3-25 19:56:00</i> 的发言：</b><quote><b>以下是引用 <u>lgh4073</u> 在 <i>2004-3-23 10:05:00</i> 的发言：</b>利用excel1.把文本文件导入excel，比如a列为x坐标、b列为y坐标，在c列中输入格式如下a b c1 15.8 20.9 =A1 & "," & B12 25.8 32.5 =A2 & "," & B23 31.0 10.9 =A3 & "," & B34 25.2 20.9 =A4 & "," & B45 16.8 40.9 =A5 & "," & B56 29.4 60.9 =A6 & "," & B6选择c列的数据范围，复制！，在cad的命令栏中输入line回车，点击鼠标右键，选择“粘贴”</quote>请教：我试了，右键后无任何反应，没有对话框。
若直接按“粘贴”也没自动成图，望回帖赐教！<em13></quote>鼠标指针指在命令行中“指定第一点：”后，再点击鼠标右键，此时会出现快捷菜单，其中就有“粘贴”，点击该命令即可！;;;---------------------------------;;; 粘贴Excel数据画曲线;;; 作者: zz 2003.12.24;;;---------------------------------;;main(defun c:xl( / xlread mmm n nolist m_hs m_ls )(defun xlread()(setq xls (getstring 1 ) )(setq xls (strcat "(" xls ")" ) )(setq Nolist(append Nolist (list xls) ))(if (= xls "()" ) 0 1 ))(princ "\n粘贴Execl数据画曲线")(princ "\n在Excel中建好数据,并将数据拷贝至粘贴板,将光标放在本行后,按鼠标右键粘贴")(setvar "CMDECHO" 0);;;关闭snap(setq mysnap (getvar "osmode") ) ; osnap off(if (< mysnap 16384) (command "osmode" (+ 16384 mysnap)))(setvar "CMDECHO" 0)(setvar "BLIPMODE" 0)(setq mmm (getint"\n输入表格的总行数："))(setq x_scal (getreal "\n折线的X方向比例:"))(setq y_scal (getreal "\n折线的y方向比例:"))(princ "\n在此点鼠标右键粘贴EXCEL数据:")(setq Nolist nil n 1) ;n--表总行数+1(repeat mmm (progn(xlread)(setq n (1+ n)))) ;while;;;设置行数和列数的初始值(setq m_hs 0m_ls 1) ;m_hs--表列行数计数，m_ls --表列数计数;;求出第一行作为层名称(setq xls0 (nth 0 nolist))(setq xls0 (read xls0))(setq mm (- (length xls0) 1) ) ;m-总列数;;;设置层和每一层的颜色(setq m_lay 1)(repeat mm (progn ;将第一行数作为层，并设置颜色(command "layer" "M" (nth m_lay xls0) "") ;设置层(command "layer" "C" m_lay (nth m_lay xls0) "");设置颜色 (setq m_lay (+ m_lay 1))))(setq n (- n 1)) ;去掉第一行,表总行数减1(setq m_hs 1);画多折线，对列数进行循环(repeat mm (progn;对行数进行循环(command "layer" "s" (nth m_ls xls0) "") ;每列线换一层(command "pline")(repeat (- n 1) (progn ;n-1,表总行数;;; 求点座标(setq xls (nth m_hs nolist))(setq xls (read xls))(setq txt_x (nth 0 xls))(setq txt_y (nth m_ls xls)); (setq pt (list txt_x txt_y))(setq pt (list (* txt_x x_scal) (* txt_y y_scal)))(command pt)(setq m_hs (+ m_hs 1)))) ;repeat(command "")(setq m_hs 1)(setq m_ls (+ m_ls 1))));repeat(setvar "CMDECHO" 1)(setvar "BLIPMODE" 1)(setq *error* olderr));;;-------------------------------------------------(princ "\n 粘贴Excel数据画曲线,命令：XL。