CAD多段线快捷键，CAD多段线的画法
1.命令格式
命令行：Pline（PL）
菜& 单：[绘图]&[多段线（P）]
工具栏：[绘图]&[多段线]&
多段线由直线段或弧连接组成，作为单一对象使用。可以绘制直线箭头和弧形箭头。
2.操作步骤
使用多段线绘制，按如下步骤操作，如图 3-15：
多段线命令的选项介绍如下：
弧(A)：指定弧的起点和终点绘制圆弧段。
角度(A)：指定圆弧从起点开始所包含的角度。
中心(CE)：指定圆弧所在圆的圆心。
方向(D)：从起点指定圆弧的方向。
半宽(H)：指从宽多段线线段的中心到其一边的宽度。
线段(L)：退出&弧&模式，返回绘制多段线的主命令行，继续绘制线段。
半径(R)：指定弧所在圆的半径。
第二点(S)：指定圆弧上的点和圆弧的终点，以三个点来绘制圆弧。
宽度(W)：带有宽度的多段线。
闭合（C）：通过在上一条线段的终点和多段线的起点间绘制一条线段来封闭多段线。
距离(D):&指定分段距离。
系统变量Fillmode控制圆环和其他多段线的填充显示，设置Fillmode为关闭（off），那么创建的多段线就为二维线框对象。
产品视频教程
中望CAD系列
中望3D三维软件咨询cad画出的多段线为什么会那么粗_百度知道
cad画出的多段线为什么会那么粗
用cad绘制段线完特别粗关闭线宽行
我有更好的答案
段线宽度跟启或关闭线宽同种类型关闭启线宽作用些图形线显示看起比较直观已段线宽度实实条线直接宽度跟显示没关系所碰问题画段线段线面命令内宽度设置所画段线起点看命令行输入W宽度值设置0行
那是多段线里你设置了线宽，PL ，空格，W，空格，输入0，空格，再输入0，空格，就可以恢复了。
你设置粗细了，把多段线起点和端点的线宽都改成0就OK了
其他类似问题
1人觉得有用
为您推荐：
cad的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求用下列数据画两条CAD多段线，咋个赋值到坐标数组？
阅读权限10
在线时间 小时
& & Dim p1() As Double
& & Dim p2() As Double
怎么送花或东西呀？
阅读权限70
在线时间 小时
& & & & & & & &
cad需要的数组是一维的，不是二维，不是三维
阅读权限10
在线时间 小时
对，我也发现了，谢谢你
阅读权限10
在线时间 小时
& & & & & & & &
& & '画纵断面
& & Dim p()
& & Dim i, r As Integer
& & Dim xlapp As Object
& & ' On Error Resume Next
& & Set xlapp = GetObject(, &excel.application&)
& && &r = xlapp.[a65536].End(3).Row
& & p = xlapp.range(&a2:c& & r).Value '获取一个二维数组,起始行为2，三列依次为桩号、地面高、
& & r = UBound(p, 1) '获取多少个点。
& &&&ReDim p1(0 To r * 3 - 1) As Double
& & ReDim p2(0 To r * 3 - 1) As Double
& & Dim textObj As AcadText
& & Dim point(0 To 2) As Double
& & point(1) = 0
& & point(2) = 0
& & For i = 1 To r
& && &&&'数据在A1:C18,A列为X,B和C列为Y1,Y2
& && &&&p1(s) = p(i, 1)
& && &&&p1(s + 1) = p(i, 2)
& && &&&p1(s + 2) = 0&&'z默认为0
& && &&&p2(s) = p(i, 1)
& && &&&p2(s + 1) = p(i, 3)
& && &&&p2(s + 2) = 0&&'z默认为0
& && &&&point(0) = p(i, 1)
& && & Set textObj = ThisDrawing.ModelSpace.AddText(Format(p1(s), &K0+000.0&) & &,& & p1(s
+ 1) & &,& & p2(s + 1), point, 4)
& && & textObj.Rotation = 3.142 / 2 '旋转
& && &&&Debug.P Format(p1(s), &K0+000.0&)
& && &&&s = s + 3
& && &&&Next
& & Dim lineObj1 As AcadPolyline
& & Set lineObj1 = ThisDrawing.ModelSpace.AddPolyline(p1)
& &&&lineObj1.color = acGreen
& &&&Dim lineObj2 As AcadPolyline
& & Set lineObj2 = ThisDrawing.ModelSpace.AddPolyline(p2)
& && && && & ZoomAll
弄成这样行了。。。。
阅读权限70
在线时间 小时
写着玩玩，选择任意点插入
& & '画纵断面
& & Dim p()
& & Dim s As Integer
& & Dim i, r As Integer
& & Dim xlapp As Object
& & ' On Error Resume Next
& & Set xlapp = GetObject(, &excel.application&)
& && &r = xlapp.[a65536].End(3).Row
& & p = xlapp.range(&a1:c& & r).Value '获取一个二维数组,起始行为2，三列依次为桩号、地面高、
& & r = UBound(p, 1) '获取多少个点。
& &&&ReDim p1(0 To r * 3 - 1) As Double
& & ReDim p2(0 To r * 3 - 1) As Double
& & Dim textObj As AcadText
& & Dim point(0 To 2) As Double
& & point(1) = 0
& & point(2) = 0
& & Dim returnPnt As Variant
& & returnPnt = ThisDrawing.Utility.GetPoint(, &请在屏幕上选择一个插入点: &)
& & For i = 1 To r
& && &&&'数据在A1:C18,A列为X,B和C列为Y1,Y2
& && &&&p1(s) = p(i, 1) + returnPnt(0) - p(1, 1)
& && &&&p1(s + 1) = p(i, 2) + returnPnt(1)
& && &&&p1(s + 2) = 0&&'z默认为0
& && &&&p2(s) = p(i, 1) + returnPnt(0) - p(1, 1)
& && &&&p2(s + 1) = p(i, 3) + returnPnt(1)
& && &&&p2(s + 2) = 0&&'z默认为0
& && &&&point(0) = p1(s)
& && &&&point(1) = returnPnt(1)
& && & Set textObj = ThisDrawing.ModelSpace.AddText(Format(p1(s) - (returnPnt(0) - p(1, 1)), &K0+000.0&) & &,& & p1(s + 1) - returnPnt(1) & &,& & p2(s + 1) - returnPnt(1), point, 4)
& && & textObj.Rotation = 3.142 / 2 '旋转
& && &&&Debug.P Format(p1(s), &K0+000.0&)
& && &&&s = s + 3
& && &&&Next
& & Dim lineObj1 As AcadPolyline
& & Set lineObj1 = ThisDrawing.ModelSpace.AddPolyline(p1)
& &&&lineObj1.Color = acGreen
& &&&Dim lineObj2 As AcadPolyline
& & Set lineObj2 = ThisDrawing.ModelSpace.AddPolyline(p2)
'& && && && & ZoomAll
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师大家看看这幅图，是cad三维画出来，截图它的某个视角，还是用cad二维画出来的！能教教咋画不？_百度知道
大家看看这幅图，是cad三维画出来，截图它的某个视角，还是用cad二维画出来的！能教教咋画不？
我有更好的答案
用二维画顶模仿像事应该用三维画画调整视角用
flatshot命令（平面摄影）选择显示隐藏线按提示完产种平面图形
cad三维？我感觉也是，用二维设置不出！
其他类似问题
为您推荐：
三维画的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}