UG爱好者

标题: MasterCAM如何快速绘制距离递增平行线 [打印本页]
作者: WHC405    时间: 2024-8-3 13:10
标题: MasterCAM如何快速绘制距离递增平行线
MC如何快速绘制很多条距离递增的平行线
(, 下载次数: 13)
作者: qswa555    时间: 2024-8-3 13:59
动态转换可以，不过也不是很快就是了
作者: mayzhang1024    时间: 2024-8-8 08:21
用ＣＡＤ　ＶＢＡ
作者: mayzhang1024    时间: 2024-8-8 10:59
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    时间: 2024-8-20 11:51
mayzhang1024 发表于 2024-8-8 10:59

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



欢迎光临 UG爱好者 (https://www.ugsnx.com/) Powered by Discuz! X3.5