MasterCAM如何快速绘制距离递增平行线

WHC405

MC如何快速绘制很多条距离递增的平行线

qswa555

动态转换可以，不过也不是很快就是了

mayzhang1024

用ＣＡＤ　ＶＢＡ

mayzhang1024

mayzhang1024 发表于 2024-8-8 08:21
用ＣＡＤ　ＶＢＡ

1. ‘以下示例画１００条平行为Ｙ轴的直线，X方向间距为２ｎ＋１的示例代码
   
2. Public Sub DrawLines()
   
3.     Dim i As Integer
   
4.     Dim startPoint(0 To 2) As Double
   
5.     Dim endPoint(0 To 2) As Double
   
6.     Dim spacing As Double
   
7.    
   
8.     startPoint(0) = 0
   
9.     startPoint(1) = 0
   
10.     startPoint(2) = 0
    
11.    
    
12.     For i = 0 To 99
    
13.         spacing = 2 * i + 1
    
14.         endPoint(0) = startPoint(0)
    
15.         endPoint(1) = startPoint(1) + 100 ' 假设每条直线长度为100
    
16.         endPoint(2) = startPoint(2)
    
17.         
    
18.         ThisDrawing.ModelSpace.AddLine startPoint, endPoint
    
19.         
    
20.         startPoint(0) = startPoint(0) + spacing ' 更新X坐标以实现间距
    
21.     Next i
    
22. End Sub
    

复制代码

WHC405

mayzhang1024 发表于 2024-8-8 10:59

谢谢，可是我只想在MC里面画这个线，不想转到其他软件再画