论坛首页 › 雕刻机 › 建议莫大建个雕刻机交流群

sdygrm 发表于 2012-6-29 19:22:04

建议莫大建个雕刻机交流群

莫大建个雕刻机交流群吧，现在坛里资源不能下载。刚买的AMCNC-01还是不太会用，DXP导出的钻孔文件是什么格式呀?

armok 发表于 2012-6-29 19:25:36

bbandpp 发表于 2012-6-29 19:26:49

楼主买了AMCNC-01，应该混论坛时间不短了，居然还会提这个建议~

Argee 发表于 2012-6-29 20:40:18

我用过cadence的钻孔文件，不能直接导入artcam，转换成dxf文件就能导入了。
导入的圆形是可以直接按照中心点钻孔的

Argee 发表于 2012-6-29 20:40:49

论坛交流好，受益的人多。

Argee 发表于 2012-6-29 20:46:58

cadence的drl文件就是纯文本，可以按照这个 office VBA 程序专成ASCII dxf文件

Sub Drill_2_Dxf()
    Dim i
    Dim R As String
    Dim LineRead As String
    Dim RStrArr(256) As String
    Dim HoleNum As Integer
    Dim X As String
    Dim Y As String
   
   
    Open "MIL.drl" For Input As #100
    Open "Dxf.dxf" For Output As #101
   
    Print #101, "0"
    Print #101, "SECTION"
    Print #101, "2"
    Print #101, "ENTITIES"
    Print #101, "0"
                                        '0
                                        'SECTION
    'It dxf head                        '2
                                        'ENTITIES
                                        '0
   
    While Not EOF(100)
      Line Input #100, LineRead
      
      Select Case Mid$(LineRead, 1, 1)
      Case ";"
            If Mid$(LineRead, 2, 1) = "T" Then
                R = Mid$(LineRead, InStr(1, LineRead, "=") + 1)
                R = Mid$(R, 1, InStr(1, R, "Tolerance") - 1)
                RStrArr(Val(Mid$(LineRead, 15))) = R
            End If
      Case "T"
            R = RStrArr(Val(Mid$(LineRead, 2)))
      Case "X"
            X = Mid$(LineRead, 2, InStr(1, LineRead, "Y") - 2)
            Y = Mid$(LineRead, InStr(1, LineRead, "Y") + 1)
            Print #101, "CIRCLE"
            Print #101, "8"
            Print #101, "Default"
            Print #101, "10"
            Print #101, X
            Print #101, "20"
            Print #101, Y
            Print #101, "40"
            Print #101, R
            Print #101, "0"
                                        'CIRCLE
                                        '8
                                        'Default
                                        '10
                                        '0.0
                                        '20
                                        '150.0
                                        '40
                                        '50.0
                                        '0
            
      Case Else
      End Select
    Wend
    Print #101, "ENDSEC"
    Print #101, "0"
    Print #101, "EOF"
    'It's dxf tail                      'ENDSEC
                                        '0
                                        'EOF
    Close
End Sub

可以把你protel的 drl 传上来，这面高人多得很。我那个纯属抛砖引玉。

njrdd-1 发表于 2012-6-30 10:10:13

我觉得楼主提的有道理,新手会遇到很多比较低级的问题(但对新手来说暂时还是大问题),希望得到启蒙指导,如果有个新手的园地,可以在里面交流,同时有些其它新手遇到的问题,可以在里面查一下,也免得莫大劳神去重复回答低级问题.

njrdd-1 发表于 2012-6-30 10:13:17

我相信莫大的服务哦,但作为新手,尽量能够自己了解,新手有个学习的过程.

armok 发表于 2012-6-30 10:42:17

查看完整版本: 建议莫大建个雕刻机交流群